File: UIxFilterList.m

package info (click to toggle)
sogo 2.2.9%2Bgit20141017-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 43,812 kB
  • sloc: objc: 115,592; python: 5,696; sh: 1,380; perl: 861; makefile: 240; xml: 114; sql: 53; php: 43
file content (116 lines) | stat: -rw-r--r-- 2,840 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
/*
  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.
*/

#import <Foundation/NSCalendarDate.h>
#import <NGObjWeb/SoObject.h>
#import <SoObjects/Mailer/SOGoMailFolder.h>
#import <SoObjects/Mailer/SOGoMailObject.h>
#import <SOGoUI/UIxComponent.h>

/*
  UIxFilterList

  This component shows a list of filter scripts and is (usually) attached to
  a SOGoSieveScriptsFolder object.
*/

@interface UIxFilterList : UIxComponent
{
  NSArray *filters;
  id filter;
}

@end

@implementation UIxFilterList

- (void)dealloc {
  [self->filter  release];
  [self->filters release];
  [super dealloc];
}

/* notifications */

- (void)sleep {
  [self->filter  release]; self->filter  = nil;
  [self->filters release]; self->filters = nil;
  [super sleep];
}

/* accessors */

- (void)setFilter:(id)_msg {
  ASSIGN(self->filter, _msg);
}
- (id)filter {
  return self->filter;
}

- (NSArray *)filters {
  return self->filters;
}

- (NSString *)panelTitle {
  return [self labelForKey:@"Mail Filters"];
}

/* JavaScript code */

- (NSString *)clickedFilterJS {
  /* return 'false' aborts processing */
  return [NSString stringWithFormat:
		     @"clickedFilter(this, '%@'); return false", 
		     [self filter]];
}

/* creating scripts */

- (NSString *)newScriptName {
  NSCalendarDate *now;
  
  now = [NSCalendarDate date];
  return [NSString stringWithFormat:@"MyFilter-%04d%02d%02d-%02d%02d%02d",
		   [now yearOfCommonEra], [now monthOfYear], 
		   [now dayOfMonth],
		   [now hourOfDay], [now minuteOfHour], [now secondOfMinute]];
}

/* actions */

- (id)defaultAction {
  [self debugWithFormat:@"fetch scripts in: %@", [self clientObject]];
  self->filters = [[[self clientObject] toOneRelationshipKeys] copy];
  return self;
}

- (id)createAction {
  NSString *newURL;
  
  newURL = [[self clientObject] baseURLInContext:[self context]];
  if (![newURL hasSuffix:@"/"]) newURL = [newURL stringByAppendingString:@"/"];
  newURL = [newURL stringByAppendingString:[self newScriptName]];
  newURL = [newURL stringByAppendingString:@"/edit"];
  
  return [self redirectToLocation:newURL];
}

@end /* UIxFilterList */