src/Modules/Plug.pl

   1 #
   2 #     Plug.pl: hacked for http://Plug.org/ by Tim Riker <Tim@Rikers.org>
   3 # Slashdot.pl: Slashdot headline retrival
   4 #      Author: Chris Tessone <tessone@imsa.edu>
   5 #    Modified: dms
   6 #   Licensing: Artistic License (as perl itself)
   7 #     Version: v0.4 (19991125)
   8 #
   9
  10 ###
  11 # fixed up to use XML'd /. backdoor 7/31 by richardh@rahga.com
  12 # My only request if this gets included in infobot is that the
  13 # other header gets trimmed to 2 lines, dump the fluff ;) -rah
  14 #
  15 # added a status message so people know to install LWP - oznoid
  16 # also simplified the return code because it wasn't working.
  17 ###
  18
  19
  20 package Plug;
  21
  22 use strict;
  23
  24 sub plugParse {
  25     my @list;
  26
  27     foreach (@_) {
  28         next unless (/<title>(.*?)<\/title>/);
  29         my $title = $1;
  30         $title =~ s/&amp\;/&/g;
  31         push( @list, $title );
  32     }
  33
  34     return @list;
  35 }
  36
  37 sub Plug {
  38     my @results = &::getURL("http://www.plug.org/index.xml");
  39     my $retval  = "i could not get the headlines.";
  40
  41     if ( scalar @results ) {
  42         my $prefix = 'Plug Headlines ';
  43         my @list   = &plugParse(@results);
  44         $retval = &::formListReply( 0, $prefix, @list );
  45     }
  46
  47     &::performStrictReply($retval);
  48 }
  49
  50 sub plugAnnounce {
  51     my $file = "$::param{tempDir}/plug.xml";
  52
  53     my @Cxml = &::getURL("http://www.plug.org/index.xml");
  54     if ( !scalar @Cxml ) {
  55         &::DEBUG("sdA: failure (Cxml == NULL).");
  56         return;
  57     }
  58
  59     if ( !-e $file ) {    # first time run.
  60         open( OUT, ">$file" );
  61         foreach (@Cxml) {
  62             print OUT "$_\n";
  63         }
  64         close OUT;
  65
  66         return;
  67     }
  68
  69     my @Oxml;
  70     open( IN, $file );
  71     while (<IN>) {
  72         chop;
  73         push( @Oxml, $_ );
  74     }
  75     close IN;
  76
  77     my @Chl = &plugParse(@Cxml);
  78     my @Ohl = &plugParse(@Oxml);
  79
  80     my @new;
  81     foreach (@Chl) {
  82         last if ( $_ eq $Ohl[0] );
  83         push( @new, $_ );
  84     }
  85
  86     if ( scalar @new == 0 ) {
  87         &::status("Plug: no new headlines.");
  88         return;
  89     }
  90
  91     if ( scalar @new == scalar @Chl ) {
  92         &::DEBUG("sdA: scalar(new) == scalar(Chl). bad?");
  93     }
  94
  95     open( OUT, ">$file" );
  96     foreach (@Cxml) {
  97         print OUT "$_\n";
  98     }
  99     close OUT;
 100
 101     return "Plug: " . join( " \002::\002 ", @new );
 102 }
 103
 104 1;
 105
 106 # vim:ts=4:sw=4:expandtab:tw=80