Changeset 345 for trollforge

Timestamp:

05/27/10 19:20:09 (3 years ago)

Author:

pynchon

Message:

added support for another pb and renamed script

File:

• trollforge/pynchon/pastebin.pl (moved) (moved from trollforge/pynchon/lispbp.pl) (2 diffs)

trollforge/pynchon/pastebin.pl

@@ -3 +3 @@
 # cmdline tool to make the lisp pastebin bot flood freenode chans
 #
-# usage: lispbp.pl channel username message
-
+# usage:
 use warnings;
 use strict;
@@ -14 +13 @@
 my $f = WWW::Mechanize::FormFiller->new();
 
+
+if ($#ARGV < 4) {
+        print "usage lispbp.pl 1|2 channel username message"
+}
+
+my $pb = shift @ARGV;
 my $chan = shift @ARGV;
 my $user = shift @ARGV;
 my $title = join(' ', @ARGV);
 
-$m->get("http://paste.lisp.org/new/lisp");
 
-$m->submit_form(form_number => 1, fields => {
-                channel => $chan,
-                username => $user,
-                title => $title,
-                captcha => "lisp",
-                text => "lol" } );
+my $tdb = WWW::Mechanize->new();
+$tdb->get("http://rolloffle.churchburning.org/troll_me.php");
+my $paste = $tdb->content( format => 'text' );
+
+if ($pb eq "1") {
+        print "using http://paste.lisp.org/new/lisp\n";
+        $m->get("http://paste.lisp.org/new/lisp");
+        $m->submit_form(form_number => 1, fields => {
+                        channel => $chan,
+                        username => $user,
+                        title => $title,
+                        captcha => "lisp",
+                        text => $paste } );
+}
+
+if ($pb eq "2") {
+        print "using http://erxz.com/pb/html\n";
+        $m->get("http://erxz.com/pb/html");
+        $m->submit_form(form_number => 1, fields => {
+                        channel => $chan,
+                        nick => $user,
+                        summary => $title,
+                        paste => $paste } );
+}