bsource.pl
#!/usr/local/bin/perl
# เธเธฃเธฑเธเธเธฃเธธเธ 25 เธเธฃเธเธเธฒเธเธก 2565 (28 เธเธฃเธเธเธฒเธเธก 2545)
# Version เธชเธณเธซเธฃเธฑเธ lovelampang.com เนเธฅเธฐเนเธเธดเธเนเธซเนเธเธเธฅเธณเธเธฒเธเธเธณเนเธเนเธเนเนเธเน
############################################################
# เนเธเธทเนเธญเธเธณ 10 เธเธฐเธเธนเนเธฅเนเธฒเธชเธธเธเนเธเนเธชเธเธ
# <iframe src=http://www.thaiall.com/lovelampang/board/board10.pl height="205" width="500" marginwidth="0" marginheight="0" vspace="0" hspace="0" frameborder="0"></iframe>
# เนเธเธดเนเธกเธเนเธฒเธง เธซเธฃเธทเธญเนเธชเธเธเธเธงเธฒเธกเนเธซเนเธ
# <a href=http://www.lovelampang.com/board>http://www.lovelampang.com/board</a>
############################################################
use warnings;
use Encode qw(decode encode);
require 'parse.pl';
&parse_form;
print "Content-type:text/html\n\n";
if (length($v{'key'}) eq 0) {
$q = $ENV{"QUERY_STRING"};
} else {
$q = $v{'key'};
}
# $d="/home/yonok/";
# $d = "/data1/hm/yonok/";
$d = join '/', $ENV{DOCUMENT_ROOT}, 'lovelampang';
$c{"a"}="board/boardadd.pl";
$c{"b"}="board/boardaddconfirm.pl";
$c{"c"}="board/boarddel.pl";
$c{"d"}="board/boardlist.pl";
$c{"e"}="board/boardread.pl";
$c{"f"}="board/boardreply.pl";
$c{"g"}="board/boardreplyconfirm.pl";
$c{"h"}="board/boardsearch.pl";
$c{"i"}="board/boardview.pl";
$c{"j"}="board/del.htm";
$c{"k"}="board/footer.htm";
$c{"l"}="board/header.htm";
$c{"m"}="board/headers.htm";
$c{"o"}="board/index.html";
$c{"p"}="board/parse.pl";
$c{"q"}="board/bsource.pl";
#
print '<html><head><title>PERLPHPASP.COM : Perl board source code</TITLE>',"\n";
print'<meta charset="utf-8" /><style type="text/css">',"\n";
print'A:link{COLOR:red;}',"\n";
print'A:visited{COLOR:purple;}',"\n";
print'A:hover{COLOR:blue;TEXT-DECORATION:underline;}',"\n";
print'TD{FONT-SIZE:10pt;FONT-FAMILY:Ms Sans Serif;}',"\n";
print'</style>',"\n";
print '</head><body>';
print'<table width=100% cellpadding=0 cellspacing=0 border=0>';
print'<td><a href=/><img src=/pic/logota.gif border=0 alt=logo></a></td>';
print'<td align=center><center><!--#echo banner=""--></center></td></table>',"\n";
$f = $c{$q};
if (length($q) eq "1") {
@r = split ('/',$f);
print '<table width=100% bgcolor=#000000><td><pre><font face="ms sans serif" color=#fffffd>',"\n";
print "<font size=6><b>$r[1]</b></font><ul>\n";
$myf = join '/',$d,$f;
open(myfile,"<$myf");
@getrec = <myfile>;
close(myfile);
$cntrec = @getrec;
foreach $r (@getrec) {
$r =~ s/</</g;
$r =~ s/>/>/g;
$r =~ s/"/"/g;
$r = decode("iso-8859-11",$r);
print $r;
}
print "</ul></td></table>","\n";
} else {
print "<center><font color=#ff0000 size=6>Invalid key</font></center><hr>";
foreach $k(sort keys %c){
@r = split ('/',$c{$k});
print "เธเธฑเธงเธญเธขเนเธฒเธเธเธตเน $k : $r[1] / $r[2] <a href=bsource.pl?$k>source</a><br>";
}
}
print'<hr noshade color=#ff0000><center><font size=0 color=blue face="ms sans serif">เธเนเธฒเธเธกเธฒ <b>เนเธฃเธฒเธเธญเธเนเธ</b> < - โข - > เธเนเธฒเธเนเธ <b>เนเธฃเธฒเธเธญเธเธเธธเธ</b> </font></center><table width=100% bgcolor=#000000 border=0><form Action=http://www.thaiall.com/cgi/srchweb.pl method=post><td bgcolor=#dddddd align=center><font size=0 face="ms sans serif"><a href=http://www.thaiall.com/me>เธเธตเธกเธเธฒเธ</a> | <a href=http://www.thaiallarticle.f2s.com/article>เธเธเธเธงเธฒเธก Online</a> | <a href=http://www.thaiall.com/quiz>เธจเธนเธเธขเนเธชเธญเธ Online</a> | <a href=http://www.thaisysadmin.com/user.php?op=userinfo&uname=isinthaidotcom>Thaisysadmin board</a> [<a href=http://mail.thaiall.com>Free_Mail</a>@thaiall.com]<br>เธเธเนเธฃเธตเธขเธ : <a href=http://www.thaiall.com/learn/html.htm>HTML</a>, <a href=http://www.thaiall.com/perl>PERL</a>, <a href=http://www.thaiall.com/php>PHP</a>, <a href=http://www.thaiall.com/asp>ASP</a>, <a href=http://www.thaiall.com/paint>Paint</a>, <a href=http://www.thaiall.com/face>Photoshop</a>, ';
print'<a href=http://www.thaiall.com/ai>Illustrator</a>, <a href=http://www.thaiall.com/java>Java</a>[<a href=http://www.perlphpasp.com>PerlPhpAsp</a>.com]<br><input Type=text Name=SearchText Size=40><input Type=submit value="Web search"><br><a href=http://www.thaiall.com/cgi/putting.pl>เนเธเธฐเธเธณเนเธงเนเธเนเธซเธกเน</a> . <a href=http://www.thaiall.com/rangeweb.htm>เนเธชเธเธเธเธฅเธเธฒเธฃเธเธฑเธเธญเธฑเธเธเธฑเธ</a> . <a href=http://www.thaiall.com/keyword.htm>Top Keyword</a> . [ Database <a href=http://www.thai.net/thaiall/web/search.dat>search.dat</a>, <a href=http://thaiall.webhostme.com/cgi-bin/search.mdb>search.mdb</a> ]<br>Top <a href=http://www.thaiallarticle.f2s.com/article>Article</a>: <a href=http://www.thaiall.com/me/dream.htm>Work dream</a>, <a href=http://www.thaiallarticle.f2s.com/article/datatransfer.htm>DataTransfer</a>, <a href=http://thaiall.hypermart.net>Demo-ecommerce</a>, <a href=http://www.thaiallarticle.f2s.com/article/dotcom.htm>How to dotcom</a> and <a href=http://www.thaiallarticle.f2s.com/article/mail.htm>mail</a>';
print'and <a href=http://www.thaiallarticle.f2s.com/article/promote.htm>promote</a><br>เธเธนเนเธชเธเธฑเธเธชเธเธธเธ : <a href=http://www.yonok.ac.th>เนเธขเธเธ</a>เธเธตเนเธเธณเธเธฒเธ, <a href=http://www.lampang.net>เธฅเธณเธเธฒเธ</a>เธเธตเนเธญเธขเธนเน, <a href=http://www.thai.net/thaiall>thai.net</a>Bandwidth, <a href=http://www.sumsystem.com>Sumsystem</a>เธชเธณเธเธฑเธเธเธดเธกเธเน, <a href=http://www.thaiadclick.com>Thaiadclick</a>เนเธซเนเธเนเธฒBanner<br><a href=http://www.thaiall.com/me>เธเธตเธกเธเธฒเธ</a>: เธเธงเธเนเธฃเธฒเธเธณเธเธฒเธเธเธตเนเธเธฑเธเธซเธงเธฑเธเธฅเธณเธเธฒเธ, เธเธฃเธฐเนเธเธจเนเธเธข 52000 Tel.0-1992-7223 ICQ.20449588 เธกเธตเธญเธฐเนเธฃเนเธซเนเธเนเธงเธขเธเนเธขเธดเธเธเธต<SCRIPT LANGUAGE="javascript1.1"> page="_yonok_hyper_board_bsource_pl";</SCRIPT><SCRIPT LANGUAGE="javascript1.1" src="http://truehits1.gits.net.th/data/c0001941.js"></SCRIPT></td><td width=88><a href="http://rd1.hitbox.com/rd?acct=WQ510428ABAA34EN0&p=s"><img border=0 src="http://hg1.hitbox.com/HG?hc=wf171&l=y&hb=WQ510428ABAA34EN0&cd=1&n=_yonok_hyper_board_bsource_pl"></A></td></table></form>';
print '</body></html>'; |