#!/usr/bin/perl

# Upload Alert Script

opendir(DIR,'../');
@dir = readdir(DIR);
closedir(DIR);

$files = 0;

foreach $i (0..$#dir) {
	if( ($dir[$i] ne "index.html") && ($dir[$i] ne ".")
	&& ($dir[$i] ne "..") && ($dir[$i] ne "cgi-bin") ) {$files = 1}
}

if($files == 1) {
	open(MAIL,"|/usr/sbin/sendmail -t");
	print MAIL <<"EOC";
To: admin\@thiswebsite.com
From: notify\@thiswebsite.com
Reply-to: admin\@thiswebsite.com
Subject: !!! Newly Uploaded Files !!!

New files uploaded.
.
EOC
	close(MAIL);
}