#!/usr/local/bin/perl -T $ERRFILE = "/home/sites/apex/www/manage/nofiles.html"; $dir = $ENV{'REMOTE_USER'}; chomp $dir; $redir = "http://ApexDataSystems.com/clientdata/$dir"; $dirpath = "/home/sites/apex/www/clientdata/$dir"; if (-e $dirpath) { print "Location: $redir\n\n"; } elsif (-e $ERRFILE) { print "Content-type: text/html\n\n"; open F,$ERRFILE; print ; close F; } else { print "Content-type: text/html\n\n"; print "

No files exist yet

\n"; print "We have no files available for user $dir at this time.

\n"; print 'Please contact Apex Data Systems at apexdatasy@aol.com for assistance.'; print '

Back to apexdatasystems.com'; print ""; } 1;