#!/usr/bin/perl

use strict;
use POSIX qw (strftime);

my @email=<STDIN>;

# Global Variables
#
my $mail_dir="/home/system/abuse-proc/messages";

my $number=$^T;

# Create the mail_file
#
open(FILE, ">$mail_dir/$number");
print FILE @email;
close FILE;
chmod (0664, "$mail_dir/$number");

#Andrew Dul <andrew(_at_)internap(_dot_)com>, October 2001.
#(c) 2001 InterNAP Network Services, Inc.
#