X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FPlug.pl;h=a9e376e81b20ed25d5d9522387e57ec3ac55fc88;hb=8addf484a5b78fe043ac663129be6c05e075f260;hp=d80a1dbaca4fae28b4b6580411d170b5ec2c2e3f;hpb=ccc02c22796957aa2f2951c1146d58645261ad0f;p=infobot.git

diff --git a/src/Modules/Plug.pl b/src/Modules/Plug.pl
index d80a1db..a9e376e 100644
--- a/src/Modules/Plug.pl
+++ b/src/Modules/Plug.pl
@@ -25,10 +25,10 @@ sub plugParse {
     my @list;
 
     foreach (@_) {
-	next unless (/<title>(.*?)<\/title>/);
-	my $title = $1;
-	$title =~ s/&amp\;/&/g;
-	push(@list, $title);
+        next unless (/<title>(.*?)<\/title>/);
+        my $title = $1;
+        $title =~ s/&amp\;/&/g;
+        push( @list, $title );
     }
 
     return @list;
@@ -38,10 +38,10 @@ sub Plug {
     my @results = &::getURL("http://www.plug.org/index.xml");
     my $retval  = "i could not get the headlines.";
 
-    if (scalar @results) {
-	my $prefix	= 'Plug Headlines ';
-	my @list	= &plugParse(@results);
-	$retval		= &::formListReply(0, $prefix, @list);
+    if ( scalar @results ) {
+        my $prefix = 'Plug Headlines ';
+        my @list   = &plugParse(@results);
+        $retval = &::formListReply( 0, $prefix, @list );
     }
 
     &::performStrictReply($retval);
@@ -51,26 +51,26 @@ sub plugAnnounce {
     my $file = "$::param{tempDir}/plug.xml";
 
     my @Cxml = &::getURL("http://www.plug.org/index.xml");
-    if (!scalar @Cxml) {
-	&::DEBUG("sdA: failure (Cxml == NULL).");
-	return;
+    if ( !scalar @Cxml ) {
+        &::DEBUG("sdA: failure (Cxml == NULL).");
+        return;
     }
 
-    if (! -e $file) {		# first time run.
-	open(OUT, ">$file");
-	foreach (@Cxml) {
-	    print OUT "$_\n";
-	}
-	close OUT;
+    if ( !-e $file ) {    # first time run.
+        open( OUT, ">$file" );
+        foreach (@Cxml) {
+            print OUT "$_\n";
+        }
+        close OUT;
 
-	return;
+        return;
     }
 
     my @Oxml;
-    open(IN, $file);
+    open( IN, $file );
     while (<IN>) {
-	chop;
-	push(@Oxml,$_);
+        chop;
+        push( @Oxml, $_ );
     }
     close IN;
 
@@ -79,27 +79,26 @@ sub plugAnnounce {
 
     my @new;
     foreach (@Chl) {
-	last if ($_ eq $Ohl[0]);
-	push(@new, $_);
+        last if ( $_ eq $Ohl[0] );
+        push( @new, $_ );
     }
 
-    if (scalar @new == 0) {
-	&::status("Plug: no new headlines.");
-	return;
+    if ( scalar @new == 0 ) {
+        &::status("Plug: no new headlines.");
+        return;
     }
 
-    if (scalar @new == scalar @Chl) {
-	&::DEBUG("sdA: scalar(new) == scalar(Chl). bad?");
+    if ( scalar @new == scalar @Chl ) {
+        &::DEBUG("sdA: scalar(new) == scalar(Chl). bad?");
     }
 
-    open(OUT,">$file");
+    open( OUT, ">$file" );
     foreach (@Cxml) {
-	print OUT "$_\n";
+        print OUT "$_\n";
     }
     close OUT;
 
-    return "Plug: ".
-			join(" \002::\002 ", @new);
+    return "Plug: " . join( " \002::\002 ", @new );
 }
 
 1;