Normal YaBB to F2S YaBB
1.24
This modification will change your YaBB so that IP addresses record correctly on F2S servers. When this mod is applied, upload the following files:
Post.pl
Modifymessage.pl
Instantmessage.pl
Security.pl
Subs.pl
Any comments on this mod can be e-mailed to goldentiger24@bigfoot.com
Mod last modified on 7/4/2001
The Golden Tiger!!! [goldentiger24@bigfoot.com]
http://www.bigfoot.com/~goldentiger24/
Sources/Post.pl
fopen(FILE, ">$datadir/$newthreadid.txt") || &fatal_error("$txt{'23'} $newthreadid.txt");
print FILE qq~$subject|$name|$email|$date|$username|$icon|0|$ENV{REMOTE_ADDR}|$message|$ns|\n~;
fclose(FILE);
fopen(FILE, ">$datadir/$newthreadid.txt") || &fatal_error("$txt{'23'} $newthreadid.txt");
print FILE qq~$subject|$name|$email|$date|$username|$icon|0|$ENV{HTTP_X_FORWARDED_FOR}|$message|$ns|\n~;
fclose(FILE);
fopen(FILE, ">>$datadir/$threadid.txt") || &fatal_error("212 $txt{'106'}: $txt{'23'} $threadid.txt");
print FILE qq~$subject|$name|$email|$date|$username|$icon|0|$ENV{REMOTE_ADDR}|$message|$ns|\n~;
fclose(FILE);
fopen(FILE, ">>$datadir/$threadid.txt") || &fatal_error("212 $txt{'106'}: $txt{'23'} $threadid.txt");
print FILE qq~$subject|$name|$email|$date|$username|$icon|0|$ENV{HTTP_X_FORWARDED_FOR}|$message|$ns|\n~;
fclose(FILE);
Sources/InstantMessage.pl
# Add message to outbox
if(-e("$memberdir/$username.outbox")) { fopen(FILE, ">>$memberdir/$username.outbox", 1); }
else { fopen(FILE, ">$memberdir/$username.outbox", 1); }
print FILE "$db|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}\n";
fclose(FILE);
# Add message to outbox
if(-e("$memberdir/$username.outbox")) { fopen(FILE, ">>$memberdir/$username.outbox", 1); }
else { fopen(FILE, ">$memberdir/$username.outbox", 1); }
print FILE "$db|$subject|$date|$message|$messageid|$ENV{'HTTP_X_FORWARDED_FOR'}\n";
fclose(FILE);
# Send message to user
fopen(FILE, ">>$memberdir/$db.msg");
print FILE "$username|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}\n";
fclose(FILE);
# Send message to user
fopen(FILE, ">>$memberdir/$db.msg");
print FILE "$username|$subject|$date|$message|$messageid|$ENV{'HTTP_X_FORWARDED_FOR'}\n";
fclose(FILE);
Sources/ModifyMessage.pl
$messages[$postid] = qq~$subject|$mname|$memail|$mdate|$musername|$icon|0|$ENV{'REMOTE_ADDR'}|$message|$ns|$date|$username\n~;
$messages[$postid] = qq~$subject|$mname|$memail|$mdate|$musername|$icon|0|$ENV{'HTTP_X_FORWARDED_FOR'}|$message|$ns|$date|$username\n~;
Sources/Security.pl
sub banning {
# IP BANNING
$remote_ip = $ENV{'REMOTE_ADDR'};
sub banning {
# IP BANNING
$remote_ip = $ENV{'HTTP_X_FORWARDED_FOR'};
# EMAIL BANNING
if ($username ne 'Guest') {
$remote_ip = "$ENV{'REMOTE_ADDR'}";
# EMAIL BANNING
if ($username ne 'Guest') {
$remote_ip = "$ENV{'HTTP_X_FORWARDED_FOR'}";
Sources/Subs.pl
my($ip,$time,$flood_ip,$flood_time,$flood,@floodcontrol);
$time = time;
$ip = $ENV{REMOTE_ADDR};
my($ip,$time,$flood_ip,$flood_time,$flood,@floodcontrol);
$time = time;
$ip = $ENV{HTTP_X_FORWARDED_FOR};
$field="$username";
if($field eq "Guest") { $field = "$ENV{'REMOTE_ADDR'}"; }
$field="$username";
if($field eq "Guest") { $field = "$ENV{'HTTP_X_FORWARDED_FOR'}"; }
$From = $ENV{'HTTP_REFERER'};
$logline = "$ENV{'REMOTE_ADDR'}|$date|$To|$From|$ENV{'HTTP_USER_AGENT'}";
$From = $ENV{'HTTP_REFERER'};
$logline = "$ENV{'HTTP_X_FORWARDED_FOR'}|$date|$To|$From|$ENV{'HTTP_USER_AGENT'}";