Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:35:41 -04:00
Code Issues Releases Wiki Activity

Upgrade to 5.22, lie about our OS, and lie about the user agent so fox news works

Browse source
This commit is contained in:
Ryan Voots 2015-11-03 18:46:27 -05:00
parent 7251c7f119
commit 45c556a3bd
7 changed files with 25 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile.PL
View file

@ -65,4 +65,9 @@ requires 'JSON::XS' => 0;
requires 'JSON::MaybeXS' => 0;
requires 'Cpanel::JSON::XS' => 0;
requires 'JavaScript::V8::Context' => 0;
requires 'LWP::Protocol::https' => 0;
requires 'Text::Soundex' => 0;
WriteAll;

2
bin/bb3
View file

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/env perl
use POSIX qw/setsid/;
use Getopt::Std;

2
bin/evalserver
View file

@ -1,4 +1,4 @@
#!/home/ryan/perl5/perlbrew/perls/perl-5.21.11/bin/perl
#!/home/ryan/perl5/perlbrew/perls/perl-5.22.0/bin/perl
#use local::lib;
# Guess we're being activated inside bin/, so go up a directory.

20
lib/eval.pl
View file

@ -67,7 +67,11 @@ no warnings;
# deparse output being much longer than it should be.
sub deparse_perl_code {
my( $code ) = @_;
my $sub = eval "no strict; no warnings; no charnames; use $]; sub{ $code\n }";
my $sub;
{
no strict; no warnings; no charnames;
$sub = eval "use $]; sub{ $code\n }";
}
if( $@ ) { print STDOUT "Error: $@"; return }
my $dp = B::Deparse->new("-p", "-q", "-x7");
@ -187,7 +191,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
my $kilo = 1024;
my $meg = $kilo * $kilo;
my $limit = 512 * $meg;
my $limit = 768 * $meg;
# clobber stdout before we set rlimits. otherwise we can't do anything STDOUT
@ -276,8 +280,16 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
local $_;
$code = "no strict; no warnings; package main; use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; $code";
my $ret = eval $code;
my $ret;
my @os = qw/aix bsdos darwin dynixptx freebsd haiku linux hpux irix next openbsd dec_osf svr4 sco_sv unicos unicosmk solaris sunos MSWin32 MSWin16 MSWin63 dos os2 cygwin VMS vos os390 os400 posix-bc riscos amigaos/;
{
local $^O = $os[rand()*@os];
no strict; no warnings; package main;
$code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; $code";
$ret = eval $code;
}
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Quotekeys = 0;

2
plugins/get.pm
View file

@ -5,7 +5,7 @@ use HTML::TreeBuilder::XPath;
sub {
my( $said ) = @_;
my $ua = LWP::UserAgent->new( agent => "BB3WebAgent! (mozilla)" );
my $ua = LWP::UserAgent->new( agent => "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_5) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.85 Safari/537.36" );
my $url;
if( $said->{body} =~ s{(http://\S+)\s*}{} ) {

2
plugins/oeis.pm
View file

@ -4,7 +4,7 @@ use warnings;
use strict;
use CGI;
use LWP::Simple;
use WWW::Shorten 'Metamark';
use WWW::Shorten 'TinyURL';
sub {
my($said) = @_;

1
plugins/perldoc.pm
View file

@ -1,4 +1,3 @@
use WWW::Shorten 'Metamark';
use URI::Encode qw(uri_encode);
no warnings 'void';