#!/usr/bin/perl ############################################################################## # WWWAdmin Version 2.0 ALPHA 2 # # Copyright 1996 worldwidemart.com # # Scripts Archive: https://www.worldwidemart.com/scripts/ # ############################################################################## # Administrative interface for WWWBoard # ############################################################################## use strict; use warnings; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); # Configuration - MUST match wwwboard.pl settings my $basedir = '.'; my $meession = "$basedir/wwwboard.html"; my $message_dir = "$basedir/messages"; my $data_file = "$basedir/data.txt"; # Admin password - CHANGE THIS! my $admin_password = 'changeme'; ############################################################################## # Main Script ############################################################################## my $cgi = CGI->new; my $action = $cgi->param('action') || 'login'; my $pass = $cgi->param('password') || ''; if ($action eq 'login' || !verify_password($pass)) { show_login(); } elsif ($action eq 'admin') { show_admin(); } elsif ($action eq 'delete') { delete_messages(); } elsif ($action eq 'reset') { reset_board(); } ############################################################################## # Subroutines ############################################################################## sub verify_password { my ($pass) = @_; return $pass eq $admin_password; } sub show_login { print $cgi->header('text/html'); print < WWWBoard Admin Login

WWWBoard Admin

HTML } sub show_admin { print $cgi->header('text/html'); # Get list of messages my @messages; if (-d $message_dir) { opendir(my $dh, $message_dir); @messages = sort { $b <=> $a } grep { /^\d+\.html$/ } readdir($dh); closedir($dh); } print < WWWBoard Administration

WWWBoard Administration

Statistics:
Total Messages: @{[scalar @messages]}

Messages

    HTML foreach my $msg (@messages) { my $num = $msg; $num =~ s/\.html$//; print qq{
  • Message #$num View
    • \n}; } print <

    Danger Zone

    Back to Board

    HTML } sub delete_messages { foreach my $key ($cgi->param) { if ($key =~ /^delete_(\d+)$/) { my $num = $1; unlink "$message_dir/$num.html" if -e "$message_dir/$num.html"; } } show_admin(); } sub reset_board { # Remove all messages if (-d $message_dir) { opendir(my $dh, $message_dir); foreach my $file (readdir($dh)) { next if $file =~ /^\./; unlink "$message_dir/$file"; } closedir($dh); } # Reset counter open(my $fh, '>', $data_file); print $fh "0"; close($fh); # Reset main board open($fh, '>', $meession); print $fh get_default_board(); close($fh); show_admin(); } sub get_default_board { return <<'TEMPLATE'; WWWBoard - Discussion Forum

    WWWBoard

    Post New Message

    TEMPLATE } __END__