Commit fad55e45 authored by terry%netscape.com's avatar terry%netscape.com
Browse files

mozillazine has changed its format; cope with the new format.

parent e7bbdc33
Loading
Loading
Loading
Loading
+7 −5
Original line number Diff line number Diff line
@@ -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 = (
@@ -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;

@@ -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/&nbsp;//g;
			push @mozillazine, $h; 
			}