dc40718409
Monotone-Parent: 18c8420c0a0c752ea4dd761f934a473b321568f8 Monotone-Revision: b2699a981cd5458fbd1da1a9a72992020a29a4fc Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2006-12-14T21:20:13 Monotone-Branch: ca.inverse.sogo
354 lines
9.6 KiB
Objective-C
354 lines
9.6 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.
|
|
*/
|
|
|
|
#import <NGObjWeb/WOResponse.h>
|
|
#import <SoObjects/Appointments/SOGoFreeBusyObject.h>
|
|
#import <SoObjects/SOGo/NSCalendarDate+SOGo.h>
|
|
#import <NGExtensions/NSCalendarDate+misc.h>
|
|
|
|
#import <SOGoUI/UIxComponent.h>
|
|
#import <Scheduler/UIxComponent+Agenor.h>
|
|
|
|
@interface SOGoUserHomePage : UIxComponent
|
|
{
|
|
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 */];
|
|
}
|
|
|
|
- (void) _fillFreeBusyItems: (NSMutableArray *) items
|
|
withRecords: (NSEnumerator *) records
|
|
fromStartDate: (NSCalendarDate *) startDate
|
|
toEndDate: (NSCalendarDate *) endDate
|
|
{
|
|
NSDictionary *record;
|
|
int count, startInterval, endInterval, value;
|
|
NSNumber *status;
|
|
NSCalendarDate *currentDate;
|
|
|
|
record = [records nextObject];
|
|
while (record)
|
|
{
|
|
status = [record objectForKey: @"status"];
|
|
|
|
value = [[record objectForKey: @"startdate"] intValue];
|
|
currentDate = [NSCalendarDate dateWithTimeIntervalSince1970: value];
|
|
if ([currentDate earlierDate: startDate] == currentDate)
|
|
startInterval = 0;
|
|
else
|
|
startInterval
|
|
= ([currentDate timeIntervalSinceDate: startDate] / 900);
|
|
|
|
value = [[record objectForKey: @"enddate"] intValue];
|
|
currentDate = [NSCalendarDate dateWithTimeIntervalSince1970: value];
|
|
if ([currentDate earlierDate: endDate] == endDate)
|
|
endInterval = [items count] - 1;
|
|
else
|
|
endInterval = ([currentDate timeIntervalSinceDate: startDate] / 900);
|
|
|
|
for (count = startInterval; count < endInterval; count++)
|
|
[items replaceObjectAtIndex: count withObject: status];
|
|
|
|
record = [records nextObject];
|
|
}
|
|
}
|
|
|
|
- (NSString *) _freeBusyAsTextFromStartDate: (NSCalendarDate *) startDate
|
|
toEndDate: (NSCalendarDate *) endDate
|
|
forFreeBusy: (SOGoFreeBusyObject *) fb
|
|
{
|
|
NSEnumerator *records;
|
|
NSMutableArray *freeBusyItems;
|
|
NSTimeInterval interval;
|
|
int count, intervals;
|
|
|
|
interval = [endDate timeIntervalSinceDate: startDate] + 60;
|
|
intervals = interval / 900; /* slices of 15 minutes */
|
|
freeBusyItems = [NSMutableArray arrayWithCapacity: intervals];
|
|
for (count = 1; count < intervals; count++)
|
|
[freeBusyItems addObject: @"0"];
|
|
|
|
records = [[fb fetchFreeBusyInfosFrom: startDate to: endDate] objectEnumerator];
|
|
[self _fillFreeBusyItems: freeBusyItems withRecords: records
|
|
fromStartDate: startDate toEndDate: endDate];
|
|
|
|
return [freeBusyItems componentsJoinedByString: @","];
|
|
}
|
|
|
|
- (NSString *) _freeBusyAsText
|
|
{
|
|
SOGoFreeBusyObject *co;
|
|
NSCalendarDate *startDate, *endDate;
|
|
NSString *queryDay, *additionalDays;
|
|
NSTimeZone *uTZ;
|
|
|
|
co = [self clientObject];
|
|
uTZ = [co userTimeZone];
|
|
|
|
queryDay = [self queryParameterForKey: @"sday"];
|
|
if ([queryDay length])
|
|
startDate = [NSCalendarDate dateFromShortDateString: queryDay
|
|
andShortTimeString: @"0000"
|
|
inTimeZone: uTZ];
|
|
else
|
|
{
|
|
startDate = [NSCalendarDate calendarDate];
|
|
[startDate setTimeZone: uTZ];
|
|
startDate = [startDate hour: 0 minute: 0];
|
|
}
|
|
|
|
queryDay = [self queryParameterForKey: @"eday"];
|
|
if ([queryDay length])
|
|
endDate = [NSCalendarDate dateFromShortDateString: queryDay
|
|
andShortTimeString: @"2359"
|
|
inTimeZone: uTZ];
|
|
else
|
|
endDate = [startDate hour: 23 minute: 59];
|
|
|
|
additionalDays = [self queryParameterForKey: @"additional"];
|
|
if ([additionalDays length] > 0)
|
|
endDate = [endDate dateByAddingYears: 0 months: 0
|
|
days: [additionalDays intValue]
|
|
hours: 0 minutes: 0 seconds: 0];
|
|
|
|
return [self _freeBusyAsTextFromStartDate: startDate toEndDate: endDate
|
|
forFreeBusy: co];
|
|
}
|
|
|
|
- (id <WOActionResults>) readFreeBusyAction
|
|
{
|
|
WOResponse *response;
|
|
|
|
response = [context response];
|
|
[response setStatus: 200];
|
|
[response setHeader: @"text/plain; charset=iso-8859-1"
|
|
forKey: @"Content-Type"];
|
|
[response appendContentString: [self _freeBusyAsText]];
|
|
|
|
return response;
|
|
}
|
|
|
|
@end /* SOGoUserHomePage */
|