Changeset 650

Timestamp:

01/22/12 00:19:03 (16 months ago)

Author:

recon

Message:

Better settings URL, improved advanced anti-throttling

File:

• trollforge/users/recon/gmail stuff/sig_changer.pl (modified) (3 diffs)

trollforge/users/recon/gmail stuff/sig_changer.pl

@@ -8 +8 @@
 # Gmail Settings
 my $gmailURL = 'https://mail.google.com/mail/x/mog-/gp/?source=mog&gl=us';
-my $gmailSettingsURL = 'http://mail.google.com/mail/h/';
+my $gmailSettingsURL = 'http://mail.google.com/mail/h/?&v=prg';
 my $signature = $ARGV[0];
 
@@ -29 +29 @@
         $mech->cookie_jar(HTTP::Cookies->new());
         $mech->agent_alias('Windows Mozilla');
+        sleep(int(rand(5))); #advanced anti-throttling technique
         $mech->get($gmailURL);
         $mech->form_name('gaia_loginform');
         $mech->field ('Email' => $email);
         $mech->field ('Passwd' => $password);
-        print "$email... ";
+        print "Trying $email... ";
         $mech->submit(); # Login
 
@@ -41 +42 @@
                 $pm->finish;
         } else {
-                print "Success!\n";
+                print "Success! ";
         }
 
-        sleep(1); #advanced anti-throttling technique
+        sleep(int(rand(5))); #advanced anti-throttling technique
 
         # Go to HTML settings page to change signature
         $mech->get($gmailSettingsURL);
-        $mech->follow_link(text => 'Settings');
         $mech->form_number(2);
-        $mech->field('dp' => '');
         $mech->field('p_sx_sg' => $signature);
         $mech->click('nvp_a_prefs');
-
+        print "signature changed\n"; #LOL should probably check for m/saved/ but lazy 
         $pm->finish;
 }