#!/usr/local/bin/perl5.00452 use CGI qw(:standard); #binmode(STDIN); $real_path=""; print header(); $id = param('ID'); if ($id eq "") { exit(-1); } $ename = param('E_NAME'); $bbc = param('BBCALL'); $cell = param('HANDPHONE'); $o_tel = param('O_TEL'); $o_address = param('O_ADDRESS'); $c_tel = param('C_TEL'); $c_address = param('C_ADDRESS'); $h_tel = param('H_TEL'); $h_address = param('H_ADDRESS'); $email = param('EMAIL'); $homepage = param('HOMEPAGE'); #save the file list to a array. sub DirFiles { my $Dir = $_[0]; my @files; opendir(DIR, $Dir) || return (); @files = readdir(DIR); closedir(DIR); @files; } # Process the form if there is a file name entered. print ""; print ""; print ""; print ""; if ($ename eq "ON") { print "\n"; close (FH); } } print "

中文姓名"; if ($ename eq "ON") { print "

英文姓名"; } if ($bbc eq "ON") { print "

BBCALL"; } if ($cell eq "ON") { print "

大哥大"; } if ($o_address eq "ON") { print "

住址(公/學)"; } if ($o_tel eq "ON") { print "

電話(公/學)"; } if ($c_address eq "ON") { print "

住址(通訊)"; } if ($c_tel eq "ON") { print "

電話(通訊)"; } if ($h_address eq "ON") { print "

住址(家)"; } if ($h_tel eq "ON") { print "

電話(家)"; } if ($email eq "ON") { print "

E-Mail"; } if ($homepage eq "ON") { print "

Homepage"; } print "

詳細資料\n"; foreach $DirFile (&DirFiles("/users/others/cadmate/cadmate")) { if (!($DirFile eq ".") && !($DirFile eq "..")) { $filename = "/users/others/cadmate/cadmate/" . $DirFile; open (FH, "$filename"); $_=; ($d1, $C_NAME) = split(/:/, $_, 2); $_=; ($d1, $E_NAME) = split(/:/, $_, 2); $_=; ($d1, $BBCALL) = split(/:/, $_, 2); $_=; ($d1, $HANDPHONE) = split(/:/, $_, 2); $_=; ($d1, $O_TEL) = split(/:/, $_, 2); $_=; ($d1, $O_ADDRESS) = split(/:/, $_, 2); $_=; ($d1, $C_TEL) = split(/:/, $_, 2); $_=; ($d1, $C_ADDRESS) = split(/:/, $_, 2); $_=; ($d1, $H_TEL) = split(/:/, $_, 2); $_=; ($d1, $H_ADDRESS) = split(/:/, $_, 2); $_=; ($d1, $EMAIL) = split(/:/, $_, 2); $_=; ($d1, $HOMEPAGE) = split(/:/, $_, 2); print "

$C_NAME

$E_NAME "; } if ($bbc eq "ON") { print "

$BBCALL "; } if ($cell eq "ON") { print "

$HANDPHONE "; } if ($o_address eq "ON") { print "

$O_ADDRESS "; } if ($o_tel eq "ON") { print "

$O_TEL "; } if ($c_address eq "ON") { print "

$C_ADDRESS "; } if ($c_tel eq "ON") { print "

$C_TEL "; } if ($h_address eq "ON") { print "

$H_ADDRESS "; } if ($h_tel eq "ON") { print "

$H_TEL "; } if ($email eq "ON") { @mails = split(/,/, $EMAIL); print "

"; for ($i=0; $i< @mails; $i++) { $amail = @mails[$i]; if (!($amail eq "\n")) { while (substr($amail,0,1) eq " ") { $amail = substr($amail, 1, length($amail)); } print "$amail
"; } } } if ($homepage eq "ON") { @pages = split(/,/, $HOMEPAGE); print "

"; for ($i=0; $i< @pages; $i++) { $apage = @pages[$i]; if (!($apage eq "\n")) { while (substr($apage,0,1) eq " ") { $apage = substr($apage, 1, length($apage)); } $http_header = substr($apage, 0, 7); if ($http_header eq "http://") { print "$apage
"; } else { print "$apage
"; } } } } print "

\n"; print "

"; print ""; print "";