;
close(DATA);
if(!$Contents[0]) {
@Contents = restore("$Data/files.list");
}
$num = @Contents;
open(DATA, ">$Data/files.list") || die "Can't read files list\n";
for($a = 0; $a < $num; $a++) {
$Content = @Contents[$a];
chop($Content);
if($a == $RemoveFile) {
chop($Content);
&SplitData($Content);
$cushion = 1;
}
else {print DATA "$Content\n"}
}
close(DATA);
backup("$Data/files.list");
if($cushion) {
&PrintHead;
print "
Successful Removal -
The\n";
print "file \"$FileName\" was\n";
print "successfully removed from the database of available\n";
print "files.It is recommended that you now remove or move\n";
print "this file from it's present location as it is still\n";
print "accessible from the direct entry of the URL. Either\n";
print "use FTP or Telnet to remove this file. If you don't\n";
print "know how, contact your SysAdmin or the person that\n";
print "installed download control to do this for you.
The\n";
print "full URL for the file in questions is:
\n";
print "$RootURL$FileLink\n";
print "
Thank You.\n";
&PrintFoot;
}
else {
$Problem = "the file you selected was not removed from the" .
"database of available files. Please email the webmaster" .
" and advise him the error was \"FILE NOT REMOVED\"" .
" and what file you tried to delete.";
&Error($Problem);
}
}
else {
$Problem = "your Password or User ID did not match our database." .
" Please use the back button on your browser and try again";
&Error($Problem);
}
}
sub AddFile {
$setlink = $FORM{'filelink'};
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
unless($FORM{'filesize'}) {
$FORM{'filesize'} = (-s '$RootURL$setlink');
}
$NewFile = $FORM{'filename'} . "||" . $FORM{'filepage'} . "||" .
$FORM{'filesize'} . "||" . $FORM{'filetype'} . "||" .
$FORM{'filelink'} . "||" . $FORM{'filetext'};
if(open(DATA, ">>$Data/files.list")) {
print DATA "$NewFile\n";
close(DATA);
backup("$Data/files.list");
&PrintHead;
print "
Successful Addition -
The file\n";
print "$FORM{'filename'} was successfully added to the database\n";
print "of available files. Please ensure that the following\n";
print "information, which you provided for this file is\n";
print "correct:- Information Page:\n";
print "$RootURL$FORM{'filepage'}\n";
print "
- File Size: $FORM{'filesize'}\n";
print "
- File Type: $FORM{'filetype'}\n";
print "
- File Link: $RootURL$FORM{'filelink'}\n";
$ShowFileText = $FORM{'filetext'};
$ShowFileText =~ s/LBCR//g;
print "
- Description: $ShowFileText
\n";
print "If this information is incorrect then you will have to\n";
print "update the info from the\n";
print "administration page.You may now go to the\n";
print "Download Page
\n";
&PrintFoot;
}
else {
$Problem = "we could not add the file to the list.";
&Error($Problem);
}
}
else {
$Problem = "your Password or User ID did not match our database." .
"Please use the back button on your browser and try again";
&Error($Problem);
}
}
sub UpdateForm {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
$UpdateFile = int($FORM{'updatefile'});
open(DATA, "<$Data/files.list") || die "Can't open file list\n";
@Contents = ;
close(DATA);
if(!$Contents[0]) {
@Contents = restore("$Data/files.list");
}
$Content = @Contents[$UpdateFile];
&SplitData($Content);
&PrintHead;
print "
Update file information -
The\n";
print "following file has been selected for updating. Make any\n";
print "changes necessary and then press the SUBMIT button.
\n";
print "
HELP FILE?
\n";
print "
\n";
print "
HELP FILE?
\n";
&PrintFoot;
}
else {
$Problem = "your Password or User ID did not match our database." .
"Please use the back button on your browser and try again";
&Error($Problem);
}
}
sub UpdateFinal {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
local($cushion) = 0;
$UpdateFile = int($FORM{'updatenumber'});
$size = $FORM{'filesize'};
unless($size) {
$size = (-s '$RootURL$size');
}
$NewFile = $FORM{'filename'} . "||" . $FORM{'filepage'} . "||" .
$size . "||" . $FORM{'filetype'} . "||" .
$FORM{'filelink'} . "||" . $FORM{'filetext'};
open(DATA, "<$Data/files.list") || die "Can't read files list\n";
@Contents = ;
close(DATA);
if(!$Contents[0]) {
@Contents = restore("$Data/files.list");
}
$num = @Contents;
open(DATA, ">$Data/files.list") || die "Can't write to files list\n";
for($a = 0; $a < $num; $a++) {
$Content = @Contents[$a];
if($a == $UpdateFile) {
$cushion = 1;
}
else{
chop($Content);
print DATA "$Content\n";
}
}
close(DATA);
open(DATA, ">>$Data/files.list") || die "Can't read files list\n";
print DATA "$NewFile\n";
close(DATA);
backup("$Data/files.list");
&PrintHead;
if($cushion) {
print "
Successful Update -
The file\n";
print "$FORM{'filename'} was succesfully updated. You may now\n";
print "return to the admin page\n";
print " or go to the Download Page\n";
print "
\n";
&PrintFoot;
}
else {
$Problem = "the file was not updated. Please try again or contact the system administrator.";
&Error($Problem);
}
}
else {
$Problem = "your Password or User ID did not match our database." .
"Please use the back button on your browser and try again.";
&Error($Problem);
}
}
sub Error {
$cause = @_[0];
&PrintHead;
print "Error-
An error has occured.\n";
print "You have received this error because $cause.
Please use\n";
print "the back button on your browser to try again or\n";
print "e-mail the webmaster to\n";
print "request assistance.
Thank You.
\n";
&PrintFoot;
}
sub ViewLog {
&PrintHead;
print "
$SiteName
Download Log
\n";
print "
Here is the summary of files and people\n";
print "who have used this program to download files from your\n";
print "web site.
\n";
open(DATA, "<$Data/downloadlog.list")
|| die "Can't open file list\n";
@Contents = ;
close(DATA);
local($a) = 1;
foreach $Content (@Contents) {
@File = split(/\|\|/, $Content);
$FileName = $File[0];
$UserName = $File[1];
$UserEmail = $File[2];
$Company = $File[3];
$DLDate = $File[4];
$DLTime = $File[5];
print "Entry Number: $a
\n";
print "$FileName
$UserName
\n";
print "$UserEmail\n";
if($Company) {print "
Company: $Company
\n"}
print "
Downloaded on $DLDate, at $DLTime
\n";
print " |
\n";
$a++;
}
print "
\n";
print "If you would like to delete entries, you must do so entering a\n";
print "\"From - To\" range of numbers according to the above entry\n";
print "numbers. If you would like to removea single entry, just enter\n";
print "that number in both fields.
\n";
print "\n";
print " |
\n";
print "If you are ready, press this button
to add these log\n";
print "entries to the archive. They will be
erased from the\n";
print "download log but can still be viewed
in the archive.\n";
print "\n";
print "\n";
print "
\n";
&PrintFoot;
}
sub ViewArchive {
&PrintHead;
print "
$SiteName
Download Log Archive
\n";
print "
Here is the archive of all past downloads for files and people\n";
print "who have used this program to download files from your\n";
print "web site.
| | File Name | User Name | ";
print "User E-Mail | Company | Date & Time |
\n";
open(DATA, "<$Data/archive.list")
|| die "Can't open file list\n";
@Contents = ;
close(DATA);
local($a) = 1;
foreach $Content (@Contents) {
@File = split(/\|\|/, $Content);
$FileName = $File[0];
$UserName = $File[1];
$UserEmail = $File[2];
$Company = $File[3];
$DLDate = $File[4];
$DLTime = $File[5];
print "| $a | \n";
print "$FileName | $UserName | \n";
print "$UserEmail | \n";
if($Company) {print "$Company | \n"}
else {print " | \n"}
print "$DLDate - $DLTime |
\n";
$a++;
}
print "
\n";
print "You may purge the archive by
\n";
print "pressing the button below.
\n";
print "By doing this, you will remoove
\n";
print "all entries from the archvie
\n";
print "and you will not be able to retrieve them.
\n";
print "\n";
&PrintFoot;
}
sub AddArchive {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
&PrintHead;
open(DATA, "<$Data/downloadlog.list")
|| die "Can't open file list\n";
@Contents = ;
$num = @Contents;
close(DATA);
open(ARCH, ">>$Data/archive.list")
|| die "Can't open archive file\n";
for($a = 0; $a < $num; $a++) {
print ARCH "$Contents[$a]";
}
close(ARCH);
open(DATA, ">$Data/downloadlog.list")
|| die "Can't open file list\n";
close(DATA);
print "Successful Archive Update -
\n";
print "Archive succesfully updated.
Your download log has been\n";
print "erased
but all past entries are still available
from\n";
print "the archive file.
\n";
&PrintFoot;
}
else {
$Problem = "your UserID and Password did not match the database.";
&Error($Problem);
}
}
sub PurgeArchive {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
&PrintHead;
open(ARCH, ">$Data/archive.list")
|| die "Can't open archive file\n";
close(ARCH);
print "Successful Archive Purge -
\n";
print "Archive succesfully purged.
All entries have been
\n";
print "removed from the archive.
\n";
&PrintFoot;
}
else {
$Problem = "your UserID and Password did not match the database.";
&Error($Problem);
}
}
sub RemoveLog {
local($FirstEntry) = int($FORM{'first'});
local($LastEntry) = int($FORM{'last'});
local($cushion) = 0;
local($b) = $FirstEntry - 1;
local($c) = $LastEntry - 1;
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
open(DATA, "<$Data/downloadlog.list")
|| die "Can't open file list\n";
@Contents = ;
close(DATA);
$num = @Contents;
open(DATA, ">$Data/downloadlog.list") || die "Can't read files list\n";
for($a = 0; $a < $num; $a++) {
$Content = @Contents[$a];
chop($Content);
if(($a < $b) || ($a > $c)) {
print DATA "$Content\n";
}
else {$cushion = 1}
}
close(DATA);
if($cushion) {
&PrintHead;
print "Successfull Removal -
The file you selected\n";
print "was successfuly removed from the database. You may now\n";
print "return to the admin page\n";
print ", the access log\n";
print "page or the Download Page\n";
print "
\n";
&PrintFoot;
}
else {
$Problem = "the entry you selected was not deleted.";
&Error($Problem);
}
}
else {
$Problem = "your UserID and Password did not match the database.";
&Error($Problem);
}
}
sub PassCheck {
$CheckName = @_[0];
$CheckPass = @_[1];
$Name = crypt($CheckName, NB);
$Pass = crypt($CheckPass, NB);
open(PASS, "<$Data/pass.list") || die "Can't read pass file\n";
$Compare = ;
close(PASS);
chop($Compare);
($CompareName, $ComparePass) = split(/\t/, $Compare);
if(($Name eq $CompareName) && ($Pass eq $ComparePass)) {
return(1);
}
else{return(0)}
}
sub PrintHead {
print "$SiteName File Download\n";
print "\n";
}
sub PrintFoot {
print "
© 1998, Jim Melanson Web Design
\n";
print "Downloading maintained by My Downloader V1.0\n";
print "
Script Protection by\n";
print "Attack Guard V1.0\n";
print "