;
close(DATA);
$num = @Contents;
open(DATA, ">$Data/files.list") || die "Δεν μπορώ να διαβάσω τη λίστα των αρχείων.\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);
if($cushion) {
&PrintHead;
print "
Επιτυχής διαγραφή
Το\n";
print "αρχείο \"$FileName\" διαγράφτηκε\n";
print "επιτυχώς από τη βάση των διαθέσιμων εγγράφων του έργου.\n";
print "Σας συνιστούμε να σβήσετε και το αντίστοιχο αρχείο από\n";
print "την τοποθεσία σας, γιατί συνεχίζει να είναι διαθέσιμο \n";
print "από κάποιον που θα δώσει απευθείας το URL.\n";
print "Χρησιμοποιείστε είτε FTP είτε Telnet για να σβήσετε το αρχείο αυτό.\n";
print "Αν έχετε πρόβλημα, επικοινωνήστε με το διαχειριστή του συστήματος\n";
print "όπου βρίσκεται η τοποθεσία του έργου σας.
Το πλήρες\n";
print "URL του προς διαγραφή αρχείου είναι:
\n";
print "$RootURL$FileLink\n";
print "
Ευχαριστώ.\n";
&PrintFoot;
}
else {
$Problem = "το αρχείο που επιλέξατε δεν διαγράφηκε από τη βάση," .
"των διαθέσιμων εγγράφων του έργου. Παρακαλώ στείλτε μήνυμα στο διαχειριστή σας" .
" με την ένδειξη λάθους: \"FILE NOT REMOVED\"" .
" και το όνομα του αρχείου που προσπαθήσατε να διαγράψετε.";
&Error($Problem);
}
}
else {
$Problem = "ο κωδικός ή το όνομα που δώσατε δεν ταιριάζουν.";
&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);
&PrintHead;
print "
Επιτυχής προσθήκη εγγράφου
Το αρχείο\n";
print "$FORM{'filename'} προστέθηκε με επιτυχία στη βάση των \n";
print "διαθέσιμων εγγράφων του έργου. Παρακαλώ βεβαιωθείτε ότι τα ακόλουθα\n";
print "στοιχεία που μας δώσατε για το έγγραφο αυτό είναι σωστά:\n";
print "- Ενημερωτική σελίδα του εγγράφου:\n";
print "$RootURL$FORM{'filepage'}\n";
print "
- Μέγεθος του αρχείου: $FORM{'filesize'}\n";
print "
- Τύπος του αρχείου: $FORM{'filetype'}\n";
print "
- Σύνδεση με το αρχείο: $RootURL$FORM{'filelink'}\n";
$ShowFileText = $FORM{'filetext'};
$ShowFileText =~ s/LBCR//g;
print "
- Περιγραφή εγγράφου: $ShowFileText
\n";
print "Αν τα στοιχεία αυτά δεν είναι ακριβή, θα πρέπει να τα\n";
print "ενημερώσετε από τη σελίδα\n";
print "διαχείρισης.Μπορείτε τώρα να μεταβείτε στη\n";
print "Σελίδα προσπέλασης των εγγράφων.
\n";
&PrintFoot;
}
else {
$Problem = "Δεν μπορώ να προσθέσω το έγγραφο στη βάση.";
&Error($Problem);
}
}
else {
$Problem = "ο κωδικός ή το όνομα που δώσατε δεν ταιριάζουν.";
&Error($Problem);
}
}
sub UpdateForm {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
$UpdateFile = int($FORM{'updatefile'});
open(DATA, "<$Data/files.list") || die "Δεν μπορώ να ανοίξω τη λίστα των αρχείων\n";
@Contents = ;
close(DATA);
$Content = @Contents[$UpdateFile];
&SplitData($Content);
&PrintHead;
print "
Ενημέρωση στοιχείων εγγράφου
Το\n";
print "ακόλουθο έγγραφο έχει επιλεγεί για ενημέρωση των στοιχείων του. Κάντε\n";
print "τις απαραίτητες αλλαγές και στη συνέχεια πατήστε το κουμπί ΥΠΟΒΟΛΗ.
\n";
print "
Θέλετε βοήθεια;
\n";
print "
\n";
print "
Θέλετε βοήθεια;
\n";
&PrintFoot;
}
else {
$Problem = "ο κωδικός ή το όνομα που δώσατε δεν ταιριάζουν.";
&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 "Δεν μπορώ να διαβάσω τη λίστα των αρχείων.\n";
@Contents = ;
close(DATA);
$num = @Contents;
open(DATA, ">$Data/files.list") || die "Δεν μπορώ να γράψω στη λίστα των αρχείων.\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 "Δεν μπορώ να διαβάσω τη λίστα των αρχείων.\n";
print DATA "$NewFile\n";
close(DATA);
&PrintHead;
if($cushion) {
print "
Επιτυχής ενημέρωση
Το έγγραφο\n";
print "$FORM{'filename'} ενημερώθηκε με επιτυχία. Τώρα μπορείτε να\n";
print "επιστρέψετε στη σελίδα διαχείρισης\n";
print ", ή να μεταβείτε στη σελίδα προσπέλασης των εγγράφων.\n";
print "
\n";
&PrintFoot;
}
else {
$Problem = "Το έγγραφο δεν ενημερώθηκε. Παρακαλώ προσπαθείστε ξανά, ή ειδοποιήστε το διαχειριστή.";
&Error($Problem);
}
}
else {
$Problem = "ο κωδικος ή το όνομα (User ID) που δώσατε δεν ταιριάζουν." .
"Παρακαλώ πατήστε το BACK εικονίδιο του φυλλομετρητή σας και ξαναπροσπαθήστε";
&Error($Problem);
}
}
sub Error {
$cause = @_[0];
&PrintHead;
print "ΠΡΟΒΛΗΜΑ
Κάποιο πρόβλημα παρουσιάστηκε.\n";
print "Αυτό έγινε γιατί: $cause
Παρακαλώ επιστρέψτε στην προηγούμενη\n";
print "σελίδα και ξαναπροσπαθήστε, ή\n";
print "στείλτε μήνυμα στο διαχειριστή \n";
print "για να σας βοηθήσει.
Ευχαριστώ.
\n";
&PrintFoot;
}
sub ViewLog {
&PrintHead;
print "
$SiteName
Σελίδα Καταγραφής Επισκεπτών
\n";
print "
Στη σελίδα αυτή δίνεται κατάλογος των επισκεπτών που\n";
print "ζήτησαν πρόσβαση στα διαθέσιμα αρχεία του έργου.\n";
print "
\n";
open(DATA, "<$Data/downloadlog.list")
|| die "Δεν μπορώ να ανοίξω το αρχείο\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"}
print "
Η προσπέλαση έγινε στις $DLDate, $DLTime
\n";
print " |
\n";
$a++;
}
print "
\n";
print "Αν θέλετε να διαγράψετε εγγραφές, πρέπει να το κάνετε δίνοντας\n";
print "\"Από - Έως\" εύρος των αριθμών εγγραφών που θέλετε να διαγραφούν.\n";
print "Για να διαγράψετε μια μόνο εγγραφή, απλά δώστε τον αύξοντα αριθμό της και\n";
print "στα δυο πεδία.
\n";
print "\n";
print " |
\n";
print "Αν είστε έτοιμος, πιέστε το κουμπί της ενημέρωσης για να προσθέσετε αυτές τις \n";
print "εγγραφές στο αρχείο καταχώρησης προσπελάσεων. Οι εγγραφές αυτές θα σβηστούν\n";
print "από τη σελίδα προσωρινής καταγραφής (log file) που βλέπετε αυτή τη στιγμή\n";
print "αλλά θα είναι διαθέσιμες μέσω του\n";
print "αρχείου καταχώρησης προσπελάσεων, εφόσον τις προσθέσετε σε αυτό.\n";
print "Για να γίνει αυτό πατήστε το αντίστοιχο κουμπί, αφού πρώτα δώσετε τα στοιχεία σας.\n";
print "\n";
print "\n";
print "
\n";
&PrintFoot;
}
sub ViewArchive {
&PrintHead;
print "
$SiteName
Αρχείο καταχώρησης προσπελάσεων
\n";
print "
Στη σελίδα αυτή εμφανίζονται όλες οι προηγούμενες προσπελάσεις\n";
print "επισκεπτών σε έγγραφα της τοποθεσίας, τα οποία έχουν καταγραφεί μέχρι τώρα.\n";
print "ΣΗΜΕΙΩΣΗ: Στο αρχείο αυτό, υπάρχουν μόνο οι εγγραφές που έχει επιλέξει ο \n";
print "διαχειριστής να αποθηκεύσει από τη σελίδα προσωρινής\n";
print "καταγραφής.
| | Όνομα εγγράφου | Όνομα επισκέπτη | ";
print "E-Mail επισκέπτη | Οργανισμός | Ημερομηνία προσπέλασης |
\n";
open(DATA, "<$Data/archive.list")
|| die "Δεν μπορώ να ανοίξω τη λίστα των αρχείων.\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 "Μπορείτε να καθαρίσετε το αρχείο καταχώρησης προσπελάσεων \n";
print "πατώντας το κουμπί καθαρισμού που ακολουθεί, αφού πρώτα
δώσετε\n";
print "τα στοιχεία του διαχειριστή.
\n";
print "ΣΗΜΕΙΩΣΗ: Με την ενέργεια αυτή θα χαθεί οριστικά το περιεχόμενο\n";
print "ολόκληρου του αρχείου καταχώρησης προσπελάσεων.
\n";
print "\n";
&PrintFoot;
}
sub AddArchive {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
&PrintHead;
open(DATA, "<$Data/downloadlog.list")
|| die "Δεν μπορώ να ανοίξω τη λίστα των αρχείων.\n";
@Contents = ;
$num = @Contents;
close(DATA);
open(ARCH, ">>$Data/archive.list")
|| die "Δεν μπορώ να ανοίξω το αρχείο καταχώρησης των προσπελάσεων.\n";
for($a = 0; $a < $num; $a++) {
print ARCH "$Contents[$a]";
}
close(ARCH);
open(DATA, ">$Data/downloadlog.list")
|| die "Δεν μπορώ να ανοίξω τη λίστα των αρχείων.\n";
close(DATA);
print "Επιτυχής ενημέρωση αρχείου προσπελάσεων
\n";
print "Το αρχείο καταγραφής προσπελάσεων ενημερώθηκε με επιτυχία.\n";
print "
H σελίδα προσωρινής καταγραφής έχει\n";
print "σβηστεί,
αλλά οι παρελθούσες προσπελάσεις υπάρχουν στο
\n";
print "αρχείο καταχώρησης προσεπλάσεων.\n";
print "
\n";
&PrintFoot;
}
else {
$Problem = "ο κωδικός ή το όνομα διαχειριστή που δώσατε δεν ταιριάζουν.";
&Error($Problem);
}
}
sub PurgeArchive {
if(&PassCheck($FORM{'user'}, $FORM{'pass'})) {
&PrintHead;
open(ARCH, ">$Data/archive.list")
|| die "Δεν μπορώ να ανοίξω το αρχείο καταχώρησης των προσπελάσεων.\n";
close(ARCH);
print "Επιτυχής καθαρισμός αρχείου καταχώρησης προσπελάσεων
\n";
print "Το αρχείο καταχώρησης προσπελάσεων καθαρίστηκε επιτυχώς.
Όλες οι εγγραφές
\n";
print "σβήστηκαν επιτυχώς.
\n";
&PrintFoot;
}
else {
$Problem = "ο κωδικός ή το όνομα διαχειριστή που δώσατε δεν ταιριάζουν.";
&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 "Δεν μπορώ να ανοίξω τη λίστα των αρχείων.\n";
@Contents = ;
close(DATA);
$num = @Contents;
open(DATA, ">$Data/downloadlog.list") || die "Δεν μπορώ να διαβάσω τη λίστα των αρχείων.\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 "Επιτυχής διαγραφή
Το αρχείο που επιλέξατε \n";
print "διαγράφηκε με επιτυχία από τη βάση. Μπορείτε τώρα να \n";
print "επιστρέψετε στη σελίδα διαχείρισης\n";
print ", να δείτε τη σελίδα των πρόσφατων\n";
print "προσπελάσεων, ή τη σελίδα προσπέλασης των εγγράφων.\n";
print "
\n";
&PrintFoot;
}
else {
$Problem = "Η εγγραφή που επιλέξατε δεν διαγράφηκε από τη βάση.";
&Error($Problem);
}
}
else {
$Problem = "ο κωδικός ή το όνομα διαχειριστή που δώσατε δεν ταιριάζουν.";
&Error($Problem);
}
}
sub PassCheck {
$CheckName = @_[0];
$CheckPass = @_[1];
$Name = crypt($CheckName, NB);
$Pass = crypt($CheckPass, NB);
open(PASS, "<$Data/pass.list") || die "Δεν μπορώ να διαβάσω το αρχείο των κωδικών πρόσβασης.\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 "\n";
print "$SiteName Προσπέλαση διαθέσιμων αρχείων\n";
print "\n";
}
sub PrintFoot {
print "
\n";
print "
Η επιμέλεια των \n";
print "σελίδων έγινε από το\n";
print "Ινστιτούτο\n";
print "Τεχνολογίας Υπολογιστών
\n";
print "Για περισσότερες πληροφορίες επικοινωνήστε με τον ";
print "διαχειριστή της τοποθεσίας.\n";
print "Τελευταία ενημέρωση σελίδων: Μάρτιος, 1999.\n";
print "