err.no Git - scalable-opengroupware.org/blob - SOGo/SoObjects/Mailer/SOGoMailBaseObject.m

   1 /*
   2   Copyright (C) 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$
  22
  23 #include "SOGoMailBaseObject.h"
  24 #include "common.h"
  25
  26 @implementation SOGoMailBaseObject
  27
  28 - (id)initWithImap4URL:(NSURL *)_url inContainer:(id)_container {
  29   NSString *n;
  30
  31   n = [[_url path] lastPathComponent];
  32   if ((self = [self initWithName:n inContainer:_container])) {
  33     self->imap4URL = [_url retain];
  34   }
  35   return self;
  36 }
  37
  38 - (void)dealloc {
  39   [self->imap4URL release];
  40   [super dealloc];
  41 }
  42
  43 /* IMAP4 */
  44
  45 - (NSString *)relativeImap4Name {
  46   [self logWithFormat:@"WARNING: subclass should override %@",
  47           NSStringFromSelector(_cmd)];
  48   return nil;
  49 }
  50 - (NSURL *)imap4URL {
  51   NSString *sn;
  52
  53   if (self->imap4URL != nil)
  54     return self->imap4URL;
  55
  56   if ((sn = [self relativeImap4Name]) == nil)
  57     return nil;
  58
  59   if (![[self container] respondsToSelector:_cmd]) {
  60     [self logWithFormat:@"WARNING: container does not implement -imap4URL!"];
  61     return nil;
  62   }
  63
  64   self->imap4URL = [[NSURL alloc] initWithString:[self nameInContainer]
  65                                   relativeToURL:[[self container] imap4URL]];
  66   return self->imap4URL;
  67 }
  68
  69 @end /* SOGoMailBaseObject */