see ChangeLog

Monotone-Revision: 9054022ef1ca8aeba6e34842d27d9b94ce002b89 Monotone-Author: dev-unix.inverse.qc.ca Monotone-Date: 2006-06-15T19:34:10 Monotone-Branch: ca.inverse.sogo
2026-08-28 09:53:23 +00:00 · 2006-06-15 19:34:10 +00:00
commit f18c764ffa
965 changed files with 99196 additions and 0 deletions
@@ -0,0 +1,233 @@
+/*
+  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 */