8d92ea1b50
Monotone-Revision: 680ce3d58b64771fea711e45a1b2bc3ec5490acb Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2006-07-11T22:29:19 Monotone-Branch: ca.inverse.sogo
236 lines
5.7 KiB
Objective-C
236 lines
5.7 KiB
Objective-C
/*
|
|
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 [NSString stringWithFormat: @"%@%@/view",
|
|
[self relativePathToUserFolderSubPath:@"Mail/"],
|
|
[self emailForUser]];
|
|
}
|
|
|
|
/* 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 */
|