#!/usr/bin/perl require ("./cgi-lib.pl") || die "can\'t require cgi-lib.pl: $!";; require ("./common.pl") || die "can\'t require common.pl: $!";; @days=(0,31,28,31,30,31,30,31,31,30,31,30,31 ); #-------------------------------------------------------------------------- # Header Routine #-------------------------------------------------------------------------- sub header { local($mo,$yr)=@_; print "Content-type: text/html WebPlan User List

"; } # header #-------------------------------------------------------------------------- # Print the Footer #-------------------------------------------------------------------------- sub footer { print <<"END"; END print ""; print ""; } # footer #-------------------------------------------------------------------------- # Main Function #-------------------------------------------------------------------------- @PlanData=&obtain_user; &header; print "
\n"; &listUser; print "
\n"; &footer;