Well, its the usual case of 'this script isnt working and im sure its some silly little error that i just cant notice cause i wrote the script, so i need someone else to look at it and see if they notice anything' type of problem. the script is supposed to be run in a cron job to check the directory one step above itself, see if there are any newly uploaded files, and if so, email someone and alert them. thanks in advance, and sorry to take up yer time :)

#!/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);
}
[download]

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.