viewvc.cgi/clipping/mimex

#!/usr/bin/perl -w

require 5.001;

use strict;
use vars qw($Msgno);
use Digest::MD5 qw(md5_hex);

use MIME::Parser;

my $outdir = "/tmp/store";
my $msgdir = "/tmp/mime$$";     # temp
my $to = "dpavlin@pliva.hr";

print "From: Press Clipping <pcst\@pliva.hr>\nSubject: Press Clipping update\n\n";

#------------------------------------------------------------
# dump_entity - dump an entity's file info
#------------------------------------------------------------
sub dump_entity {
    my $ent = shift;
    my @parts = $ent->parts;

    if (@parts) {       # multipart...
        map { dump_entity($_) } @parts;
    } else {            # single part...
#       print "    Part: ", $ent->bodyhandle->path, 
#             " (", scalar($ent->head->mime_type), ")\n";
        if ($ent->head->mime_type =~ m,text/plain,i) {
                open(I,$ent->bodyhandle->path) || die "$ent->bodyhandle->path: $!";
                while(<I>) { print $_; }
                close(I);
                unlink $ent->bodyhandle->path;
        } else {
                my $file=$ent->bodyhandle->path;
                my $new=$file;
                $new=~s/ +/_/g;
                $new=~s/^.*\/([^\/]+)$/$1/g;
                $new=~s/[^a-zA-Z._0-9]//g;
                my $md5=md5_hex($new.time());
                mkdir "$outdir/$md5",0755 || die "mkdir $outdir/$md5: $!";
                rename $file,"$outdir/$md5/$new" || die "$file -> $md5 $new: $!";
                print "\nhttp://store.pliva.hr/$md5/$new\n";
        }
    }
}

#------------------------------------------------------------
# main
#------------------------------------------------------------
sub main {
        my $file;
        my $entity;

        mkdir $msgdir,0755 || die "can't create $msgdir: $!";

        my $parser = new MIME::Parser;
        ### $parser->parse_nested_messages('REPLACE');
    
        $parser->output_dir($msgdir);
    
        open FILE, "-" or die "couldn't open $file";
        $entity = $parser->read(\*FILE) or 
            print STDERR "Couldn't parse MIME in $file; continuing...\n";
        close FILE;

        dump_entity($entity) if $entity;
        ### $entity->dump_skeleton if $entity;

        rmdir $msgdir || die "can't remove $msgdir: $!";

        1;
}

exit (&main ? 0 : -1);
#------------------------------------------------------------
1;


1	dpavlin	1.1	#!/usr/bin/perl -w
2
3			require 5.001;
4
5			use strict;
6			use vars qw($Msgno);
7			use Digest::MD5 qw(md5_hex);
8
9			use MIME::Parser;
10
11			my $outdir = "/tmp/store";
12			my $msgdir = "/tmp/mime$$"; # temp
13			my $to = "dpavlin@pliva.hr";
14
15			print "From: Press Clipping <pcst\@pliva.hr>\nSubject: Press Clipping update\n\n";
16
17			#------------------------------------------------------------
18			# dump_entity - dump an entity's file info
19			#------------------------------------------------------------
20			sub dump_entity {
21			my $ent = shift;
22			my @parts = $ent->parts;
23
24			if (@parts) { # multipart...
25			map { dump_entity($_) } @parts;
26			} else { # single part...
27			# print " Part: ", $ent->bodyhandle->path,
28			# " (", scalar($ent->head->mime_type), ")\n";
29			if ($ent->head->mime_type =~ m,text/plain,i) {
30			open(I,$ent->bodyhandle->path) \|\| die "$ent->bodyhandle->path: $!";
31			while(<I>) { print $_; }
32			close(I);
33			unlink $ent->bodyhandle->path;
34			} else {
35			my $file=$ent->bodyhandle->path;
36			my $new=$file;
37			$new=~s/ +/_/g;
38			$new=~s/^.*\/([^\/]+)$/$1/g;
39			$new=~s/[^a-zA-Z._0-9]//g;
40			my $md5=md5_hex($new.time());
41			mkdir "$outdir/$md5",0755 \|\| die "mkdir $outdir/$md5: $!";
42			rename $file,"$outdir/$md5/$new" \|\| die "$file -> $md5 $new: $!";
43			print "\nhttp://store.pliva.hr/$md5/$new\n";
44			}
45			}
46			}
47
48			#------------------------------------------------------------
49			# main
50			#------------------------------------------------------------
51			sub main {
52			my $file;
53			my $entity;
54
55			mkdir $msgdir,0755 \|\| die "can't create $msgdir: $!";
56
57			my $parser = new MIME::Parser;
58			### $parser->parse_nested_messages('REPLACE');
59
60			$parser->output_dir($msgdir);
61
62			open FILE, "-" or die "couldn't open $file";
63			$entity = $parser->read(\*FILE) or
64			print STDERR "Couldn't parse MIME in $file; continuing...\n";
65			close FILE;
66
67			dump_entity($entity) if $entity;
68			### $entity->dump_skeleton if $entity;
69
70			rmdir $msgdir \|\| die "can't remove $msgdir: $!";
71
72			1;
73			}
74
75			exit (&main ? 0 : -1);
76			#------------------------------------------------------------
77			1;
78
79
80
81
82
83