my @list;
foreach (@_) {
- next unless (/<title>(.*?)<\/title>/);
- my $title = $1;
- $title =~ s/&\;/&/g;
- push(@list, $title);
+ next unless (/<title>(.*?)<\/title>/);
+ my $title = $1;
+ $title =~ s/&\;/&/g;
+ push( @list, $title );
}
return @list;
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);
sub plugAnnounce {
my $file = "$::param{tempDir}/plug.xml";
- my @Cxml = &::getURL("http://www.plug.org/plug.xml");
- if (!scalar @Cxml) {
- &::DEBUG("sdA: failure (Cxml == NULL).");
- return;
+ my @Cxml = &::getURL("http://www.plug.org/index.xml");
+ 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;
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;
+
+# vim:ts=4:sw=4:expandtab:tw=80