#!/usr/bin/perl
#Buat database
print "Content-Type: text/html \n\n";
print "
Aktiviti Surau Desa Serdang yang berdaftar \n";
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
# split the input
@pairs = split(/&/, $input);
# split the name/value pairs
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
$tkh = "$FORM{'tkh'}";
$hari = "$FORM{'pilihan'}";
$masa = "$FORM{'masa'}";
$aktvt = "$FORM{'aktvt'}";
$tndkn = "$FORM{'tndkn'}";
# simpan data
open(TULIS, ">>aktiviti.db");
print TULIS "$FORM{'tkh'}|$FORM{'pilihan'}|$FORM{'masa'}|$FORM{'aktvt'}|$FORM{'tndkn'}\n";
close(TULIS);
#buka fail
print "
\n";
open(BUKA, "aktiviti.db");
@info = ;
close (BUKA);
print "";
print "";
print "";
print "Aktiviti semasa Surau Desa Serdang |
";
print "Tarikh | ";
print "Hari | ";
print "Masa | ";
print "Aktiviti | ";
print "Tindakan | ";
foreach $maklum(@info)
{
@data = split (/\|/,$maklum);
print"";
print "$data[0] | ";
print "$data[1] | ";
print "$data[2] | ";
print "$data[3] | ";
print "$data[4] | \n";
print "
";
}
print "
";
print "Untuk kemaskini aktiviti (pegawai yang sah sahaja)klik di sini\n";
print "";
print "kembali ke laman utama
";
exit;
print "\n";