|@rem = '--*-Perl-*--
|@echo off
|perl.exe %_batchname %$
|goto endofperl
|@rem ';
|
|# Compress mail...
|
|require 'n:/home/nwalsh/lib/cygnus.pl';
|require 'timelocal.pl';
|use Cwd;
|
|select (STDERR); $| = 1;
|select (STDOUT); $| = 1;
|
|@DIRS = ("/home/nwalsh/Mail");
|while (@DIRS) {
| $dir = shift @DIRS;
| opendir (DIR, $dir);
| while ($fname = readdir(DIR)) {
| $file = "$dir/$fname";
| next if ! -d $file;
| next if $fname =~ /^\.\.?$/;
|
| print "$file\n";
| push (@DIRS, $file);
| &compress ($file);
| }
|}
|
|exit;