Gentoo Archives: gentoo-server

From: Jonathan Nichols <jnichols@×××.net>
To: gentoo-server@l.g.o
Subject: [gentoo-server] Help me with a perl script..
Date: Mon, 21 Nov 2005 00:48:42
Message-Id: 4381194C.6020000@pbp.net
1 First off, I'm lousy with Perl.
2 That being said, everything in the script works except for the few lines
3 that I've commented out, and the second to last line, where I try to
4 remove the files that are in the shared-maildir spam drop box. I've
5 tried quotes, full path names, backticks, everything that I can think
6 of, but the results end up being the same.
7
8 Help?
9
10 The script:
11
12 jnichols@mail ~/bin $ cat eat_spam.pl
13 #!/usr/bin/perl
14 #
15 # Just a script to gather up spam, tar it up,
16 # and move it over to mailgate for further
17 # processing.
18 #
19 # Friday, May 13th, 2005.
20 #
21 use warnings;
22
23 # define some variables
24 $spambucket = "/home/vmail/shared-maildirs/Spamdrop/.Incoming/cur";
25 $canofspam = "spam.tar";
26 # die if $canofspam is already there
27 # die "$canofspam already exists, exiting...\n" if (-f "$canofspam");
28 #if (-e "$canofspam") {
29 #system("tar -cf $canofspam $spambucket");
30 #} else {
31 print"Creating the tarball...\n";
32 system("tar -rf $canofspam $spambucket");
33 print"Created the tarball...\n";
34 system("chown jnichols:users $canofspam");
35 print"Changed permissions on $canofspam...\n";
36 system("scp $canofspam jnichols\@192.168.10.3:~/");
37 print"Moved $canofspam to mailgate...\n";
38 system("rm $canofspam");
39 system("ls $spambucket | while read f; do sudo rm \$f; done");
40 print"Removed old spam from $spambucket";
41
42 The results, and some stuff I've tried:
43
44 jnichols@mail ~/bin $ ./eat_spam.pl
45 Creating the tarball...
46 tar: Removing leading `/' from member names
47 Created the tarball...
48 Changed permissions on spam.tar...
49 spam.tar
50 100% 50KB 50.0KB/s 00:00
51 Moved spam.tar to mailgate...
52 rm: cannot remove
53 `1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S':
54 No such file or directory
55 rm: cannot remove
56 `1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S':
57 No such file or directory
58 rm: cannot remove
59 `1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,':
60 No such file or directory
61 rm: cannot remove
62 `1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S':
63 No such file or directory
64 rm: cannot remove
65 `1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,':
66 No such file or directory
67 rm: cannot remove
68 `1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,':
69 No such file or directory
70 rm: cannot remove
71 `1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S': No
72 such file or directory
73 rm: cannot remove
74 `1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,': No
75 such file or directory
76 Removed old spam from
77 /home/vmail/shared-maildirs/Spamdrop/.Incoming/curjnichols@mail ~/bin $
78 jnichols@mail ~/bin $ ls /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur
79 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S
80 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S
81 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,
82 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S
83 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,
84 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,
85 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S
86 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,
87 jnichols@mail ~/bin $ for i in 'ls
88 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur';do 'sudo rm $i'; done
89 -bash: sudo rm $i: command not found
90 jnichols@mail ~/bin $ for i in 'ls
91 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur';do sudo rm $i; done
92 rm: cannot remove `ls': No such file or directory
93 rm: cannot remove `/home/vmail/shared-maildirs/Spamdrop/.Incoming/cur':
94 Is a directory
95 jnichols@mail ~/bin $ ls
96 add_email.sh add_virtual.sh clear_up_spam.sh eat_spam.pl sqlbackup.sh
97 jnichols@mail ~/bin $ cd ..
98 jnichols@mail ~ $ ls
99 bin mail_sql.tar serversidefilter-1.5-1.2.7-RC1.tar.gz sqlback
100 jnichols@mail ~ $ cd bin
101 jnichols@mail ~/bin $ ls
102 add_email.sh add_virtual.sh clear_up_spam.sh eat_spam.pl sqlbackup.sh
103 jnichols@mail ~/bin $ ls /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur
104 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S
105 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S
106 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,
107 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S
108 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,
109 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,
110 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S
111 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,
112 jnichols@mail ~/bin $ for i in 'ls
113 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur';do sudo cat $i; done
114 cat: ls: No such file or directory
115 cat: /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur: Is a directory
116 jnichols@mail ~/bin $ for i in ls
117 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur ;do sudo cat $i; done
118 cat: ls: No such file or directory
119 cat: /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur: Is a directory
120 jnichols@mail ~/bin $ for i in "ls
121 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur" ;do sudo cat $i; done
122 cat: ls: No such file or directory
123 cat: /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur: Is a directory
124 jnichols@mail ~/bin $ which ls
125 /usr/bin/ls
126 jnichols@mail ~/bin $ for i in `ls
127 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur` ;do sudo cat $i; done
128 cat:
129 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S: No
130 such file or directory
131 cat:
132 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S: No
133 such file or directory
134 cat:
135 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,: No
136 such file or directory
137 cat:
138 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S:
139 No such file or directory
140 cat:
141 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,: No
142 such file or directory
143 cat:
144 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,: No
145 such file or directory
146 cat: 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S:
147 No such file or directory
148 cat: 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,:
149 No such file or directory
150 jnichols@mail ~/bin $ for i in `ls
151 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur` ;do cat $i; done
152 cat:
153 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S: No
154 such file or directory
155 cat:
156 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S: No
157 such file or directory
158 cat:
159 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,: No
160 such file or directory
161 cat:
162 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S:
163 No such file or directory
164 cat:
165 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,: No
166 such file or directory
167 cat:
168 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,: No
169 such file or directory
170 cat: 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S:
171 No such file or directory
172 cat: 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,:
173 No such file or directory
174 jnichols@mail ~/bin $ for i in `ls
175 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur` ;do file $i; done
176 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S:
177 cannot open
178 `1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S'
179 (No such file or directory)
180 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S:
181 cannot open
182 `1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S'
183 (No such file or directory)
184 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,:
185 cannot open
186 `1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,'
187 (No such file or directory)
188 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S:
189 cannot open
190 `1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S'
191 (No such file or directory)
192 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,:
193 cannot open
194 `1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,'
195 (No such file or directory)
196 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,:
197 cannot open
198 `1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,'
199 (No such file or directory)
200 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S:
201 cannot open
202 `1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S' (No
203 such file or directory)
204 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,:
205 cannot open
206 `1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,' (No
207 such file or directory)
208 jnichols@mail ~/bin $ ls /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur
209 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S
210 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S
211 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,
212 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S
213 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,
214 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,
215 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S
216 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,
217 jnichols@mail ~/bin $ ls -laFh
218 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur
219 total 49K
220 drwxrwxrwt 2 vmail vmail 752 Nov 20 16:27 ./
221 drwxr-xr-t 6 vmail vmail 224 Nov 20 16:27 ../
222 -rw-r--r-- 1 vmail vmail 2.3K Nov 19 03:03
223 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S
224 -rw-r--r-- 1 vmail vmail 1.5K Nov 19 04:29
225 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S
226 -rw-r--r-- 1 vmail vmail 8.3K Nov 19 07:34
227 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,
228 -rw-r--r-- 1 vmail vmail 9.9K Nov 19 12:26
229 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S
230 -rw-r--r-- 1 vmail vmail 1.5K Nov 19 13:12
231 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,
232 -rw-r--r-- 1 vmail vmail 2.1K Nov 19 23:00
233 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,
234 -rw-r--r-- 1 vmail vmail 2.6K Nov 20 14:31
235 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S
236 -rw-r--r-- 1 vmail vmail 2.1K Nov 20 16:27
237 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,
238 jnichols@mail ~/bin $
239 jnichols@mail ~/bin $ which file
240 /usr/bin/file
241 jnichols@mail ~/bin $ for i in `ls
242 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur` ;do `/usr/bin/file
243 $i`; done
244 -bash:
245 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S::
246 command not found
247 -bash:
248 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S::
249 command not found
250 -bash:
251 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,::
252 command not found
253 -bash:
254 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S::
255 command not found
256 -bash:
257 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,::
258 command not found
259 -bash:
260 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,::
261 command not found
262 -bash:
263 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S::
264 command not found
265 -bash:
266 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,::
267 command not found
268 jnichols@mail ~/bin $ for i in `ls
269 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur` ;do /usr/bin/file
270 $i; done
271 1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S:
272 cannot open
273 `1132422567.M220626P10407V0000000000000803I0004F9F5_5.mail,S=2307:2,S'
274 (No such file or directory)
275 1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S:
276 cannot open
277 `1132422571.M251371P10407V0000000000000803I0004FA3E_7.mail,S=1455:2,S'
278 (No such file or directory)
279 1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,:
280 cannot open
281 `1132422574.M701586P10407V0000000000000803I000503D9_8.mail,S=8450:2,'
282 (No such file or directory)
283 1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S:
284 cannot open
285 `1132442174.M698309P21779V0000000000000803I00029BE0_0.mail,S=10100:2,S'
286 (No such file or directory)
287 1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,:
288 cannot open
289 `1132442174.M699069P21779V0000000000000803I0004E35B_1.mail,S=1512:2,'
290 (No such file or directory)
291 1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,:
292 cannot open
293 `1132471810.M604970P26258V0000000000000803I00002027_0.mail,S=2098:2,'
294 (No such file or directory)
295 1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S:
296 cannot open
297 `1132531951.M353195P662V0000000000000803I0002D413_1.mail,S=2564:2,S' (No
298 such file or directory)
299 1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,:
300 cannot open
301 `1132532830.M152462P881V0000000000000803I0003441D_1.mail,S=2113:2,' (No
302 such file or directory)
303 jnichols@mail ~/bin $ for i in `ls
304 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur` ;do '/usr/bin/file
305 $i'; done
306 -bash: /usr/bin/file $i: No such file or directory
307 -bash: /usr/bin/file $i: No such file or directory
308 -bash: /usr/bin/file $i: No such file or directory
309 -bash: /usr/bin/file $i: No such file or directory
310 -bash: /usr/bin/file $i: No such file or directory
311 -bash: /usr/bin/file $i: No such file or directory
312 -bash: /usr/bin/file $i: No such file or directory
313 -bash: /usr/bin/file $i: No such file or directory
314 jnichols@mail ~/bin $ for i in 'ls
315 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur';do '/usr/bin/file
316 $i'; done
317 -bash: /usr/bin/file $i: No such file or directory
318 jnichols@mail ~/bin $ for i in ls
319 /home/vmail/shared-maildirs/Spamdrop/.Incoming/cur; do '/usr/bin/file
320 $i'; done
321 -bash: /usr/bin/file $i: No such file or directory
322 -bash: /usr/bin/file $i: No such file or directory
323 jnichols@mail ~/bin $
324
325
326 --
327 gentoo-server@g.o mailing list

Replies

Subject Author
Re: [gentoo-server] Help me with a perl script.. "Mariusz Pękala" <skoot@××.pl>
Re: [gentoo-server] Help me with a perl script.. John Doe <security.department@×××××.ch>
Re: [gentoo-server] Help me with a perl script.. Sam Halicke <tuscantwelve@×××××.com>