|
11
|
1 #!/usr/bin/env perl
|
|
|
2 $sep = "--" . $ARGV[0];
|
|
|
3 $dir = ($ARGV[1] || "tmp");
|
|
12
|
4 if ($dir =~ /^([^<>\;\&]*)$/) {
|
|
|
5 $dir = $1;
|
|
|
6 }
|
|
11
|
7
|
|
|
8 #print "sep=".$sep, "dir=$dir\n";
|
|
|
9 #binmode STDIN;
|
|
|
10 $/ = undef;
|
|
|
11 $stream = (<STDIN>);
|
|
|
12 $n=0;
|
|
|
13 @slices = split($sep, $stream);
|
|
|
14 shift(@slices);
|
|
|
15 pop(@slices);
|
|
|
16 foreach $item (@slices) {
|
|
|
17 $item =~ s/^\n//;
|
|
|
18 ($header = $item) =~ s/\r\n\r\n.*//s;
|
|
|
19 ($body = $item) =~ s/.*?\r\n\r\n//s;
|
|
|
20 $body =~ s/\r\n$//;
|
|
|
21 #print "h=[$header]\n";
|
|
|
22 #print "b=[$body]\n";
|
|
|
23 unless ($header =~ /\bname=([\"']?)(.*?)\1/) {
|
|
|
24 next;
|
|
|
25 }
|
|
|
26 $name = $2;
|
|
|
27 #print "name=$name\n";
|
|
|
28 if ($header =~ /filename=(['\"]?)(.*?)\1/ && $2 gt "") {
|
|
12
|
29 $fn=$2;
|
|
|
30 if ($fn =~ /^([^\/]*)$/) {
|
|
|
31 $fn = $1;
|
|
|
32 }
|
|
11
|
33 open(OUT, ">$dir/$fn");
|
|
|
34 print OUT $body;
|
|
|
35 close(OUT);
|
|
|
36 printf("%s:filename=%s\n", $name, unpack("H*", $fn));
|
|
|
37 } else {
|
|
|
38 printf("%s=%s\n", $name, unpack("H*", $body));
|
|
|
39 }
|
|
|
40 }
|
