/[clipping]/mimex
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /mimex

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Mon Jul 16 10:07:31 2001 UTC revision 1.3 by dpavlin, Mon Oct 22 18:17:12 2001 UTC
# Line 12  my $outdir = "/data/store"; Line 12  my $outdir = "/data/store";
12  my $msgdir = "/data/store/tmp/mime$$";  # temp  my $msgdir = "/data/store/tmp/mime$$";  # temp
13  my $from = 'clipping-info@pliva.hr';  my $from = 'clipping-info@pliva.hr';
14  my $to = 'clipdir@pliva.hr';  my $to = 'clipdir@pliva.hr';
15    my $log = "/data/store/mimex.log";
16    
17    open(LOG,">> $log) || warn "log $log: $!";
18    
19  open(MAIL,"| /usr/sbin/sendmail $to") || die "sendmail: $!";  open(MAIL,"| /usr/sbin/sendmail $to") || die "sendmail: $!";
20    
# Line 44  sub dump_entity { Line 47  sub dump_entity {
47                  mkdir "$outdir/$md5",0755 || die "mkdir $outdir/$md5: $!";                  mkdir "$outdir/$md5",0755 || die "mkdir $outdir/$md5: $!";
48                  rename $file,"$outdir/$md5/$new" || die "$file -> $md5 $new: $!";                  rename $file,"$outdir/$md5/$new" || die "$file -> $md5 $new: $!";
49                  print MAIL "\n","-" x 76,"\nhttp://store.pliva.hr/$md5/$new\n";                  print MAIL "\n","-" x 76,"\nhttp://store.pliva.hr/$md5/$new\n";
50                    print LOG "http://store.pliva.hr/$md5/$new\n";
51          }          }
52      }      }
53  }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26