#!/usr/bin/perl
#
# Save incoming emails to Archives
#
#
local ( $NM ) = "mail_arch.pl";
#
#
# Since spawn'd from incomign email:
#	chmod 775 /home/httpd/html/$NM
#	chgrp mail /home/httpd/html/$NM
#
local ( $DIR ) = "/home/httpd/html/$NM/chester";
#
#
# Fri Jun 23 16:00:06 PDT 2000
local ( @Date ) = split ( /\s+/, `date` );
#
local ( $Archive ) = "$DIR/$Date[5]/$Date[1]/$Date[2]";
#
#
# Save incoming emails
#
&chk_dir ( $DIR );
&chk_dir ( $Archive );
#
#
# Append incoming emails
#
` /bin/cat - >> $Archive/saved_email`;
#
#
exit 0;
#
#
# -------------------------------------------------------------
#
# check archive dir exists
#
sub chk_dir
{
  my ( $dir ) = @_[0];
  #
  if ( ! -f "$dir" ) {
    printf "\n";
    printf "${NM}: WARNING: Creating $dir..\n";
    printf "\n";
    #
    ` /bin/mkdir -p $dir `;
    #
  } # check archive
  #
} # chk_dir
#
#
# end of file