amorfo77/sogo
1
0
Fork 0
mirror of https://github.com/inverse-inc/sogo.git synced 2026-03-01 05:06:24 +00:00
Code Issues Projects Releases Wiki Activity

Monotone-Parent: 7e4d175baa0bf4159a2a0fe43320b6c8cb5884e8

Browse Source 
Monotone-Revision: e55b054800d7d89a5aad8e5477bfe9625f49efa5

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-06-19T17:54:48
Monotone-Branch: ca.inverse.sogo
This commit is contained in:
Wolfgang Sourdeau
2007-06-19 17:54:48 +00:00
parent a69aa5cb6a
commit fcf20c0cf9
3 changed files with 4 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@@ -1,3 +1,7 @@
2007-06-19 Wolfgang Sourdeau <wsourdeau@inverse.ca>
* SoObjects/SOGo/WOContext+Agenor.[hm]: removed unused module.
2007-06-14 Wolfgang Sourdeau <wsourdeau@inverse.ca>
* SoObjects/SOGo/SOGoLRUCache.m: removed unused module.

33
SoObjects/SOGo/WOContext+Agenor.h
View File

@@ -1,33 +0,0 @@
/*
Copyright (C) 2000-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.
*/
#ifndef __SOGo_WOContext_Agenor_H_
#define __SOGo_WOContext_Agenor_H_
#include <NGObjWeb/WOContext.h>
@interface WOContext (Agenor)
- (BOOL)isAccessFromIntranet;
@end
#endif /* __SOGo_WOContext_Agenor_H_ */

82
SoObjects/SOGo/WOContext+Agenor.m
View File

@@ -1,82 +0,0 @@
/*
Copyright (C) 2000-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 "WOContext+Agenor.h"
#include "common.h"
@implementation WOContext(Agenor)
static EOQualifier *internetDetectQualifier = nil;
static EOQualifier *getInternetDetectQualifier(void) {
static BOOL didCheck = NO;
NSUserDefaults *ud;
NSString *s;
if (didCheck) return internetDetectQualifier;
ud = [NSUserDefaults standardUserDefaults];
if ((s = [ud stringForKey:@"SOGoInternetDetectQualifier"]) != nil) {
internetDetectQualifier =
[[EOQualifier qualifierWithQualifierFormat:s] retain];
if (internetDetectQualifier == nil)
NSLog(@"ERROR: could not parse qualifier: '%@'", s);
}
if (internetDetectQualifier == nil)
NSLog(@"Note: no 'SOGoInternetDetectQualifier' configured.");
else {
NSLog(@"Note: detect Internet access using: %@",
internetDetectQualifier);
}
didCheck = YES;
return internetDetectQualifier;
}
- (BOOL)isAccessFromIntranet {
id<EOQualifierEvaluation> q;
NSNumber *bv;
WORequest *rq;
BOOL ok;
if ((bv = [self objectForKey:@"_agenorUnrestricedAccess"]) != nil)
return [bv boolValue];
if ((rq = [self request]) == nil) {
[self logWithFormat:@"ERROR: got no request for context!"];
return NO;
}
if ((q = (id)getInternetDetectQualifier()) == nil)
/* if no qualifier is set, allow access */
ok = YES;
else
/* is Internet request? */
ok = [q evaluateWithObject:[rq headers]] ? NO : YES;
bv = [NSNumber numberWithBool:ok];
[self setObject:bv forKey:@"_agenorUnrestricedAccess"];
return ok;
}
@end /* WOContext(Agenor) */