How Can I ..

apphog · Jan 4, 2002

Hello People

I need a perl code that can stop a java script to run.

I did put a simple one line chatting box on my website but some people put java script on chatting box to mess up my website...

Is there any way to stop this??

thank you in advance

and sorry about my poor english

thank you again

hmerrill · Jan 4, 2002

What is your website written in? What hardware? What language? What webserver? Hardy Merrill
Mission Critical Linux, Inc.

http://www.missioncriticallinux.com

apphog · Jan 4, 2002

Here is the code... I didn't write this code I got it from friend

thank you in advance..

#!/usr/bin/perl

print "Content-type: text/html\n\n";

#################### Here ReadParse() Routine #####################

if($ENV{'QUERY_STRING'}) { $buffer=$ENV{'QUERY_STRING'}; }

else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }

@pairs=split(/&/,$buffer);

foreach $pair (@pairs) {
($name, $value)=split(/=/, $pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~s/\|/\&\#124\;/g;
$value =~ s/\n/<br>/g;
$FORM{$name}=$value;
}

$usr_ip=$ENV{'REMOTE_ADDR'};
$usr_count=0;

&GetDate();

open(DATA, ">./logs/$usr_ip&quot

;
print DATA time;
close(DATA);

opendir(LOG_DIR, "./logs&quot

;
@FILES=readdir(LOG_DIR);
closedir(LOG_DIR);

foreach $file (@FILES) {

if (($file ne ".&quot

&& ($file ne "..&quot

) {

open(DATA, "./logs/$file&quot

;
@LINES=<DATA>;
close(DATA);

if( (time - $LINES[0]) < 20 ) { ++$usr_count; }
else { system "rm -rf ./logs/$file"; }

}
}

if($FORM{'coment'}) {
open(CHAT,">./coment.log&quot

;
print CHAT $FORM{'coment'};
close(CHAT);
}

open(CHAT,"./coment.log&quot

;
@LINE=<CHAT>;
close(CHAT);

$coment=$LINE[0];
$comment=~tr/</ /;
$comment=~tr/>/ /;

&PrintResult();

exit;

sub GetDate() {
($sec,$min,$hour,$mday,$mon,$wday,$yday,$isdst) = localtime(time);
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($mon < 10) { $mon = "0$mon"; }
$month = ($mon + 1);
if ($month < 10) { $month = "0$month"; }
$date = " $month¿ù $mdayÀÏ $hour½Ã $minºÐ";
}

######################## Ãâ·ÂºÎ ÃëÇâ¿¡ µû¶ó ¼öÁ¤ »ç¿ëÇÏ¼¼¿ä ! ##############################

sub PrintResult() {
print<<END;
<title>¢º $coment </title>
<meta http-equiv="refresh" content="7;url=./login.cgi">
<style type="text/css">

</style>
</head>

<body bgcolor="#000000" link="blue" vlink="purple"
alink="red">

<div align="right"><table border="0" cellpadding="0" cellspacing="0" width="100%"
height="18">
<tr>
<td valign="bottom"><p align="left">
<font size="2" color="#999999">¡¼ $coment ¡½</font></td>
<td valign="bottom"><p align="right">
<font size="2" color="#555555"> ÇöÀçÁ¢¼ÓÀÚ </font><font size="2" color="#ffffff"><b>$usr_count</b></font><font
size="2" color="#555555">¸í </font></td>
</tr>
</table></div>
</body>

</html>
END
}

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How Can I ..

apphog

MIS

hmerrill

Programmer

apphog

MIS

Similar threads

Part and Inventory Search

Sponsor