Sporum.Org
Newest Members: Most Recent Posts: SPT SPORUM SPMAIL |
 |
Site News
--> If you would like pre-release updates drop us a line on the contact page (or any post on the forum as we are now subscribing... *Must be in group to post *Anyone can read There exists sections in the forum which each contains categories, which each contain the forum boards. Double meaning of the word category was too confusing -- removed that confusion by reanaming the top most level to be a "section". This was necessary because the cron tasks were generating the output from the routine no_way()
sub get_config{
my $deny=0; # set to not deny
my $i;
my $BOTNAME=$ENV{'HTTP_USER_AGENT'};
# warn ">>BOTNAME=\"$BOTNAME\""; ## This puts data into the error logs for test purposes
my @temp = split(/\|/,"$config->{'DENY_BOTS'}");
foreach $i (@temp)
{
if ($BOTNAME =~ /$i/i)
{
$deny=1 if(!$deny);
}
}
no_way($deny); ## || ($BOTNAME eq ""));
return $config;
}
This was added to make sure this routine uses the HTML perl modules that are included with this release. Newer versions of HTML are not compatible.
sub send_mail{
my ($addr, $from, $subject, $content, $replyto, $lang) = @_;
# --- if there is no recipient address
return if !$addr;
@INC = (".",@INC); # MAR 8/2001 - added to use HTML perl module that is part of this release
require HTML::TreeBuilder;
require HTML::FormatText;
....
This change will return a blank web page for any web crawler you specify In sporum->SmallPigVars.pm Add This into the config data structure: # --- DENY-BOTS # --- Any HTTP_USER_AGENT that matches (case insensitive) with any item in this list deliniated by | # --- will get a blank web page in return # Mozilla == IE 'DENY_BOTS' => "Wget|WebZIP|down|WebReaper|Bjaaland|Quester|DIIbot|HTTrack|Unknown|rawler|Slurp|WebCopier|WebStripper|LinkWalker|Teleport",Then change the subroutine get_config like this:
sub get_config{
my $deny=0; # set to not deny
my $i;
my $BOTNAME=$ENV{'HTTP_USER_AGENT'};
# warn ">>BOTNAME=\"$BOTNAME\""; ## This puts data into the error logs for test purposes
my @temp = split(/\|/,"$config->{'DENY_BOTS'}");
foreach $i (@temp)
{
if ($BOTNAME =~ /$i/i)
{
$deny=1 if(!$deny);
}
}
no_way($deny || ($BOTNAME eq ""));
return $config;
}
Then lastly just add the following subroutine:
sub no_way
{
my $BYE_BYE ="Context-type: text/html\n\n";
$BYE_BYE.="<html><head><title></title></head><body></body></html>";
if(shift)
{
print $BYE_BYE;
exit;
}
}
In sporum->Templates->Admin->CreateBoard.pm
# 6/2001 - chojin AT earthling.net
# changed $fileattachv to be subscriptionv
if($subscriptionv == 1){ $check1 = "checked"; }
else{ $check2 = "checked"; }
my $sub = qq|
<input type=radio name=boardsub value=1 $check1>$lang->{'yes'}
<input type=radio name=boardsub value=0 $check2>$lang->{'no'}
|;
In sporum->Templates->Prefs.pm This Change added quotes around $sig my $sigp = qq|<textarea name="mysig" rows=2 columns=50 value="$sig" size=127 wrap="soft">$sig</textarea>|; In sporum->FBase.pm
sub get_lang_ptr{
my ($lang, $type) = @_;
$lang ||= $config->{'lang'};
$type ||= "fdefault"; # 6/2001 - m.stiefenhofer AT ecofis.de <m.stiefenhofer AT ecofis.de>
my $thememod = "Langs::$lang\::$type";
# --- load the theme module
load_module($thememod);
return get_lang();
}
A bit of a mystery - but it is fixed and working now! Thanks to Ferry Korving for letting me know there was a problem! :-) Thanks again to Ferry Korving for clueing me in on this error. Have one to list? email addme AT sporum.org (spam unfriendly email) |