use IO::Handle;
use IO::File;
use Net::Whois::Raw qw(whois);
+ if ( $] < 5.006 ) {
+ eval "use Net::Whois::Raw 0.32 qw(whois)";
+ die $@ if $@;
+ }
use Business::CreditCard;
use String::Approx qw(amatch);
use Chart::LinesPoints;
}
};
+
+ unless ( $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ ) { #RT
+ $cgi = new CGI;
+ &cgisuidsetup($cgi);
+ #&cgisuidsetup($r);
+ }
- $cgi = new CGI;
- &cgisuidsetup($cgi);
- #&cgisuidsetup($r);
$p = popurl(2);
sub include {