|
1
|
1 #!/usr/bin/perl
|
|
|
2
|
|
|
3 use Calcon;
|
|
|
4
|
|
|
5 use strict;
|
|
|
6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK
|
|
|
7 );
|
|
|
8
|
|
|
9 my %input = (
|
|
|
10 'Zaurus' => 'Calcon::Zaurus_read',
|
|
|
11 'Backup Zaurus' => 'Calcon::Zaurus_backup_read',
|
|
|
12 'Xcalendar' => 'Calcon::Xcalendar_read',
|
|
|
13 'Vcard' => 'Calcon::Vcard_read',
|
|
|
14 'SLA300' => 'Calcon::Sla300_read',
|
|
|
15 'iApp' => 'Calcon::iApp_read',
|
|
|
16 'Entourage' => 'Calcon::Entourage_read',
|
|
|
17 'File' => 'Calcon::File_read',
|
|
|
18 );
|
|
|
19
|
|
|
20 my %output = (
|
|
|
21 'Xcalendar' => 'Calcon::Xcalendar_write',
|
|
|
22 'Vcard' => 'Calcon::Vcard_write',
|
|
|
23 'SLA300' => 'Calcon::Sla300_write',
|
|
|
24 'AppleScript' => 'Calcon::iApp_write',
|
|
|
25 'iApp' => 'Calcon::iApp_write',
|
|
9
|
26 'Address Book' => 'Calcon::Vcard_Apple_write',
|
|
1
|
27 'Entourage' => 'Calcon::Entourage_write',
|
|
|
28 'Print' => 'Calcon::Print_write',
|
|
|
29 'File' => 'Calcon::File_write',
|
|
|
30 );
|
|
|
31
|
|
|
32
|
|
|
33 sub find_input {
|
|
|
34 my ($input) = @_;
|
|
|
35 my ($obj);
|
|
|
36
|
|
|
37 $input =~ s/(\W)/\\$1/g;
|
|
|
38 foreach my $key ( keys %input) {
|
|
|
39 if ($key =~ /^$input/i) {
|
|
|
40 $obj = $input{$key};
|
|
|
41 last;
|
|
|
42 }
|
|
|
43 }
|
|
|
44 $obj;
|
|
|
45 }
|
|
|
46
|
|
|
47 sub find_output {
|
|
|
48 my ($output) = @_;
|
|
|
49 my ($obj);
|
|
|
50
|
|
|
51 $output =~ s/(\W)/\\$1/g;
|
|
|
52 foreach my $key ( keys %output) {
|
|
|
53 if ($key =~ /^$output/i) {
|
|
|
54 $obj = $output{$key};
|
|
|
55 last;
|
|
|
56 }
|
|
|
57 }
|
|
|
58 $obj;
|
|
|
59 }
|
|
|
60
|
|
|
61 &usage if (! @ARGV);
|
|
|
62
|
|
|
63 my $mode = "input";
|
|
|
64 my $type = "file";
|
|
|
65 my $pool = Calcon::Pool->new();
|
|
|
66 my $last_flag = 0;
|
|
|
67
|
|
|
68 while(my $file = shift( @ARGV )) {
|
|
|
69 my ($obj,$out,$opt);
|
|
|
70
|
|
|
71 if ($file =~ /^-([^-]*)-([^-]*)((-[^-]*)*)/) {
|
|
|
72 $mode = $1;
|
|
|
73 $type = $2;
|
|
|
74 $opt = $3;
|
|
|
75 $file = shift(@ARGV);
|
|
|
76 } else {
|
|
|
77 &usage_die();
|
|
|
78 }
|
|
|
79
|
|
|
80 if (0 && $#ARGV==1 && $ARGV[0]=~/^-output/) {
|
|
|
81 # we need not pool interface for this case
|
|
|
82 # It does not help speed so we abandon it.
|
|
|
83 print "Simple Case\n";
|
|
|
84 my $output = $ARGV[1];
|
|
|
85
|
|
|
86 $obj = &find_input($type);
|
|
|
87 $obj = $obj->new($opt);
|
|
|
88
|
|
|
89 $ARGV[0] =~ /^-([^-]*)-([^-]*)((-[^-]*)*)/;
|
|
|
90 $mode = $1;
|
|
|
91 $type = $2;
|
|
|
92 $opt = $3;
|
|
|
93
|
|
|
94 my $out = &find_output($type);
|
|
|
95 $out = $out->new($opt,$output);
|
|
|
96 $obj->set_output($out);
|
|
|
97 $obj -> decode($file);
|
|
|
98
|
|
|
99 $last_flag = 1;
|
|
|
100 last;
|
|
|
101 }
|
|
|
102 # print "$mode $type $opt $file\n";
|
|
|
103 if ($mode eq 'input') {
|
|
|
104 $obj = &find_input($type);
|
|
|
105 $obj = $obj->new($opt);
|
|
|
106 $obj->set_output($pool);
|
|
|
107 $obj -> decode($file);
|
|
|
108 } elsif ($mode eq 'merge') {
|
|
|
109 $obj = &find_input($type);
|
|
|
110 $obj = $obj->new($opt);
|
|
|
111 $obj->set_output($pool);
|
|
|
112 $pool->merge_mode();
|
|
|
113 $obj -> decode($file);
|
|
|
114 } elsif ($mode eq 'delete') {
|
|
|
115 $obj = &find_input($type);
|
|
|
116 $obj = $obj->new($opt);
|
|
|
117 $obj->set_output($pool);
|
|
|
118 $pool->delete_mode();
|
|
|
119 $obj -> decode($file);
|
|
|
120 } elsif ($mode eq 'output') {
|
|
|
121 $obj = &find_output($type);
|
|
|
122 $obj = $obj->new($opt,$file);
|
|
|
123 $pool->set_output($obj);
|
|
|
124 $pool->output($obj);
|
|
|
125 $last_flag = 1;
|
|
|
126 last;
|
|
|
127 }
|
|
|
128 }
|
|
|
129
|
|
|
130 if (! $last_flag) {
|
|
|
131 my $opt = '';
|
|
|
132 my $obj = &find_output('File');
|
|
|
133 $obj = $obj->new($opt);
|
|
|
134 $pool->set_output($obj);
|
|
|
135 $pool->output($obj);
|
|
|
136 $last_flag = 1;
|
|
|
137 }
|
|
|
138
|
|
|
139
|
|
|
140 sub usage_die {
|
|
|
141 &usage();
|
|
|
142 die();
|
|
|
143 }
|
|
|
144
|
|
|
145 sub usage {
|
|
|
146 print "Usage: $0 -input-xcal ~/Calendar -output-print-FC /dev/stdout\n";
|
|
|
147 print " -[mode]-[type][-options] file-name\n";
|
|
|
148 print " mode: input, merge, delete\n";
|
|
|
149 print " input type: ",join(" ",keys %input),"\n";
|
|
|
150 print " output type: ",join(" ",keys %output),"\n";
|
|
|
151 print
|
|
|
152 "\t-n\tfile-out\n",
|
|
|
153 "\t-d\tdebug\n",
|
|
|
154 "\t-a\taddress only\n",
|
|
|
155 "\t-c\tcalendar only\n",
|
|
|
156 "\t-F\tfuture only\n",
|
|
|
157 "\t-t\ttommorrow\n",
|
|
|
158 "\t-C\tdisplay count\n",
|
|
|
159 "";
|
|
|
160 }
|
|
|
161
|
|
|
162 #
|
|
|
163
|
