The following is my very simple script :
</script>
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
my $url = "<My Web Server IP : PORT Number>";
my $browser = LWP::UserAgent->new(keep_alive => 5, timeout => 10, agent => 'unimportant',);
$browser->timeout(10);
my @fields = [user => '<My UserName>',
password => '<My Password>'
];
my $response = $browser->post($url,@fields);
#if ($response->is_error())
#{
#printf "Error!";
#printf "%s\n", $response->status_line;
#}
my $contents = $response->content();
print "---------------------------------------------","\n";
print $contents;
print "---------------------------------------------","\n";
if ($response->is_redirect){
print "Redirect","\n";
}
</script>
THE ABOVE SCRIPT FAILS
My problem is this:
I have to login to a web server (basically i get a form upon typing the ip address on the web browser, which asks a user name and password). It is done using the perl LWP itself. But, the main problem is this:
Upon logging in to the website, it redirects to another location (in the same IP Address itself). So, i am not able to access the redirected webpage. How do i do it?
How do i successfully login and access the main page of a webserver which redirects me upon login ?
:mad:
3  12005 
sorry for just putting the question and not even asking for a reply :
I kindly request anyone among you to guide me regarding what has to be done
hi
i've got the same problem
have you found a solution?
well, it wasn't that problematic to do.
let's imagine, we have a web-site with authentication form. i could look like this: -
<body>
-
<FORM method="post" action="letMeIn.php">
-
<table border="5" cellpadding ="50">
-
<TR><TD>
-
login:<br/>
-
<INPUT type="text" name="login"><br/>
-
password:<br/>
-
<INPUT type="password" checked name="passwwd"><br/>
-
<INPUT type="submit" value="submit">
-
</TD></TR></table></center></FORM>
-
</body>
-
we can see: FORM method="post", INPUT name="login", INPUT name= "passwd". so let's just POST 'login' and 'passwwd' to letMeIn.php, write down a cookie, and then GET a side with content -
#!/usr/bin/perl -w
-
-
use LWP::UserAgent;
-
use HTTP::Cookies;
-
$ua = LWP::UserAgent->new;
-
$ua->agent("MyApp/0.1 ");
-
-
# set a cookie stuff. 1 line, nothing more is needed
-
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));
-
-
# post login and password to appropriate script
-
$req = HTTP::Request->new(POST => 'http://somewhere.pl/logs/letMeIn');
-
$req->content_type('application/x-www-form-urlencoded');
-
$req->content('login=iv&&passwwd=iv_ext');
-
my $res = $ua->request($req);
-
-
# check the outcome of the response
-
if ($res->is_success) {
-
print "success\n";
-
print $res->content;
-
} else {
-
print $res->status_line, "\n";
-
print $res->as_string;
-
print "ok\n", $res->is_redirect if $res->is_redirect;
-
-
# and we'll get here the following:
-
-
#302 Found
-
#HTTP/1.1 302 Found
-
#Cache-Control: no-store, no-cache, must-revalidate, post-check=0, #pre-check=0
-
#Connection: close
-
#Date: Mon, 19 Feb 2007 09:15:19 GMT
-
#Pragma: no-cache
-
#Location: mainFrame.php
-
#Server: Apache/1.3.33 (Debian GNU/Linux) PHP/4.3.10-18 #mod_ssl/2.8.22 OpenSSL/0.9.7e mod_perl/1.29
-
#Content-Type: text/html
-
#Expires: Thu, 19 Nov 1981 08:52:00 GMT
-
#Client-Date: Mon, 19 Feb 2007 09:15:20 GMT
-
#Client-Peer: 62.69.206.66:80
-
#Client-Response-Num: 1
-
#Client-Transfer-Encoding: chunked
-
#Set-Cookie: PHPSESSID=d18695cd0179c4dffa6452937ca1a4d2; path=/
-
#X-Powered-By: PHP/4.3.10-18
-
#
-
#ok
-
-
# see that? $res->status_line gives us 302, which means redirection,
-
#$res->is_redirect admits that, and $res->as_string gives us Location:
-
#mainFrame.php. so let's just get this
-
$req1 = HTTP::Request->new(GET => 'http://somewhere.pl/logs/mainFrame.php');
-
$req1->header('Accept' => 'text/html');
-
my $res1 = $ua->request($req1);
-
print $res1->as_string;
-
-
# and here i get what i want.
-
-
}
-
hope it was helpful
iv
Sign in to post your reply or Sign up for a free account.
Similar topics
by: MadHatter |
last post by:
Hello,
is there any command line switch or anything else which would allow me
to use the standard input as the source for a script? so that I could
type perl hit return and type out the script...
|
by: David Walker |
last post by:
Hi
I have a program which I need to interface with a webpage - the webpage will
accept an input (probably a 'post' string from the program) and then will
process it and needs to return a value. ...
|
by: slash |
last post by:
Hi,
I have a page on my website that is driven dynamically off of a
database by a perl/cgi script. The page contents are essentially
reports of the following
url:...
|
by: Manu |
last post by:
Hi there,
I am using a perl script to generate this html page which just
redirects users to my ftp server. The problem is I get a "page cannot
be displayed" in IE 6.0 (haven't tried other...
|
by: Ruslan Kogan |
last post by:
Hi,
I have a webpage with a table that has 4 cells (2x2). In one of those
cells, I wish to load a webpage stored on a different server
(say...www.webpage.com/abc.htm). Does HTML allow for this...
|
by: prajil |
last post by:
Hi,
Could anyone point how can i override output redirection using perl.
i.e.
command > file 2>&1 will redirect both output and error of command to file
I need to print a message to...
|
by: thelevitator |
last post by:
Im trying to execute a perl script from a shell script. I have to pass the path of a file in the command line when i execute the perl script (Automate the perl script execution). How do i feed the...
|
by: snsanju |
last post by:
Hi,
i am writing a program to fetch the portion of the data of a webpage.
Here i am using www::mechanize module.
I got succeeded to print the part of the web page section but here the problem...
|
by: gnidoc |
last post by:
This is a small perl script I wrote to check mirror lists (files filled with one URL per line). It prints " http://..." when an URL can't be retrieved and just prints the url when everything goes...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
| |
