]> err.no Git - sope/blob - sope-mime/samples/ImapTool.m
added Kolab sample data
[sope] / sope-mime / samples / ImapTool.m
1 /*
2   Copyright (C) 2000-2005 SKYRIX Software AG
3
4   This file is part of SOPE.
5
6   SOPE is free software; you can redistribute it and/or modify it under
7   the terms of the GNU Lesser General Public License as published by the
8   Free Software Foundation; either version 2, or (at your option) any
9   later version.
10
11   SOPE is distributed in the hope that it will be useful, but WITHOUT ANY
12   WARRANTY; without even the implied warranty of MERCHANTABILITY or
13   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
14   License for more details.
15
16   You should have received a copy of the GNU Lesser General Public
17   License along with SOPE; see the file COPYING.  If not, write to the
18   Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
19   02111-1307, USA.
20 */
21
22 #include "ImapTool.h"
23 #include <NGImap4/NGImap4FileManager.h>
24 #include "common.h"
25
26 @implementation ImapTool
27
28 - (void)flush {
29   [self->fileManager release]; self->fileManager = nil;
30 }
31
32 - (NGImap4FileManager *)fileManager {
33   NSUserDefaults *ud;
34   NSString       *pwd, *user, *host;
35   id             url;
36   
37   if (self->fileManager)
38     return self->fileManager;
39   
40   ud = [NSUserDefaults standardUserDefaults];
41   
42   if ((url = [ud stringForKey:@"url"]))
43     url = [NSURL URLWithString:url];
44   
45   if ((user = [ud stringForKey:@"user"]) == nil)
46     user = [url user];
47   if ((pwd = [ud stringForKey:@"password"]) == nil)
48     pwd = [url password];
49   if ((host = [ud stringForKey:@"host"]) == nil)
50     host = [(NSURL *)url host];
51   
52   self->fileManager = [[NGImap4FileManager alloc] initWithUser:user
53                                                   password:pwd
54                                                   host:host];
55   if (self->fileManager == nil) {
56     if (user == nil) NSLog(@"missing login.");
57     if (pwd  == nil) NSLog(@"missing password.");
58     if (host == nil) NSLog(@"missing host.");
59   }
60   
61   return self->fileManager;
62 }
63
64 @end /* ImapTool */