39228fb130
Monotone-Revision: 2ad8b0c019808014c990f51cc69c4457fdb537c6 Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2006-07-28T22:59:11 Monotone-Branch: ca.inverse.sogo
173 lines
4.3 KiB
Objective-C
173 lines
4.3 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 <SOGoUI/UIxComponent.h>
|
|
|
|
@interface UIxMailAccountView : UIxComponent
|
|
{
|
|
id inbox;
|
|
}
|
|
|
|
@end
|
|
|
|
#include <NGObjWeb/SoObject+SoDAV.h>
|
|
#include <SoObjects/Mailer/SOGoMailFolder.h>
|
|
#include "common.h"
|
|
|
|
@interface NSString(DotCutting)
|
|
|
|
- (NSString *)titleForSOGoIMAP4String;
|
|
|
|
@end
|
|
|
|
@interface SOGoMailFolder(UsedPrivates)
|
|
- (BOOL)isCreateAllowedInACL;
|
|
@end
|
|
|
|
@implementation UIxMailAccountView
|
|
|
|
static BOOL useAltNamespace = NO;
|
|
|
|
+ (void)initialize {
|
|
NSUserDefaults *ud = [NSUserDefaults standardUserDefaults];
|
|
|
|
useAltNamespace = [ud boolForKey:@"SOGoSpecialFoldersInRoot"];
|
|
}
|
|
|
|
- (void)dealloc {
|
|
[self->inbox release];
|
|
[super dealloc];
|
|
}
|
|
|
|
/* notifications */
|
|
|
|
- (void)sleep {
|
|
[super sleep];
|
|
[self->inbox release]; self->inbox = nil;
|
|
}
|
|
|
|
/* title */
|
|
|
|
- (NSString *)objectTitle {
|
|
return [[[self clientObject] nameInContainer] titleForSOGoIMAP4String];
|
|
}
|
|
|
|
- (NSString *)panelTitle {
|
|
NSString *s;
|
|
|
|
s = [self labelForKey:@"Mail Account"];
|
|
s = [s stringByAppendingString:@": "];
|
|
s = [s stringByAppendingString:[self objectTitle]];
|
|
return s;
|
|
}
|
|
|
|
- (BOOL)showFolderCreateButton {
|
|
if (!useAltNamespace) {
|
|
/* in a regular configuration everything must be created below INBOX */
|
|
return NO;
|
|
}
|
|
|
|
/*
|
|
A hack to manually check whether we have permission to create folders at
|
|
the root level. We do this by checking the permissions on the INBOX
|
|
folder (which is technically the root in Cyrus).
|
|
|
|
See OGo bug #1472 for details.
|
|
*/
|
|
|
|
if (self->inbox == nil) {
|
|
id tmp;
|
|
|
|
tmp = [[self clientObject] lookupName:@"INBOX"
|
|
inContext:[self context]
|
|
acquire:NO];
|
|
if ([tmp isKindOfClass:[NSException class]] || tmp == nil)
|
|
tmp = [NSNull null];
|
|
|
|
self->inbox = [tmp retain];
|
|
}
|
|
|
|
if (![self->inbox isNotNull]) {
|
|
[self warnWithFormat:@"Found no INBOX folder!"];
|
|
return NO;
|
|
}
|
|
|
|
return [self->inbox isCreateAllowedInACL];
|
|
}
|
|
|
|
- (NSString *) mailFolderName
|
|
{
|
|
return [NSString stringWithFormat: @"/%@",
|
|
[[self clientObject] nameInContainer]];
|
|
}
|
|
|
|
/* error redirects */
|
|
|
|
- (id)redirectToViewWithError:(id)_error {
|
|
// TODO: DUP to UIxMailListView
|
|
// TODO: improve, localize
|
|
// TODO: there is a bug in the treeview which preserves the current URL for
|
|
// the active object (displaying the error again)
|
|
id url;
|
|
|
|
if (![_error isNotNull])
|
|
return [self redirectToLocation:@"view"];
|
|
|
|
if ([_error isKindOfClass:[NSException class]])
|
|
_error = [_error reason];
|
|
else if ([_error isKindOfClass:[NSString class]])
|
|
_error = [_error stringValue];
|
|
|
|
url = [_error stringByEscapingURL];
|
|
url = [@"view?error=" stringByAppendingString:url];
|
|
return [self redirectToLocation:url];
|
|
}
|
|
|
|
/* actions */
|
|
|
|
- (id)createFolderAction {
|
|
NSException *error;
|
|
NSString *folderName;
|
|
id client;
|
|
|
|
folderName = [[[self context] request] formValueForKey:@"name"];
|
|
if ([folderName length] == 0) {
|
|
error = [NSException exceptionWithHTTPStatus:400 /* Bad Request */
|
|
reason:@"missing 'name' query parameter!"];
|
|
return [self redirectToViewWithError:error];
|
|
}
|
|
|
|
if ((client = [self clientObject]) == nil) {
|
|
error = [NSException exceptionWithHTTPStatus:404 /* Not Found */
|
|
reason:@"did not find mail folder"];
|
|
return [self redirectToViewWithError:error];
|
|
}
|
|
|
|
if ((error = [[self clientObject] davCreateCollection:folderName
|
|
inContext:[self context]]) != nil) {
|
|
return [self redirectToViewWithError:error];
|
|
}
|
|
|
|
return [self redirectToLocation:[folderName stringByAppendingString:@"/"]];
|
|
}
|
|
|
|
@end /* UIxMailAccountView */
|