#!/usr/bin/perl -w

use lib qw!/home/webpaper/perl/lib/perl5 /home/webpaper/perl/lib/perl5/site_perl!;
use Fcntl;
use CGI qw/:standard/;
use MLDBM qw/DB_File Storable/;

print header;
print start_html(
		 -title => "WebPaper - Registo de Clă",
		 -style => { -code => <<"EOCSS"});
    body { background: url("/~webpaper/webpaper.png") no-repeat }
    input { border: solid 1px }
    div { margin-left: 25%; margin-right: 25%; text-align: center; 
          padding: 15px; border: dotted 1px #999}
    td { padding: 2px; border: solid 1px}
    h1  { text-align: center; margin-top: 15%; margin-bottom: 10px; }
EOCSS

  print h1("WebPaper - Registos de Clăs");

tie %db, 'MLDBM', '/home/webpaper/public_html/cgi-bin/webpaper_pwds.db', O_RDWR, 0666 or die $!;
print "<table>\n";
print Tr(th("User name"), th("Cla"), th("Password"));
for (keys %db) {
  print Tr(td($_),td($db{$_}{cla}),td($db{$_}{pwd}));
}

print "</table>\n";
print end_html();