234 lines
5.7 KiB
Mathematica
234 lines
5.7 KiB
Mathematica
|
/*
|
||
|
Copyright (C) 2004-2005 SKYRIX Software AG
|
||
|
|
||
|
This file is part of OpenGroupware.org.
|
||
|
|
||
|
OGo is free software; you can redistribute it and/or modify it under
|
||
|
the terms of the GNU Lesser General Public License as published by the
|
||
|
Free Software Foundation; either version 2, or (at your option) any
|
||
|
later version.
|
||
|
|
||
|
OGo is distributed in the hope that it will be useful, but WITHOUT ANY
|
||
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
||
|
License for more details.
|
||
|
|
||
|
You should have received a copy of the GNU Lesser General Public
|
||
|
License along with OGo; see the file COPYING. If not, write to the
|
||
|
Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
||
|
02111-1307, USA.
|
||
|
*/
|
||
|
|
||
|
#include <NGObjWeb/SoComponent.h>
|
||
|
|
||
|
@interface SOGoUserHomePage : SoComponent
|
||
|
{
|
||
|
id item;
|
||
|
}
|
||
|
|
||
|
- (NSString *)ownPath;
|
||
|
- (NSString *)userFolderPath;
|
||
|
- (NSString *)relativePathToUserFolderSubPath:(NSString *)_sub;
|
||
|
|
||
|
- (NSString *)relativeCalendarPath;
|
||
|
- (NSString *)relativeContactsPath;
|
||
|
- (NSString *)relativeMailPath;
|
||
|
|
||
|
@end
|
||
|
|
||
|
#include <SOGo/AgenorUserManager.h>
|
||
|
#include <SOGo/WOContext+Agenor.h>
|
||
|
#include <SOGo/SOGoUser.h>
|
||
|
#include "common.h"
|
||
|
|
||
|
@implementation SOGoUserHomePage
|
||
|
|
||
|
static NSArray *internetAccessStates = nil;
|
||
|
|
||
|
+ (void)initialize {
|
||
|
static BOOL didInit = NO;
|
||
|
|
||
|
if (didInit) return;
|
||
|
didInit = YES;
|
||
|
|
||
|
internetAccessStates = [[NSArray alloc] initWithObjects:@"0", @"1", nil];
|
||
|
}
|
||
|
|
||
|
- (void)dealloc {
|
||
|
[self->item release];
|
||
|
[super dealloc];
|
||
|
}
|
||
|
|
||
|
/* lookup */
|
||
|
|
||
|
- (id)lookupName:(NSString *)_key inContext:(id)_ctx acquire:(BOOL)_flag {
|
||
|
// Note: we do no acquisition
|
||
|
id obj;
|
||
|
|
||
|
/* first check attributes directly bound to the object */
|
||
|
if ((obj = [super lookupName:_key inContext:_ctx acquire:NO]))
|
||
|
return obj;
|
||
|
|
||
|
return nil;
|
||
|
}
|
||
|
|
||
|
/* accessors */
|
||
|
|
||
|
- (void)setItem:(id)_item {
|
||
|
ASSIGN(self->item, _item);
|
||
|
}
|
||
|
- (id)item {
|
||
|
return self->item;
|
||
|
}
|
||
|
|
||
|
- (NSArray *)internetAccessStates {
|
||
|
return internetAccessStates;
|
||
|
}
|
||
|
|
||
|
- (NSString *)internetAccessState {
|
||
|
NSUserDefaults *ud;
|
||
|
NSNumber *value;
|
||
|
|
||
|
ud = [[[self context] activeUser] userDefaults];
|
||
|
value = [ud objectForKey:@"allowinternet"];
|
||
|
return [NSString stringWithFormat:@"%d", [value boolValue]];
|
||
|
}
|
||
|
- (void)setInternetAccessState:(NSString *)_internetAccessState {
|
||
|
NSUserDefaults *ud;
|
||
|
|
||
|
ud = [[[self context] activeUser] userDefaults];
|
||
|
[ud setObject:_internetAccessState forKey:@"allowinternet"];
|
||
|
[ud synchronize];
|
||
|
}
|
||
|
|
||
|
- (NSString *)itemInternetAccessStateText {
|
||
|
NSString *key;
|
||
|
|
||
|
key = [NSString stringWithFormat:@"internetAccessState_%@", self->item];
|
||
|
return key;
|
||
|
}
|
||
|
|
||
|
/* paths */
|
||
|
|
||
|
- (NSString *)ownPath {
|
||
|
NSString *uri;
|
||
|
NSRange r;
|
||
|
|
||
|
uri = [[[self context] request] uri];
|
||
|
|
||
|
/* first: cut off query parameters */
|
||
|
|
||
|
r = [uri rangeOfString:@"?" options:NSBackwardsSearch];
|
||
|
if (r.length > 0)
|
||
|
uri = [uri substringToIndex:r.location];
|
||
|
return uri;
|
||
|
}
|
||
|
|
||
|
- (NSString *)userFolderPath {
|
||
|
WOContext *ctx;
|
||
|
NSArray *traversalObjects;
|
||
|
NSString *url;
|
||
|
|
||
|
ctx = [self context];
|
||
|
traversalObjects = [ctx objectTraversalStack];
|
||
|
url = [[traversalObjects objectAtIndex:1]
|
||
|
baseURLInContext:ctx];
|
||
|
return [[NSURL URLWithString:url] path];
|
||
|
}
|
||
|
|
||
|
- (NSString *)relativePathToUserFolderSubPath:(NSString *)_sub {
|
||
|
NSString *dst, *rel;
|
||
|
|
||
|
dst = [[self userFolderPath] stringByAppendingPathComponent:_sub];
|
||
|
rel = [dst urlPathRelativeToPath:[self ownPath]];
|
||
|
return rel;
|
||
|
}
|
||
|
|
||
|
- (NSString *)relativeCalendarPath {
|
||
|
return [self relativePathToUserFolderSubPath:@"Calendar/"];
|
||
|
}
|
||
|
|
||
|
- (NSString *)relativeContactsPath {
|
||
|
return [self relativePathToUserFolderSubPath:@"Contacts/"];
|
||
|
}
|
||
|
|
||
|
- (NSString *)relativeMailPath {
|
||
|
return [self relativePathToUserFolderSubPath:@"Mail/"];
|
||
|
}
|
||
|
|
||
|
/* objects */
|
||
|
|
||
|
- (id)calendarFolder {
|
||
|
return [[self clientObject] lookupName:@"Calendar"
|
||
|
inContext:[self context]
|
||
|
acquire:NO];
|
||
|
}
|
||
|
|
||
|
/* checking access */
|
||
|
|
||
|
- (BOOL)canAccess {
|
||
|
WOContext *ctx;
|
||
|
NSString *owner;
|
||
|
|
||
|
ctx = [self context];
|
||
|
owner = [[self clientObject] ownerInContext:ctx];
|
||
|
return [owner isEqualToString:[[ctx activeUser] login]];
|
||
|
}
|
||
|
|
||
|
- (BOOL)isNotAllowedToChangeInternetAccess {
|
||
|
// TODO: should be a SOGoUser method
|
||
|
AgenorUserManager *um;
|
||
|
WOContext *ctx;
|
||
|
NSString *uid;
|
||
|
|
||
|
ctx = [self context];
|
||
|
/* do not allow changes when access is from Internet */
|
||
|
if (![ctx isAccessFromIntranet])
|
||
|
return YES;
|
||
|
um = [AgenorUserManager sharedUserManager];
|
||
|
uid = [[ctx activeUser] login];
|
||
|
return [um isUserAllowedToChangeSOGoInternetAccess:uid] ? NO : YES;
|
||
|
}
|
||
|
|
||
|
- (BOOL)isVacationMessageEnabledForInternet {
|
||
|
// TODO: should be a SOGoUser method
|
||
|
AgenorUserManager *um;
|
||
|
NSString *uid;
|
||
|
|
||
|
um = [AgenorUserManager sharedUserManager];
|
||
|
uid = [[[self context] activeUser] login];
|
||
|
return [um isInternetAutoresponderEnabledForUser:uid];
|
||
|
}
|
||
|
|
||
|
- (BOOL)isVacationMessageEnabledForIntranet {
|
||
|
// TODO: should be a SOGoUser method
|
||
|
AgenorUserManager *um;
|
||
|
NSString *uid;
|
||
|
|
||
|
um = [AgenorUserManager sharedUserManager];
|
||
|
uid = [[[self context] activeUser] login];
|
||
|
return [um isIntranetAutoresponderEnabledForUser:uid];
|
||
|
}
|
||
|
|
||
|
/* actions */
|
||
|
|
||
|
#if 0
|
||
|
- (id)defaultAction {
|
||
|
return [self redirectToLocation:[self relativeCalendarPath]];
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
/* this is triggered by an XMLHTTPRequest */
|
||
|
- (id)saveInternetAccessStateAction {
|
||
|
NSString *state;
|
||
|
|
||
|
if ([self isNotAllowedToChangeInternetAccess])
|
||
|
return [NSException exceptionWithHTTPStatus:403 /* Forbidden */];
|
||
|
|
||
|
state = [[[self context] request] formValueForKey:@"allowinternet"];
|
||
|
[self setInternetAccessState:state];
|
||
|
return [NSException exceptionWithHTTPStatus:200 /* OK */];
|
||
|
}
|
||
|
|
||
|
@end /* SOGoUserHomePage */
|