err.no Git - scalable-opengroupware.org/blob - SOGo/Protocols/iCalHTTP/SOGoICalFileFetch.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
  22 #include <NGObjWeb/WODirectAction.h>
  23
  24 @interface SOGoICalFileFetch : WODirectAction
  25 {
  26 }
  27
  28 @end
  29
  30 #include "SOGoICalHTTPHandler.h"
  31 #include <SoObjects/Appointments/SOGoAppointmentFolder.h>
  32 #include <SOGo/SOGoAppointment.h>
  33 #include "common.h"
  34
  35 @implementation SOGoICalFileFetch
  36
  37 /* clientObject */
  38
  39 - (id)clientObject {
  40   return [[super clientObject] aptFolderInContext:[self context]];
  41 }
  42
  43 /* actions */
  44
  45 - (id)defaultAction {
  46   NSAutoreleasePool *pool;
  47   WOResponse      *response;
  48   SOGoAppointment *event;
  49   NSEnumerator    *e;
  50   NSArray         *events;
  51
  52   response = [[self context] response];
  53   [response setHeader:@"text/plain" forKey:@"content-type"];
  54
  55   pool = [[NSAutoreleasePool alloc] init];
  56
  57   /* vcal preamble */
  58
  59   [response appendContentString:@"BEGIN:VCALENDAR\r\nMETHOD:REQUEST\r\n"];
  60   [response appendContentString:@"PRODID:SOGo/0.9\r\n"];
  61   [response appendContentString:@"VERSION:2.0\r\n"];
  62
  63   /* add events */
  64
  65   events = [[self clientObject] fetchAllSOGoAppointments];
  66   [self debugWithFormat:@"generate %d appointments ...", [events count]];
  67   e = [events objectEnumerator];
  68   while ((event = [e nextObject]) != nil) {
  69     [response appendContentString:[event vEventString]];
  70   }
  71
  72   /* vcal postamble */
  73   [response appendContentString:@"END:VCALENDAR\r\n"];
  74
  75   [pool release];
  76   return response;
  77 }
  78
  79 @end /* SOGoICalFileFetch */