a766f319ef
Monotone-Revision: d98519ee9416f281001d26da0a9ba8a76729997b Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2007-05-25T21:19:31 Monotone-Branch: ca.inverse.sogo
250 lines
6.5 KiB
Objective-C
250 lines
6.5 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 <SoObjects/Mailer/SOGoMailObject.h>
|
|
#import <SoObjects/Mailer/SOGoMailAccounts.h>
|
|
#import <SoObjects/SOGo/NSString+Utilities.h>
|
|
#import <SoObjects/SOGo/NSObject+Utilities.h>
|
|
#import <SOGoUI/UIxComponent.h>
|
|
#import "UIxMailMainFrame.h"
|
|
|
|
#import "common.h"
|
|
#import <NGObjWeb/SoComponent.h>
|
|
|
|
@implementation UIxMailMainFrame
|
|
|
|
static NSString *treeRootClassName = nil;
|
|
|
|
+ (void)initialize {
|
|
NSUserDefaults *ud = [NSUserDefaults standardUserDefaults];
|
|
|
|
treeRootClassName = [[ud stringForKey:@"SOGoMailTreeRootClass"] copy];
|
|
if (treeRootClassName)
|
|
NSLog(@"Note: use class '%@' as root for mail tree.", treeRootClassName);
|
|
else
|
|
treeRootClassName = @"SOGoMailAccounts";
|
|
}
|
|
|
|
- (void)dealloc {
|
|
[self->rootURL release];
|
|
[self->userRootURL release];
|
|
[super dealloc];
|
|
}
|
|
|
|
/* accessors */
|
|
- (NSString *) mailAccounts
|
|
{
|
|
SOGoMailAccounts *co;
|
|
|
|
co = [self clientObject];
|
|
|
|
return [[co fetchAllIdentities] jsonRepresentation];
|
|
}
|
|
|
|
- (NSString *)treeRootClassName {
|
|
return treeRootClassName;
|
|
}
|
|
|
|
- (void)setHideFolderTree:(BOOL)_flag {
|
|
self->mmfFlags.hideFolderTree = _flag ? 1 : 0;
|
|
}
|
|
- (BOOL)hideFolderTree {
|
|
return self->mmfFlags.hideFolderTree ? YES : NO;
|
|
}
|
|
|
|
- (NSString *) pageFormURL {
|
|
NSString *u;
|
|
NSRange r;
|
|
|
|
u = [[[self context] request] uri];
|
|
if ((r = [u rangeOfString:@"?"]).length > 0) {
|
|
/* has query parameters */
|
|
// TODO: this is ugly, create reusable link facility in SOPE
|
|
// TODO: remove 'search' and 'filterpopup', preserve sorting
|
|
NSMutableString *ms;
|
|
NSArray *qp;
|
|
unsigned i, count;
|
|
|
|
qp = [[u substringFromIndex:(r.location + r.length)]
|
|
componentsSeparatedByString:@"&"];
|
|
count = [qp count];
|
|
ms = [NSMutableString stringWithCapacity:count * 12];
|
|
|
|
for (i = 0; i < count; i++) {
|
|
NSString *s;
|
|
|
|
s = [qp objectAtIndex:i];
|
|
|
|
/* filter out */
|
|
if ([s hasPrefix:@"search="]) continue;
|
|
if ([s hasPrefix:@"filterpopup="]) continue;
|
|
|
|
if ([ms length] > 0) [ms appendString:@"&"];
|
|
[ms appendString:s];
|
|
}
|
|
|
|
if ([ms length] == 0) {
|
|
/* no other query params */
|
|
u = [u substringToIndex:r.location];
|
|
}
|
|
else {
|
|
u = [u substringToIndex:r.location + r.length];
|
|
u = [u stringByAppendingString:ms];
|
|
}
|
|
return u;
|
|
}
|
|
return [u hasSuffix:@"/"] ? @"view" : @"#";
|
|
}
|
|
|
|
- (BOOL)showLinkBanner {
|
|
return YES;
|
|
}
|
|
|
|
- (NSString *)bannerToolbarStyle {
|
|
return nil;
|
|
}
|
|
|
|
- (NSString *)bannerConsumeStyle {
|
|
return nil;
|
|
}
|
|
|
|
/* URL generation */
|
|
// TODO: I think all this should be done by the clientObject?!
|
|
// TODO: is the stuff below necessary at all in the mailer frame?
|
|
|
|
- (NSString *)rootURL {
|
|
WOContext *ctx;
|
|
NSArray *traversalObjects;
|
|
|
|
if (self->rootURL != nil)
|
|
return self->rootURL;
|
|
|
|
ctx = [self context];
|
|
traversalObjects = [ctx objectTraversalStack];
|
|
self->rootURL = [[[traversalObjects objectAtIndex:0]
|
|
rootURLInContext:ctx]
|
|
copy];
|
|
return self->rootURL;
|
|
}
|
|
|
|
- (NSString *)userRootURL {
|
|
WOContext *ctx;
|
|
NSArray *traversalObjects;
|
|
|
|
if (self->userRootURL)
|
|
return self->userRootURL;
|
|
|
|
ctx = [self context];
|
|
traversalObjects = [ctx objectTraversalStack];
|
|
self->userRootURL = [[[[traversalObjects objectAtIndex:1]
|
|
baseURLInContext:ctx]
|
|
stringByAppendingString:@"/"]
|
|
retain];
|
|
return self->userRootURL;
|
|
}
|
|
|
|
- (NSString *)calendarRootURL {
|
|
return [[self userRootURL] stringByAppendingString:@"Calendar/"];
|
|
}
|
|
|
|
- (NSString *)contactsRootURL {
|
|
return [[self userRootURL] stringByAppendingString:@"Contacts/"];
|
|
}
|
|
|
|
/* error handling */
|
|
|
|
- (BOOL)hasErrorText {
|
|
return [[[[self context] request] formValueForKey:@"error"] length] > 0
|
|
? YES : NO;
|
|
}
|
|
- (NSString *)errorText {
|
|
return [[[self context] request] formValueForKey:@"error"];
|
|
}
|
|
|
|
- (NSString *)errorAlertJavaScript {
|
|
NSString *errorText;
|
|
|
|
if ([(errorText = [self errorText]) length] == 0)
|
|
return nil;
|
|
|
|
// TODO: proper JavaScript escaping
|
|
errorText = [errorText stringByEscapingHTMLString];
|
|
errorText = [errorText stringByReplacingString:@"\"" withString:@"'"];
|
|
|
|
return [NSString stringWithFormat:
|
|
@"<script language=\"JavaScript\">"
|
|
@"alert(\"%@\");"
|
|
@"</script>", errorText];
|
|
}
|
|
|
|
/* FIXME: migrated methods which might not work yet... */
|
|
// #warning check this
|
|
// - (NSString *) mailFolderName
|
|
// {
|
|
// NSMutableArray *mailboxes;
|
|
// SOGoMailObject *currentObject;
|
|
|
|
// mailboxes = [NSMutableArray new];
|
|
// [mailboxes autorelease];
|
|
|
|
// currentObject = [self clientObject];
|
|
// while (![currentObject isKindOfClass: [SOGoMailAccounts class]])
|
|
// {
|
|
// [mailboxes insertObject: [currentObject nameInContainer] atIndex: 0];
|
|
// currentObject = [currentObject container];
|
|
// }
|
|
|
|
// return [NSString stringWithFormat: @"/%@",
|
|
// [mailboxes componentsJoinedByString: @"/"]];
|
|
// }
|
|
|
|
- (id) composeAction
|
|
{
|
|
NSArray *c;
|
|
NSString *inbox, *url, *parameter;
|
|
NSMutableDictionary *urlParams;
|
|
id actionResult;
|
|
|
|
c = [[self clientObject] toManyRelationshipKeys];
|
|
if ([c count] > 0)
|
|
{
|
|
urlParams = [NSMutableDictionary new];
|
|
[urlParams autorelease];
|
|
|
|
parameter = [self queryParameterForKey: @"mailto"];
|
|
if (parameter)
|
|
[urlParams setObject: parameter
|
|
forKey: @"mailto"];
|
|
inbox = [NSString stringWithFormat: @"%@/INBOX",
|
|
[c objectAtIndex: 0]];
|
|
url = [inbox composeURLWithAction: @"compose"
|
|
parameters: urlParams
|
|
andHash: NO];
|
|
actionResult = [self redirectToLocation: url];
|
|
}
|
|
else
|
|
actionResult = self;
|
|
|
|
return actionResult;
|
|
}
|
|
|
|
@end /* UIxMailMainFrame */
|