err.no Git - sope/blob - sope-mime/samples/ImapTool.m

   1 /*
   2   Copyright (C) 2000-2004 SKYRIX Software AG
   3
   4   This file is part of OpenGroupware.org.
   5
   6   OGo 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   OGo 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 OGo; 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 // $Id: ImapTool.m 4 2004-08-20 17:04:31Z helge $
  22
  23 #include "ImapTool.h"
  24 #include <NGImap4/NGImap4FileManager.h>
  25 #include "common.h"
  26
  27 @implementation ImapTool
  28
  29 - (void)flush {
  30   [self->fileManager release]; self->fileManager = nil;
  31 }
  32
  33 - (NGImap4FileManager *)fileManager {
  34   NSUserDefaults *ud;
  35   NSString       *pwd, *user, *host;
  36   id             url;
  37
  38   if (self->fileManager)
  39     return self->fileManager;
  40
  41   ud = [NSUserDefaults standardUserDefaults];
  42
  43   if ((url = [ud stringForKey:@"url"]))
  44     url = [NSURL URLWithString:url];
  45
  46   if ((user = [ud stringForKey:@"user"]) == nil)
  47     user = [url user];
  48   if ((pwd = [ud stringForKey:@"password"]) == nil)
  49     pwd = [url password];
  50   if ((host = [ud stringForKey:@"host"]) == nil)
  51     host = [(NSURL *)url host];
  52
  53   self->fileManager = [[NGImap4FileManager alloc] initWithUser:user
  54                                                   password:pwd
  55                                                   host:host];
  56   if (self->fileManager == nil) {
  57     if (user == nil) NSLog(@"missing login.");
  58     if (pwd  == nil) NSLog(@"missing password.");
  59     if (host == nil) NSLog(@"missing host.");
  60   }
  61
  62   return self->fileManager;
  63 }
  64
  65 @end /* ImapTool */