#!/usr/bin/perl
use Storable;
#use CGI qw(:standard);
use strict;
use constant ROSTER => '/storage/roster.dat';
print "Content-Type: text/html; charset=ISO-8859-1\n\n";
#print header;
my $data;
if(-e ROSTER){
$data = retrieve(ROSTER);
}
#You can edit here
#Note: Do not use the character ~ when editing without contacting someone with perl experience
print qq~
Moonglow Town Council of Atlantic - a Guild, Organization, and People
Member Roster
Name:
Title:
ICQ:
~;
#NO MORE EDITING WITHOUT SUPERVISION
#Data format:
# Hash of names
# - icq
# - title
if($data){
my @list = sort({ $a cmp $b } keys(%{ $data }));
foreach my $name (@list){
my $icq = $data->{$name}{'icq'};
my $title = $data->{$name}{'title'};
print qq~