Masking last 3 digits of IP? (Perl CGI Chat)

mnemo · Jun 3, 2003

Does anyone know how to mask the last 3 digits of an IP? I'm restoring an old chatroom to it's former state and this was included. Now I managed to include the whole IP along with the messages being posted, but I would like to mask out the last 3 digits (better the digits behind the last dot, may it be one, two or three digits behind it.) and replace them with ***. So It would look like this 213.84.7.*** instead of 213.84.7.13. Any help would be very appreciated, I know for someone with decent knowledge of perl, maybe with a good look at the script he or she could help me solve it.
For an example of the chat and the script, please see

http://www.geocities.com/Athens/9448/chat.html

( It's the upper room) If you know how this can be solved please let me know.

Regards, Marc (mnemo)

PaulTEG · Jun 3, 2003

There are more elegant ways but this'll get you started

Code:

$ip =&quot;213.84.7.13&quot;;

$rip = reverse $ip;
$rip =~ s/\d+\./***\./;
$ip=reverse $rip;

HTH
Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

fishiface · Jun 3, 2003

Without the reverse, you need to anchor the pattern to the end of the string:

Code:

$ip = &quot;213.84.7.13&quot;;
$ip =~ s/\.\d+$/.***/;
print $ip;

If the address is not the entire string,

Code:

$logline = &quot;12:03 213.84.7.13 404 Not Found&quot;;
$logline =~ s/((:?\d+\.){3}\d+)/$1***/;
print $logline;

That looks better with my favourite /x modifier:

Code:

$logline =~
 s/            # Substitute
   (           # collect into $1
      (:?      # a group consisting of ...
         \d+   # ...some digits...
         \.    # ... then a period...
      ){3}     # ... whole group thrice.
      \d+      # then more digits
   )           # all of that into $1.
 /             # Replace with...
   $1***
 /x;           # Legible!

Yours,

fish

"As soon as we started programming, we found to our surprise that it wasn't as
easy to get programs right as we had thought. Debugging had to be discovered.
I can remember the exact instant when I realized that a large part of my life
from then on was going to be spent in finding mistakes in my own programs."
--Maurice Wilk

mnemo · Jun 3, 2003

Aww! Your help is so much apreciated. But I lack the knowledge of Perl to get this solved. I got a little further in my understanding what to do if I would find the part of the script responsable for handeling the IP part. But it's not as easy as you make it look. There is no such thing as $ip in the script, if I would find that somewhere I would play and puzzle it out with time, but I'm completely lost somehow and now I have found some people who know and I don't understand them... lol .. irony.

Thanks for the help though,

marc (mnemo)

fishiface · Jun 3, 2003

Do you want to post the code?

fish

"As soon as we started programming, we found to our surprise that it wasn't as
easy to get programs right as we had thought. Debugging had to be discovered.
I can remember the exact instant when I realized that a large part of my life
from then on was going to be spent in finding mistakes in my own programs."
--Maurice Wilk

mnemo · Jun 3, 2003

#!/usr/bin/perl

$conf_file = "chat.conf";
$default_lang_file = "chat.lang";
$banip = "banip.php";

&main;

require($banip);

sub main {
$|=1;
require($conf_file);
if (-e "$plugin_dir/plugin.conf&quot

{
require("$plugin_dir/plugin.conf&quot

;
}
&set_values;

$lang_file = $default_lang_file;
$lock_file = "lock";

$our_link = "

http://www.latinfashion.nl/";

$our_image = "<font size=-1>Sponsored by<br> <a target=\"_new\" href=\"$our_link\">

http://www.LatinFashion.nl</a></font>";

if($profile_plugin) {
$profiles_active = 1;
require ("$plugin_dir/profile.pl&quot

;
}

$oshow_status = $show_status;

$time = time() + ($time_zone * 3600);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

#Y2K Display Fix
$year =~ s/^\d(\d\d)$/$1/;

if ($sec < 10) {
$sec = "0$sec";
}
if ($min < 10) {
$min = "0$min";
}
if ($hour < 10) {
$hour = "0$hour";
}

$mon++;

if ($mon < 10) {
$mon = "0$mon";
}

if ($mday < 10) {
$mday = "0$mday";
}

if($include_date == 1) {
$date = "$mon/$mday/$year $hour\:$min\:$sec";
$archive_date = "$mon/$mday/$year $hour\:$min\:$sec";
}
elsif($include_date == 2) {
$date = "$hour\:$min\:$sec";
$archive_date = "$mon/$mday/$year $hour\:$min\:$sec";
}
else {
$date = "$hour\:$min\:$sec";
$archive_date = "$hour\:$min\:$sec";
}

&lock;

if ($ENV{'QUERY_STRING'} =~ /^topframe/ && !$ENV{'CONTENT_LENGTH'}) {
require("$plugin_dir/frames.pl&quot

|| die "Couldn't find frames part";
&topframe;
}
elsif ($ENV{'QUERY_STRING'} =~ /^ct--/) {
require("$plugin_dir/advertise.pl&quot

|| die "Couldn't find ad part";
&lock;
&click_through;
&unlock;
exit;
}
elsif ($ENV{'PATH_INFO'} =~ /^\/bottomframe/) {
require("$plugin_dir/frames.pl&quot

|| die "Couldn't find frames part";
$bottomframe = 1;
&bottomframe;
}
elsif ($ENV{'QUERY_STRING'} =~ /^ad_summary/) {
&unlock;
require("$plugin_dir/advertise.pl&quot

;
&ad_summary;
exit;
}

elsif ($ENV{'QUERY_STRING'} =~ /^register/) {
require("$plugin_dir/register.pl&quot

;
exit;
}
else {
if($ENV{'CONTENT_LENGTH'}) {
&parse_form;
&get_variables;
if ($admin_plugin && $adminyes && $message =~ /^command::/) {
require("$plugin_dir/admin.pl&quot

;
&admin_work;
}
if($admin_plugin && -s "$file_dir/commands.txt&quot

{
require("$plugin_dir/admin.pl&quot

;
&apply_commands;
}
&read_files;
}
else {
if ($ENV{'QUERY_STRING'}) {
($tentry,$tout_link) = split(/::/,$ENV{'QUERY_STRING'});
if($tentry) {
$entry = $tentry;
}
if($tout_link) {
$out_link = $tout_link;
}
}
$room = $entry;
if($custom_room_plugin) {
require("$plugin_dir/custom_room.pl&quot

;
&custom_room;
}
require("$lang_file&quot

|| die "Could not find language file";
&misc_lang;
}

if($advertise_plugin && $ad_locations) {
require("$plugin_dir/advertise.pl&quot

;
}
&check_referer;
&prelocation;
&location;
}
exit;
}
sub set_values {
$visitors_time = $visitors_time * 60;
$chat_time = $chat_time * 60;
}
##########
# Lock
sub lock {

while(-e "$file_dir/$lock_file&quot

{
if($time + $lock_time < time()) {
unlink("$file_dir/$lock_file&quot

;
}
else {
select(undef, undef, undef, 0.25);
}
}

open(LOCK,">$file_dir/$lock_file&quot

|| die "Could not create lock file";
close(LOCK);
}

########################
# Parse Form

sub parse_form {

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($nam, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
if($allow_html == 0) {
$value =~ s/</</g;
$value =~ s/>/>/g;
}
$FORM{$nam} = $value;
}
}

###########
# Get variables from form

sub get_variables {

if ($FORM{'room'}) {
$room = "$FORM{'room'}";
$room =~ s/ /_/g;
$room =~ s/\//_/g;
}

if($custom_room_plugin) {
require("$plugin_dir/custom_room.pl&quot

;
&custom_room;
}
require("$lang_file&quot

|| die "Could not find language file";
&misc_lang;

if ($FORM{'where'}) {
$where = "$FORM{'where'}";
}

if($FORM{'frames'}) {
$frames = "$FORM{'frames'}";
}

if ($FORM{'pubroom'}) {
$pubroom = "$FORM{'pubroom'}";
$pubroom =~ s/ /_/g;
$pubroom =~ s/\//_/g;
if($pubroom eq "$pubroom_title&quot

{
undef($pubroom);
}
}

if ($FORM{'priroom'}) {
$priroom = "$FORM{'priroom'}";
$priroom =~ s/ /_/g;
$priroom =~ s/\//_/g;
}

if ($FORM{'solo'}) {
$solo = "$FORM{'solo'}";
if($solo eq "$entire_room&quot

{
undef($solo);
}
}

if ($FORM{'link'}) {
$link = "$FORM{'link'}";
}

if ($FORM{'name'}) {
$name = "$FORM{'name'}";

$name =~ s/\s+/ /g;
$name =~ s/^\s//g;
$name =~ s/\s$//g;
$name =~ s/^\.+//g;
$name =~ s/_/ /g;
$vname = $name;
$vname =~ s/ /_/g;

}

if ($FORM{'load_time'}) {
$load_time = "$FORM{'load_time'}";
}

if ($FORM{'mail'} =~ /.*\@.*\..*/) {
$mail = "$FORM{'mail'}";
$maillink = "<a href=\"mailto:$mail\">$mail</a>";
}

if ($FORM{'passwd'}) {
$passwd = "$FORM{'passwd'}";
}

if ($FORM{'password'}) {
$password = "$FORM{'password'}";
}

if ($FORM{'passwordb'}) {
$passwordb = "$FORM{'passwordb'}";
}

if ($FORM{'regno'}) {
$regno = "$FORM{'regno'}";
}

if ($FORM{'nummes'}) {
$nummes = $FORM{'nummes'};
}

if ($FORM{'message'}) {
$message = $FORM{'message'};
$message =~ s/\cM//g;
$tempmessage = $message;
$tempmessage =~ s/\s+//g;
if($where ne "$reload_text&quot

{
if($message =~ / /) {
@messagelines = split(/\n/,$message);
$count = 0;
while($count < @messagelines) {
if(length $messagelines[$count] > 80) {
$messagelines[$count] = "</pre>$messagelines[$count]<pre>";
$longline = 1;
}
$count++;
}
if($longline) {
$message = join ("\n", @messagelines);
}
$message = "<pre>$message</pre>";
}

$message =~ s/https:\/\/\S+/<a href="$&" target="new">$&<\/a>/g;
$message =~ s/ftp:\/\/\S+/<a href="$&" target="new">$&<\/a>/g;
$message =~ s/\S+\@\S+\.\S+/<a href="mailto:$&">$&<\/a>/g;
$message =~ s/\n\n/ <p> /g;
$message =~ s/\n/ <br> /g;
}
$message =~ s/&quot/"/g;
if($filter_plugin) {
require("$plugin_dir/filter.pl&quot

;
&lang_filter;
}
}

if ($FORM{'ignored'}) {
@ignored = split(//,$FORM{'ignored'});
}

if($profile_plugin && -e "$profile_dir/$vname&quot

{
$profile_link = "<a target=\"profile\" href=\"$ENV{'SCRIPT_NAME'}/profile/$vname\">$profile_link_text</a>";
$maillink = "$maillink $profile_link";
}
if($FORM{'admin'}) {
$adminyes = 1;
}
}

###########
# Read files

sub read_files {
if($where || $solo || $ENV{'PATH_INFO'}){
$origroom = $room;

open(MAIN,"$file_dir/chat$room&quot

;
@main = <MAIN>;
close(MAIN);

@main = @main[(0 .. $max_mes)];

open(VISITORS,"$file_dir/vis$room&quot

;
@visitors = <VISITORS>;
close(VISITORS);

$vname = $name;
$vname =~ s/ /_/g;
$vname =~ s/\//_/g;

open(VFILE,"$vis_dir/$vname&quot

;
@vfile = <VFILE>;
close(VFILE);

@vfile = @vfile[(0 .. $max_mes)];

}
}

############
# Check Referer
sub check_referer {

if ($ENV{'HTTP_REFERER'} =~ /^http:\/\/([^\/]+)/) {
foreach$referer(@valid_referers) {
if ($ENV{'HTTP_REFERER'} =~ /$referer/) {
$okay_referer = 1;
}
}
}
if(!$ENV{'HTTP_REFERER'}) {
$okay_referer = 1;
}

if(!$okay_referer) {
&unlock;
&login;
exit;
}
}

##########
# Prepare for sending them places

sub prelocation {
if($where eq "$ignore_text" && $ignore_plugin) {
require("$plugin_dir/ignore.pl&quot

;
&ignore;
}

if($where eq "$go_there&quot

{
$oldroom = $room;
if ($priroom) {
$room = $priroom;
}
elsif($pubroom) {
$room = $pubroom;
}
else {
$where = $reload_text;
}
if ($room eq "$oldroom&quot

{
$where = "$reload_text";
}
}

if($message_plugin) {
require("$plugin_dir/message.pl&quot

;
&message_prep;
}
}
##########
# Where are they coming from?

sub location {
if ($solo && $where eq "$post_text" && $solo ne $entire_room) {
&verify_password;
&main_page_lang;
&privmsg;
&update;
&write;
&unlock;
&reload;
}
elsif ($where eq "register&quot

{
if($frames eq "yes" && !$ENV{'QUERY_STRING'}) {
&unlock;
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
if($admin_plugin) {
require("$plugin_dir/admin.pl&quot

;
&check_admin;
}
require("$plugin_dir/frames.pl&quot

|| die "Couldn't find frames part";
&frames;
}
else {
&main_page_lang;
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
if($admin_plugin) {
require("$plugin_dir/admin.pl&quot

;
&check_admin;
}
&create;
&register;
&write;
&unlock;
&reload;
}
}
elsif ($where eq "$post_text&quot

{
&verify_password;
&main_page_lang;
&create;
&post;
&update;
&write;
&unlock;
&reload;
}
elsif ($where eq "$reload_text&quot

{
&verify_password;
&main_page_lang;
&snag;
&create;
&update;
&write;
&unlock;
&reload;
}
elsif ($where eq "$go_there&quot

{
&verify_password;
if($pubroom || $priroom) {
$lang_file = $default_lang_file;
if($custom_room_plugin) {
require("$plugin_dir/custom_room.pl&quot

;
&custom_room;
if($message_plugin) {
require("$plugin_dir/message.pl&quot

;
&message_prep;
}
}
require("$lang_file&quot

|| die "Could not find language file";
&misc_lang;
&main_page_lang;
&create;
&change;
&write;
&unlock;
&reload;
}
else {
&main_page_lang;
&snag;
&create;
&update;
&write;
&unlock;
&reload;
}
}
elsif ($where eq "$leave_text&quot

{
&verify_password;
&leave;
&write;
&unlock;
}
elsif ($profile_plugin && $where eq "$edit_profile&quot

{
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
if($passlistok) {
&edit_profile;
}
else {
&name_taken
}
}
elsif($profile_plugin && $where eq "$update_profile&quot

{
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
&update_profile;
}
elsif($profile_plugin && $where eq "$change_password&quot

{
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
&change_password;
}
elsif($who_is_where_plugin && $where eq "$who_is_where&quot

{
&misc_lang;
if($where_locations =~ /A/ && !$load_time) {
&main_page_lang;
&check_name;
if($access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
if($admin_plugin) {
require("$plugin_dir/admin.pl&quot

;
&check_admin;
}
}
require("$plugin_dir/who_is_where.pl&quot

;
&who_is_where;
}
else {
&deletevfiles;
&unlock;
if(! -e "$file_dir/.htaccess&quot

{
$access_dir = $file_dir;
&write_htaccess;
}
if(! -e "$vis_dir/.htaccess&quot

{
$access_dir = $vis_dir;
&write_htaccess;
}
if(! -e "$plugin_dir/.htaccess" && -e $plugin_dir) {
$access_dir = $plugin_dir;
&write_htaccess;
}

&login;
}
}
############
# Login

sub login {
&reg_page_lang;
opendir(VFILES,$vis_dir);
@vfilelist = grep(!/^\.|^_/, readdir (VFILES));
closedir(VFILES);
$vtotal = @vfilelist - 1;

open(VISITORS,"$file_dir/vis$room&quot

;
@visitors = <VISITORS>;
close(VISITORS);

foreach $visitors_line (@visitors) {
($bogus,$load,$bogus2) = split(/:/,$visitors_line);
if ($time - $load < $visitors_time && $load) {
push (@visitors_new,"$visitors_line&quot

;
}
}
@visitors = @visitors_new;
undef @visitors_new;
$vnum = @visitors;

print "Content-type: text/html\n\n";
print "<html><head><title>$page_title $reg_page</title></head>\n";

print "<body bgcolor=$bgcolor background=\"$background\" ";
print "text=$text_color link=$link_color vlink=$vlink_color>\n";
if($font_face ne "&quot

{
print "<font face=\"$font_face\">\n";
}
print "<ul><center>\n";

if($advertise_plugin && $ad_locations =~ /a/) {
&advertise;
}

if ($title_graphic eq "&quot

{
print "<H1>$page_title</h1>\n";
}
else {
print "<h1><img src=\"$title_graphic\" alt=\"$page_title\"></h1>\n";
}
print "<h2>$reg_page</h2><p></center>\n";

&register_body;
}

###########
# Body of Registration Page
# used on initial login, and when their chosen name is taken
# or other problem requires them to login again

sub register_body {
print "<font size=4 color=$one_color><center>$you_must</font>\n";
print "<p>$instruct<p>\n";
if ($vnum < 1) {
print "$no_vis_a $room $no_vis_b<p>\n";
}
elsif ($vnum==1) {
print "$one_vis_a $room $one_vis_b<p>\n";
}
else {
print "$mult_vis_a $vnum $mult_vis_b $room $mult_vis_c<P>\n";
}
if ($vtotal < 1) {
print "$no_vis_tot<p>\n";
}
elsif ($vtotal==1) {
print "$one_vis_tot<P>\n";
}
else {
print "$mult_vis_tot_a $vtotal $mult_vis_tot_b<P>\n";
}
print "$enter_name<br>\n";
print "<form method=POST action=\"$ENV{'SCRIPT_NAME'}\">\n";
print "<input type=hidden name=\"where\" value=\"register\">\n";
print "<input type=hidden name=\"link\" value=\"$out_link\">\n";
print "<input type=hidden name=\"time\" value=\"$time\">\n";
print "<table><tr><td>$name_blank</td>\n";
print "<td><input type=text size=30 name=\"name\" maxlength=250>";
print "<br></td></tr>\n";
print "<tr><td>$passwd_blank</td>\n";
print "<td><input type=hidden name=\"passwd\" value=swissboz size=30><br></td></tr>\n";
print "<tr><td>$mail_blank</td>\n";
print "<td><input type=hidden size=30 name=\"mail\"><br></td></tr>\n";
if($frames_plugin ||$lite_plugin) {
print "<tr><td>$layout_blank</td><td>\n";
if($lite_plugin) {
print "$layout_lite:<input type=radio name=\"frames\" value=\"lite\"> \n";
}
print "$layout_std:<input type=radio name=\"frames\" value=\"no\"> \n";
if($frames_plugin) {
print "$layout_frames:<input type=radio name=\"frames\" value=\"yes\" checked>\n";
}
print "</td></tr>\n";
}
print "</table><br><input type=hidden name=\"room\" value=\"$room\">\n";
print "<input type=submit value=\"$enter_chat\">\n";
if($who_is_where_plugin && $where_locations =~ /a/i) {
print "<input type=\"submit\" name=\"where\" value=\"$who_is_where\">\n";
}
if ($profile_plugin) {
print "<input type=submit name=\"where\" value=\"$edit_profile\">\n";
}
print "</form>\n";
if ($schedule_file) {
print "$sched_note_a <a href=\"$schedule_file\">";
print "$sched_note_b</a> $sched_note_c<p>\n";
}
if ($help_file) {
print "$help_a <a target=\"profile\" href=\"$help_file\"> $help_b</a> $help_c<p>\n";
}

if($advertise_plugin && $ad_locations =~ /b/) {
&advertise;
}

print "<center>$our_image</center>\n";
print "</body> </html>\n";
}
###########
# Name taken
sub name_taken {
&reg_page_lang;
print "Content-type: text/html\n\n";
print "<html><head><title>$page_title $reg_page</title></head>\n";
print "<body bgcolor=$bgcolor background=\"$background\" ";
print "text=$text_color link=$link_color vlink=$vlink_color>\n";
if($font_face ne "&quot

{
print "<font face=\"$font_face\">\n";
}
print "<ul><center>\n";

if($advertise_plugin && $ad_locations =~ /a/) {
&advertise;
}

if ($title_graphic eq "&quot

{
print "<H1>$page_title</h1>\n";
}
else {
print "<h1><img src=\"$title_graphic\" alt=\"$page_title\"></h1>\n";
}

print "<h2>$reg_page</h2><p></center>\n";
print "$wrong_name<p>\n";
&register_body;
&unlock;
exit;
}
############
# Check Name

sub check_name {
if (!$passwd || !$name) {
&name_taken;
}
elsif (-e "$vis_dir/$vname&quot

{
open (VSAME,"$vis_dir/$vname&quot

|| die $!;
$vsame = <VSAME>;
close (VSAME);
($bogus,$test,$bogus2) = split(/:/,$vsame);
$password = crypt($passwd,MW);
if ($password ne $test) {
&name_taken;
}
}
elsif($user_limit_plugin) {
require("$plugin_dir/user_limit.pl&quot

;
&overflow;
}
}

########################
# Maintain files
sub create {
open(INDEX,">$file_dir/index.html&quot

;
print INDEX "$index_html\n";
close(INDEX);

open(INDEXB,">$vis_dir/index.html&quot

;
print INDEXB "$index_html\n";
close(INDEXB);

if($message_plugin) {
require("$plugin_dir/message.pl&quot

;
&message_prep;
}

opendir(FILES,"$file_dir&quot

;
@filelist = grep(!/^\./, readdir (FILES));
closedir(FILES);
foreach $file (@filelist) {
$tfile = $file;
$tfile =~ s/^chat//g;
if (-M "$file_dir/$file" > $chat_time / 86400 && ! $MESGROOMS{$tfile}) {
if ($file =~ /^chat/ || $file =~ /^vis/) {
unlink("$file_dir/$file&quot

;
}
}
}

&deletev;
}

sub deletev {
if (-e "$file_dir/vis$room&quot

{
foreach $visitors_line (@visitors) {
($bogus,$load,$bogus2) = split(/:/,$visitors_line);
if ($time - $load < $visitors_time) {
push (@visitors_new,"$visitors_line&quot

;
}
}
}

@visitors = @visitors_new;
undef @visitors_new;

&deletevfiles;
}
sub deletevfiles {
opendir(VFILES,$vis_dir);
@vfilelist = grep(!/^\.|^_/, readdir (VFILES));
closedir(VFILES);
foreach $vfilelist (@vfilelist) {
if (-M "$vis_dir/$vfilelist" > ($visitors_time / 86400)) {
unlink("$vis_dir/$vfilelist&quot

;
}
}
if(!$where) {
opendir(VFILES,$vis_dir);
@ffilelist = grep(/^_/, readdir (VFILES));
closedir(VFILES);
foreach $ffilelist (@ffilelist) {
open(FFILE,"$vis_dir/$ffilelist&quot

;
$ffile = <FFILE>;
close(FFILE);
$ffile =~ s/\n//g;
$ffile =~ s/ /_/g;
if(! -e "$vis_dir/$ffile&quot

{
unlink("$vis_dir/$ffilelist&quot

;
}
}
}

}

###########
# Register
sub register {

$login = $date;

foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_new,"$visitors_line&quot

;
}
}
@visitors = @visitors_new;
undef @visitors_new;
$temp = "$name\n";
unshift (@visitors,$temp);

shift(@vfile);
if($frame_remind && $frames eq "yes&quot

{
if ($initial_message_plugin) {
require("$plugin_dir/initial_message.pl&quot

;
$temp = "$name, $frame_remind<p>$countdown<p>$random_line<br><br>";
}
else {
$temp = "$name, $frame_remind<br><br>";
}
}
else {
if ($initial_message_plugin) {
require("$plugin_dir/initial_message.pl&quot

;
$temp = "$name, $reload_remind<p>$countdown<p>$random_line<br><br>";
}
else {
$temp = "$name, $reload_remind<br><br>";
}
}
unshift (@vfile,"$temp\n&quot

;
$password = crypt($passwd,MW);
$temp = "\n";
unshift(@vfile,$temp);
$vmodified = 1;

if($show_status) {
$temp = "$name: . . . . $maillink $date CET (+0200 GMT)   </font></font></font> <br>$joined_chat<br><br>\n";
unshift(@main,$temp);
$cmodified = 1;
}
}
##########
# Modify chat page

sub post {
if ($tempmessage) {
if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl&quot

;
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&post_emoticon;
}
else {
$temp = "$name: . . . . $maillink $date CET (+0200 GMT)   </font></font></font><br>$message<br><br>\n";
}
}
else {
$temp = "$name: . . . . $maillink $date CET (+0200 GMT)   </font></font></font><br>$message<br><br>\n";
}
unshift(@main,$temp);
$cmodified = 1;
}
}
#########
# Snag information when person hits reload

sub snag {
$mess = $message;
}

sub verify_password {

($bogus,$fpassword) = split(/:/,$vfile[0]);
if($where eq "$leave_text" && !$password) {
$password = $fpassword;
}
if($password ne $fpassword) {
&unlock;
&login;
exit;
}
}
##########
# Update Visitor's log

sub update {
foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^$name$/ &&
$visitors_line !~ /^$name \d+:\d\d:\d\d$/ &&
$visitors_line !~ /^$name \d\d\/\d\d\/\d\d \d+:\d\d:\d\d$/) {
push (@visitors_new,"$visitors_line&quot

;
}
}

@visitors = @visitors_new;
undef @visitors_new;

$temp ="$name $date\n";
unshift (@visitors,$temp);

$vmodified = 1;

if ($admonish) {
&admonish;
}
}

############
# Reload
sub reload {
$public_count = @public_rooms;
if($password_style == 2 && $access_control_plugin) {
require("$plugin_dir/access_control.pl&quot

;
&admit_style;
}
elsif($frames eq "lite&quot

{
require("$plugin_dir/lite.pl&quot

;
&lite_layout;
}
elsif($frames eq "yes&quot

{
require("$plugin_dir/frames.pl&quot

;
&topframe_reload;
}
elsif($bottomframe) {
require("$plugin_dir/frames.pl&quot

;
&bottomframe_reload;
}
else {
$ignoredlist = join("()",@ignored);
if(!$nummes) {
$nummes = $def_mes;
}
if(!$refreq) {
$refreq = $def_reload;
}
if($nummes =~ /\D/ && $nummes !~ /^($new_nummes||$all_nummes)$/i) {
$nummes = $def_mes ;
}
if($nummes > $max_mes && $nummes !~ /^($new_nummes||$all_nummes)$/i) {
$nummes = $max_mes;
}
print "Content-type: text/html\n\n";

print "<html><head><title>$page_title</title>\n";

print "</head><body bgcolor=$bgcolor background=\"$background\"";
print " text=$text_color link=$link_color vlink=$vlink_color>\n";
if($font_face ne "&quot

{
print "<font face=\"$font_face\">\n";
}

print "<form name=\"form\" method=POST action=\"$ENV{'SCRIPT_NAME'}\">\n";

if($advertise_plugin && $ad_locations =~ /c/) {
&advertise;
}

if($advertise_plugin && $ad_locations =~ /d/) {
&advertise;
}
if (!$title_graphic) {
print "<H3>$page_title</h3>\n";
}
else {

print "<img src=\"$title_graphic\" border=0 ";
print "alt=\"$page_title\"><hr>\n";
print "<FONT SIZE=3 FONT COLOR=CYAN FONT FACE=ARIAL NARROW><B> Multi Lingual Chatroom!! Have manners and don't be rude to people.</B></FONT><br>\n";
}
print "<input type=hidden name=\"password\" value=\"$password\">\n";
print "<input type=hidden name=\"frames\" value=\"$frames\">\n";
print "<input type=hidden name=\"load_time\" value=\"$time\">\n";
print "<input type=hidden name=\"room\" value=\"$room\">\n";
print "<input type=hidden name=\"mail\" value=\"$mail\">\n";
print "<input type=hidden name=\"name\" value=\"$name\">\n";
print "<input type=hidden name=\"link\" value=\"$link\">\n";
print "<input type=hidden name=\"ignored\" value=\"$ignoredlist\">\n";
if($adminyes) {
print "<input type=\"hidden\" name=\"admin\" value=\"1\">\n";
}

print "<input type=text size=68 name=\"message\">\n";
print "$mess</textarea>\n";

$vname = $name;
$vname =~ s/ /_/g;
if($emoticon_plugin) {
}
if($allow_one_on_one) {
print "$send_to <select name=\"solo\">\n";
print "<option>$entire_room\n";
opendir(VFILES,$vis_dir);
@vfilelist = grep(!/^\.|^_/, readdir (VFILES));
closedir(VFILES);
@vfilelist = sort(@vfilelist);
foreach $vfilelist (@vfilelist) {
if ($vfilelist ne "index.html" && $vfilelist ne "$vname&quot

{
$vfilelist =~ s/_/ /g;
undef($vfilelistb);
if(@ignored) {
foreach$ignoree(@ignored) {
if($vfilelist eq "$ignoree&quot

{
$vfilelistb = "$vfilelist$ignoremark";
}
}
if($solo eq "$vfilelist" && $vfilelistb) {
print "<option selected value=\"$vfilelist\">$vfilelistb\n";
}
elsif($solo eq "$vfilelist&quot

{
print "<option selected>$vfilelist\n";
}
elsif($vfilelistb) {
print "<option value=\"$vfilelist\">$vfilelistb\n";
}
else {
print "<option>$vfilelist\n";
}
}
else {
if($solo eq "$vfilelist&quot

{
print "<option selected>$vfilelist\n";
}
else {
print "<option>$vfilelist\n";
}
}
}
}
print "</select>\n";
}
if($emoticon_plugin) {
print "</td><td rowspan=2>\n";
}

if($ignore_plugin) {
print "<input type=submit name=\"where\" value=\"$ignore_text\">\n";
}

if(($password_style == 2 && $passpost) || $password_style != 2) {
print "<input type=submit name=\"where\" value=\"$post_text\">\n";
}
if($frames ne "yes&quot

{

}
if($frames ne "yes&quot

{
print "<input type=submit name=\"where\" value=\"$leave_text\"><br>\n";
}

if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl&quot

;
&emoticon_list;
}

if($who_is_where_plugin && $where_locations =~ /b/) {
print "<input type=\"submit\" name=\"where\" value=\"$who_is_where\"><br>\n";
}
print "<font size=2>Site Administrator\: <a href=mailto\:swissboz\@bigfoot.com>SwissBoz</a>\n";
print " * Leave a message on the <A HREF=

http://www.b2g4.com/boards/board.cgi?user=swissboz

target=new>Notice Board</a> *\n";
print "$nummes_a <input type=text name=\"nummes\" ";
print "value=\"$nummes\" size=3 maxlength=3> $nummes_b<hr></font>\n";

if($public_count > 1) {
print "<select name=\"pubroom\">\n";
print "<option value=\"\">$pub_room_title\n";
foreach$public_room(@public_rooms) {
print "<option>$public_room\n";
}
print "</select></center><br>\n";

}
if($allow_private) {
print "$pri_room_title<br>\n";
print "<input type=text size=15 name=\"priroom\"><br>\n";
}
if($public_count > 1 || $allow_private) {
print "<input type=submit name=\"where\" value=\"$go_there\">\n";
}

print "</center></form>\n";
print "<script language=\"JavaScript\">\n\n</script>\n";

if($advertise_plugin && $ad_locations =~ /e/) {
&advertise;
print "<br>";
}

print "<a name=\"messages\">\n";

if($bottomframe) {
print "<br>\n";
}

&nummes;

if($advertise_plugin && $ad_locations =~ /f/) {
&advertise;
}

print "<center>$our_image</center>\n";
print "</body> </html>\n";
}
}
sub nummes {

if($nummes =~ /^$all_nummes$/i) {
$clinecount = 0;
$vlinecount = 1;
while($clinecount < @main || $vlinecount < @vfile) {
&print_chat;
}
}
elsif($nummes =~ /^$new_nummes$/i) {
$clinecount = 0;
$vlinecount = 1;
$clinetime = $time;
while(($vlinetime > $load_time - $new_time || $clinetime > $load_time - $new_time) && ($clinecount < @main || $vlinecount < @vfile)) {
&print_chat;
}
}
else {
$clinecount = 0;
$vlinecount = 1;
while($mlinecount < $nummes && ($clinecount < @main || $vlinecount < @vfile)) {
&print_chat;
}
}

}
sub print_chat {
foreach$ignoree(@ignored) {
while($main[$clinecount] =~ /$ignoree<\/b>/) {
$clinecount++;
undef($clinetime);
}
while($vfile[$vlinecount] =~ /$ignoree<\/b>/) {
$vlinecount++;
undef($vlinetime);
}
}
if(!$clinetime || $nummes =~ /$new_nummes/i) {
($bogus,$clinetime) = split(/:/,$main[$clinecount]);
}
if(!$vlinetime || $nummes =~ /$new_nummes/i) {
($bogus,$vlinetime) = split(/:/,$vfile[$vlinecount]);
}
if(!$clinetime && !$vlinetime) {
$clinecount++;
$vlinecount++;
}
elsif($clinetime > $vlinetime) {
$tcline = $main[$clinecount];
$tcline =~ s/^//g;
$tcline =~ s// ]   /g;
if($adminyes && $show_ip == 1) {
$messtime = substr($clinetime, -5, 5);
$tcline =~ s//    $messtime/g;
}
else {
$tcline =~ s///g;
}
if($clinetime > $load_time) {
if($tcline =~ /$joined_chat/ && $alert_sound_plugin) {
require("$plugin_dir/alert_sound.pl&quot

;
&alert_sound;
}
print "$new_message $tcline";
}
elsif(!$old_timer) {
$old_timer = 1;
print "<font color=$oldcolor>\n";
print $tcline;
}
else {
print $tcline;
}
$clinecount++;
if($nummes !~ /$new_nummes/i) {
undef($clinetime);
}
}

else {
$tvline = $vfile[$vlinecount];
$tvline =~ s/<font>/<font color=$one_color>/g;
$tvline =~ s/^//g;
if($adminyes && $show_ip == 1) {
$tvline =~ s///g;
}
else {
$tvline =~ s///g;
}
if($vlinetime > $load_time) {
print "$new_message $tvline";
}
else {
print $tvline;
}
$vlinecount++;
if($nummes ne "$new_nummes&quot

{
undef($vlinetime);
}
}

$mlinecount++;

}

##############
# Change rooms
sub change {
$load_time = 0;

if($oshow_status) {
open(OLDMAIN,"$file_dir/chat$oldroom&quot

;
@oldmain = <OLDMAIN>;
close(OLDMAIN);

$temp = "$name $maillink $left_room $date   <br><br>\n";
unshift(@oldmain,$temp);

open(OLDMAIN,">$file_dir/tempc$oldroom&quot

;
foreach$oldmainline(@oldmain){
print OLDMAIN "$oldmainline";
}
close(OLDMAIN);
rename("$file_dir/tempc$oldroom","$file_dir/chat$oldroom&quot

;

open(OLDVIS,"$file_dir/vis$oldroom&quot

;
@oldvis = <OLDVIS>;
close(OLDVIS);
}
foreach $visitors_line (@oldvis) {
if ($visitors_line !~ /^$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_old,"$visitors_line&quot

;
}
}
@oldvis = @visitors_old;
undef @visitors_old;

open(OLDVIS,">$file_dir/tempv$oldroom&quot

;
foreach$oldvisline(@oldvis) {
print OLDVIS "$oldvisline";
}
close(OLDVIS);
rename("$file_dir/tempv$oldroom","$file_dir/vis$oldroom&quot

;

undef(@oldmain);
undef(@oldvis);

open(MAIN,"$file_dir/chat$room&quot

;
@main = <MAIN>;
close(MAIN);
@main = @main[(0 .. $max_mes)];

if($show_status) {
$temp = "$name $maillink $joined_chat $date   <br><br>\n";
unshift(@main,$temp);
$cmodified = 1;
}

open(VISITORS,"$file_dir/vis$room&quot

;
@visitors = <VISITORS>;
close(VISITORS);

$login = "$date";

foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_new,"$visitors_line&quot

;
}
}

@visitors = @visitors_new;
undef @visitors_new;

$temp = "$name\n";
unshift (@visitors,$temp);

$vmodified = 1;
}

##############
# Send the private message
sub privmsg {

if ($tempmessage) {
$solo =~ s/ /_/g;
if(-e "$vis_dir/$solo&quot

{
open (VFILES,"$vis_dir/$solo&quot

|| die $!;
@vfiles = <VFILES>;
close (VFILES);

$vfilestemp = $vfiles[0];
shift(@vfiles);

if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl&quot

;
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&one_on_one_emoticon;
}
else {
$tempa ="<font>$one_on_one_text:";
$tempb = " $name: . . . . $date   <br>$message</font><br><br>\n";
$temp = "$tempa$tempb";
}
}
else {
$tempa ="<font>$one_on_one_text:";
$tempb = " $name: . . . . $maillink $date   <br> $message</font><br><br>\n";
$temp = "$tempa$tempb";
}
unshift(@vfiles,$temp);

unshift(@vfiles,"$vfilestemp&quot

;

open(VFILES,">$vis_dir/$solo&quot

|| die $!;
foreach $vfiles_line(@vfiles) {
print VFILES "$vfiles_line";
}

close(VFILES);

$primessage = $message;
}
else {
$primessage = "$person_gone<br>$message";
}

$solo =~ s/_/ /g;
$vfiletemp = $vfile[0];
shift(@vfile);
if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl&quot

;
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&send_one_on_one_emoticon;
}
else {
$tempa ="<font>$one_on_one_text:";
$tempb = " To: $solo $date   <br>$primessage</font><br><br>\n";
$temp = "$tempa$tempb";
}
}
else {
$tempa ="<font>$one_on_one_text:";
$tempb = " To: $solo $date   <br>$primessage</font><br><br>\n";
$temp = "$tempa$tempb";
}
unshift (@vfile,$temp);
unshift (@vfile,"$vfiletemp&quot

;
}
}
###############
# Leave
sub leave {

unlink("$vis_dir/$vname&quot

;

if($emoticon_plugin) {
require("$plugin_dir/emoticon.pl&quot

;
if ($FORM{'emoticon'} && $FORM{'emoticon'} ne $blank_emoticon) {
&leave_emoticon;
}
else {
$temp = "$name $maillink $left_chat $date   <br><br>\n";
}
}
else {
$temp = "$name $maillink $left_chat $date   <br><br>\n";
}
if($show_status) {
unshift(@main,$temp);
$cmodified = 1;
}

foreach $visitors_line (@visitors) {
if ($visitors_line !~ /^$name($| \d+:\d\d:\d\d$)/) {
push (@visitors_new,"$visitors_line&quot

;
}
}
@visitors = @visitors_new;
undef @visitors_new;

print "Location: $link\n\n";
$vmodified = 1;
}

###########
# Write Files
sub write {
if($cmodified) {
open(MAIN,">$file_dir/tempc$room&quot

;
print MAIN @main;
close(MAIN);
rename("$file_dir/tempc$room","$file_dir/chat$room&quot

}

if($vmodified) {
open(VISITORS,">$file_dir/tempv$room&quot

;
print VISITORS @visitors;
close(VISITORS);
rename("$file_dir/tempv$room","$file_dir/vis$room&quot

}

$vfile[0] = "\n";
if(!$vname) {
$vname = $name;
$vname =~ s/ /_/g;
}
if($where ne "$leave_text" && $vname){
open(VFILE,">$vis_dir/temp$vname&quot

;
print VFILE @vfile;
close(VFILE);
rename("$vis_dir/temp$vname","$vis_dir/$vname&quot

;
}
}
#############
# Write .htaccess file for security
sub write_htaccess {
open(HTACCESS,">$access_dir/.htaccess&quot

;
print HTACCESS "AuthUserFile /etc/.htpasswd\nAuthGroupFile /dev/null\n";
print HTACCESS "AuthName chat Restricted Area\nAuthType Basic\n\n";
print HTACCESS "<Limit GET>require user chat\n</Limit>\n";
close(HTACCESS);
}
#############
# Unlock
sub unlock {

unlink("$file_dir/$lock_file&quot

;

}

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!

Masking last 3 digits of IP? (Perl CGI Chat)

mnemo

Technical User

PaulTEG

Technical User

fishiface

IS-IT--Management

mnemo

Technical User

fishiface

IS-IT--Management

mnemo

Technical User

Similar threads

Part and Inventory Search

Sponsor