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
|
#! /usr/bin/perl
# $Id: store_att.pl,v 1.3 2001/09/07 11:06:15 parkerpine Exp $
use strict;
use lib "../../";
use Mail::MboxParser;
my @Mboxes;
my $Dir = shift;
if (-d $Dir) {
opendir DIR, $Dir or die "Error: Could not open $Dir: $!";
@Mboxes = readdir DIR ;
}
else {
push @Mboxes, $Dir;
}
my $Mb = Mail::MboxParser->new($Mboxes[0]);
for my $m (@Mboxes) {
my $mbox;
if (-e $m) { $mbox = $m }
else { $mbox = "$Dir/$m" }
$Mb->open($mbox);
while (my $msg = $Mb->next_message) {
$msg->store_all_attachements(path => '/tmp');
}
}
|
