#!/usr/local/bin/perl #!/usr/local/bin/perl5.00452 use CGI qw(:standard); $name = param('ID'); $pass = param('PASSWORD'); $r1 = param('R1'); sub DirFiles { my $Dir = $_[0]; my @files; opendir(DIR, $Dir) || return (); @files = readdir(DIR); closedir(DIR); @files; } print header(); # The routine for create socket and binding server and client. ($d1, $d2, $prototype) = getprotobyname("tcp"); ($d1, $d2, $d3, $d4, $rawclient) = gethostbyname("nthucad"); ($d1, $d2, $d3, $d4, $rawserver) = gethostbyname("nthucad"); $clientaddr = pack ("Sna4x8", 2, 0, $rawclient); $serveraddr = pack ("Sna4x8", 2, 110, $rawserver); socket (SOCKET, 2, 1, $prototype) || die ("No Socket\n"); bind (SOCKET, $clientaddr) || die ("Can't bind\n"); connect (SOCKET, $serveraddr); select(SOCKET); $| = 1; select(STDOUT); $line = ; print SOCKET "user $name\r\n"; $line = ; print SOCKET "pass $pass\r\n"; $line = ; ($state, $msg) = split(/ /, $line, 2); print SOCKET "quit\r\n"; $line = ; close(SOCKET); if ($state eq "+OK") { if ($r1 eq "V1") { # Process the form if there is a file name entered. print ""; print "

Hello! $name

Way 1:

查詢全部同學部份資料


請按下你需要的選項
中文姓名 英文姓名
B. B. Call 大哥大
地址(公/學) 電話(公/學)
地址(通訊) 電話(通訊)
地址(家) 電話(家)
E-Mail Homepage

"; print "

\n"; print "

Way 2:

\n"; print "

查詢單一同學資料

\n"; print "

\n"; print "
\n"; print "
\n" ; $member_count = 0; print "\n"; print "\n"; print "
\n"; print "
\n"; print "

"; print "
Ya! Now we have $member_count members.
"; print ""; print ""; } else { foreach $DirFile (&DirFiles("/raid/web/cadmate")) { if ($DirFile eq $name) { $filename = "/raid/web/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 "\n"; print "\n"; print "
\n"; print "

通訊錄更新

\n"; print "

\n"; print "
\n"; print "\n"; print ""; print ""; print "
中文姓名"; print "
英文姓名"; print "
B.B.Call"; print "
大哥大"; print "
公:辦公室; 學:學校(實驗室) 白天可以聯絡到的資料"; print "
電話(公/學)"; print "
住址(公/學)"; print "
通訊:外宿或宿舍 晚上可以聯絡到的資料"; print "
電話(通訊)"; print "
住址(通訊)"; print "
電話(家), 住址(家) 請填寫永久住址"; print "
電話(家)"; print "
住址(家)"; print "
請用逗號','分隔兩個以上的 E-Mail Address 與 Homepage 網址"; print "
E-Mail"; print "
Homepage"; print "
"; print "
"; print "
"; print "
"; print ""; print ""; print ""; print "
"; print ""; } } else { print "\n"; print "\n"; print "
\n"; print "

此為私人網頁，閒雜人等

\n"; print "

請勿進入

\n"; print "

This is a private webpage

\n"; print "

Please don't enter without permission

\n"; print "

\n"; print "\n"; }