# Perl script 'save'
#!/usr/bin/perl

use strict;
use Digest::MD5  qw(md5_hex);

use vars qw($data $digest $mbox);

$mbox = shift @ARGV;

while (<>) {
  $data .= $_;
}

$digest = md5_hex($data);

if (-e "digests/$digest") {
  print "!";
} else {
  open(F, ">>output/$mbox") or die "outbox: $!";
  print F $data;
  close(F);

  open(G, ">digests/$digest") or die "digests: $!";
  print G "\n";
  close(G);

  print ".";
}