Www mechanize resume on error

Make WWW::Mechanize do not exit on GET Errors

http://digitalpbk.com/perl/wwwmechanize-error-geting-premature-do-not-exit-resume Make WWW::Mechanize do not exit on GET Errors When using PERL and WWW::Mechanize, your script can stop if there is some error in GETing a URL (such as 404 Not Found, 403 Permission Denied). Instead of resuming, the script terminates. If you want the script to continue resuming, you have to pass autocheck => 0 in the Mechanize class constructor as shown below my $mech = WWW::Mechanize->new(autocheck => 0); This makes sure that the mechanize library does not check for errors ...

Perl Script to send Free SMS to any mobile number in INDIA using way2sms

http://digitalpbk.com/perl-sms/perl-script-send-free-sms-any-mobile-number-india-using-way2sms Perl Script to send Free SMS to any mobile number in INDIA using way2sms The following script sends SMS to any number in INDIA using the free service provided by Way2Sms.com Requires WWW::Mechanize and Compress::Zlib libraries. Please remember to fill the username and password in the fields that is mentioned in the script. Updated code on 28th October 2011. If you face errors use the new script. #!/usr/bin/perl use WWW::Mechanize; use Compress::Zlib; my $mech ...

Perl Script to Fetch PNR Status reservation on train from Indian Railways

http://digitalpbk.com/perl/script-fetch-pnr-status-reservation-train-indian-railways the code below. Requires: WWW::Mechanize module and PERL. Usage: ./pnr.pl <PNR NUMBER> EDIT: The Railways have changed their interface, so the script also have changed. New Script #!/usr/bin/perl use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $pnr = $ARGV[0]; $mech->get("http://www.indianrail.gov.in/pnr_Enq.html"); $part1 = substr($pnr,0,3); $part2 = substr($pnr,3); print " Fetching for PNR $part1-$part2 \n\n"; $mech->submit_form( ...

Dataone Account Usage Checker in PERL

http://digitalpbk.blogspot.com/2008/06/free-dataone-account-usage-checker-perl.html Dataone Account Usage Checker in PERL The following Script in PERL is a Dataone account usage checker.#!/usr/bin/perl# http://digitalpbk.blogspot.com/2008/06/free-dataone-account-usage-checker-perl.htmluse WWW::Mechanize;use HTTP::Cookies;use HTTP::Request::Common;my $verbose = 0;my $username;my $password;my $url="http://10.240.64.195/weblogin.jsp";for(my $i=0;$i{ if($ARGV[$i] eq "-v" or $ARGV[$i] eq "--verbose"){ $verbose = 1; } elsif($ARGV[$i] eq "-u" ...

Firefox 3.5 Embarrassing Error Message

http://digitalpbk.com/firefox/firefox-35-embarassing-error-message Firefox 3.5 Embarrassing Error Message That was an embarrassing error message :D Firefox Funny Software ...

Perl Script to Login to Orkut

http://digitalpbk.blogspot.com/2007/05/perl-script-to-login-to-orkut.html and GET the redirect page URLGoto the redirect pageGoto Orkut.com/home.aspxYour done.Note:Tested on Linux (FC6, Perl 5.8.8)The following script is for linux, Will run on Windows too but the ANSI coloring may not work...Windows Program is given below the program for Linux (without ANSI coloring).For Linux (with ANSI coloring)use WWW::Mechanize;use HTTP::Cookies;use HTTP::Request::Common;$cj=HTTP::Cookies->new(file => "cookie.jar",autosave=>1,ignore_discard=>1);$mech ...

Making symbolic links on Windows xp using junction from sysinternals

http://digitalpbk.com/2009/12/making-symbolic-links-windows-xp-using-junction-sysinternals Copyright (C) 2000-2007 Mark Russinovich Systems Internals - http://www.sysinternals.com The first usage is for displaying reparse point information, and the second usage is for creating or deleting a NTFS junction point: usage: junction [-s] [-q] -q Don't print error messages (quiet) -s Recurse subdirectories usage: junction [-d] [] -d Delete the specified junction example: junction d:\link c:\winnt This is most commonly required and useful when you ...

Perl Download Manager

http://digitalpbk.blogspot.com/2008/06/perl-download-manager.html Perl Download Manager IntroThis is my PERL downloader program, with resume.Only works if SERVER has Parts enabled.Well pretty much thats it #!/usr/bin/perluse strict;use threads;use threads::shared;use HTTP::Request;use HTTP::Response;use Math::Round qw(nearest);use LWP;exit unless(defined $ARGV[0] && -e $ARGV[0]);open HND,$ARGV[0];NEXT:while(my $url = ){ my $file = substr($url,rindex($url,"/")+1); $file =~ s/%20/_/g; chomp $url; exit if($url eq "" || $file eq ...

Apache 2.2.6 Getting 403 Forbidden on all pages

http://digitalpbk.blogspot.com/2007/12/apache-403-forbidden-virutal-host.html Apache 2.2.6 Getting 403 Forbidden on all pages IntroThis is the issue about getting 403 Forbidden Error on all pages when you are working on localhost. I have used Virtual Host to simulate multiple sites on my computer. So I get 403 Forbidden on all pages. I tried for many solutions couldn't find anything much relevant. After sometime tweaking here is the solution or rather the problem I found....The error forbidden arises due to Directory Path, eg C:/www/># many things here ...

HTTP 1.1 Response Status Codes

http://digitalpbk.blogspot.com/2007/04/http-11-response-status-codes.html redirected to a different location specified by the Location Header.400 - 499 : Client Request IncompleteIndicates the client request is incomplete and needs more information to complete the request.400 Bad Request : Syntax error in the client request401 Unauthorized : Request requires authentication, server sends a WWW-Authenticate Header to indicate the authentication type.402 Payment Required : Reserved for Future 403 Forbidden : Access to request is forbidden404 Not Found : Requested document ...