Changeset 350 for trollforge

Timestamp:

05/29/10 08:54:54 (3 years ago)

Author:

pynchon

Message:

now with XML RPC

File:

• trollforge/pynchon/pastebin.pl (modified) (3 diffs)

trollforge/pynchon/pastebin.pl

@@ -1 +1 @@
 #!/usr/bin/perl
 
-# cmdline tool to make the lisp pastebin bot flood freenode chans
-#
-# usage:
+# lisp pastebot flooder
+
 use warnings;
 use strict;
-
 use WWW::Mechanize;
-use WWW::Mechanize::FormFiller;
-
-my $m = WWW::Mechanize->new();
-my $f = WWW::Mechanize::FormFiller->new();
+use List::Util qw/shuffle/;
+use Frontier::Client;
 
 if ($#ARGV < 2) {
@@ -17 +13 @@
         exit 1;
 }
-
 my $user = shift @ARGV;
 my $title = join(' ', @ARGV);
@@ -85 +80 @@
 while (1) {
         foreach (@chanlist) {
-
-                $m->get("http://paste.lisp.org/");
-                $m->submit_form(form_number => 1, fields => {
-                                channel => $_, username => $user, title => $title,
-                                captcha => "lisp", text => $paste } );
-                print "spammed $_\n";
+                my $client = Frontier::Client->new(url => "http://www.common-lisp.net:8185/RPC2");
+                my @data =      ($_, $user, $title, $paste);
+                $client->call("newpaste", @data);
+                        print "spammed $_\n";
         }
 }
 
-# RIP erxz.com, you will not recover.
-#
-#       $m->get("http://erxz.com/pb/html");
-#       $m->submit_form(form_number => 1, fields => {
-#                       channel => $chan,
-#                       nick => $user,
-#                       summary => $title,
-#                       paste => $paste } );
-
-