#!/usr/local/bin/perl -wT
use strict;
use CGI ':standard';
print "Content-type: text/html\n\n";
print '';
print '';
print '';
print '';
print '';
print 'Board of Directors - Secured Site';
print '';
my $psw = param('pw');
if ( index($psw, "Vallejo1") > -1 )
{
print '';
open(PHOTOINI, ";
close(PHOTOINI);
my $stemp;
foreach(@picsarray)
{
#$stemp = sprintf('%3.50s',$_);
#chomp($stemp);
$stemp = $_;
print "$stemp"."\n";
}
}
else
{
print '';
print 'To view this page, enter a valid password.';
print '';
}
print '';
print '';