Loading webtools/mozbot/mozbot.pl +7 −5 Original line number Diff line number Diff line Loading @@ -55,7 +55,7 @@ use Chatbot::Eliza; $|++; my $VERSION = "1.13"; # keep me in sync with the mozilla.org cvs repository my $VERSION = "1.16"; # keep me in sync with the mozilla.org cvs repository my $debug = 1; # debug output also includes warnings, errors my %msgcmds = ( Loading Loading @@ -139,7 +139,7 @@ my $last_slashdot = 0; # leave $mozillazine undef'd if you don't want mozillazine # headlines checked every eight hours my $mozillazine = "http://www.mozillazine.org/home.html"; my $mozillazine = "http://www.mozillazine.org/index.html"; my @mozillazine; my $last_mozillazine = 0; Loading Loading @@ -779,8 +779,10 @@ sub mozillazine foreach (@mz) { if (my ($h) = $_ =~ /COLOR="#FEFEFE"><B>([^<>]+)/) print $_; if (m@<!--head-->([^<>]+)<!--head-end-->@) { my $h = $1; $h =~ s/ //g; push @mozillazine, $h; } Loading Loading
webtools/mozbot/mozbot.pl +7 −5 Original line number Diff line number Diff line Loading @@ -55,7 +55,7 @@ use Chatbot::Eliza; $|++; my $VERSION = "1.13"; # keep me in sync with the mozilla.org cvs repository my $VERSION = "1.16"; # keep me in sync with the mozilla.org cvs repository my $debug = 1; # debug output also includes warnings, errors my %msgcmds = ( Loading Loading @@ -139,7 +139,7 @@ my $last_slashdot = 0; # leave $mozillazine undef'd if you don't want mozillazine # headlines checked every eight hours my $mozillazine = "http://www.mozillazine.org/home.html"; my $mozillazine = "http://www.mozillazine.org/index.html"; my @mozillazine; my $last_mozillazine = 0; Loading Loading @@ -779,8 +779,10 @@ sub mozillazine foreach (@mz) { if (my ($h) = $_ =~ /COLOR="#FEFEFE"><B>([^<>]+)/) print $_; if (m@<!--head-->([^<>]+)<!--head-end-->@) { my $h = $1; $h =~ s/ //g; push @mozillazine, $h; } Loading