Using OPEN and LWP

[pplers]

i wanted a script to check whether a premium account is still working or not, so i tried these:

use LWP::Simple;

open (IN, 'accounts.txt');
while (<IN>) {
	chomp;

	$user=substr($_,0,5);
	$pass=substr($_,6,6);

	print "\n";

	while () {
		sleep(3);

		my $rap = get("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login="."$user"."&password="."$pass");

		if ($rap=~/Account found, but password is incorrect./) {
			print "Password incorrect";
		} elseif($rap=~/Account not found/) {
			print "Account not found";
		}
	}
}
close (IN);

and the file accounts.txt is something like:

11111:222222
11111:222222
11111:222222
11111:222222
11111:222222
11111:222222
11111:222222
11111:222222

but the script doesn't work, can anyone help me a bit ...... thanks

[KevinADC]

"Doesn't work" is very vague. What does it do?

[pplers]

it only prints the "\n" (line skip) and stays there, it doesn't check with rs.com


try it


p.s: i know that elseif($rap=~/Account not found/) should be elsif($rap=~/Account not found/) but when i couldn't edit my post

[KevinADC]

take out the embedded while() loop and see if that helps.

remove these lines:

while()
{


}

[pplers]

yeah, i already did but still doesn't work

have you tried it ?

[pplers]

sorry for the double post..

i did perl script.pl > outtext.txt (in windows) and i realized that the problem is in the regular expresion

i tried a new script to that, i only did one request,

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login=22154&password=233424');
my $res = $ua->request($req);

if ($res=~/<\/script>Account found, but password is incorrect.<\/p>/)
{
print "Password incorrect";
}
elsif($res=~/Account not found/)
{
print "Account not found";
}
else{
print $res->as_string;
}

the result should say: Password incorrect

i don't know whats wrong in the regexp

[pplers]

i fixed it....
it wasn't the regexp

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login=22154&password=233424');
my $res = $ua->request($req);
my $ris = $res->as_string;

if ($ris=~/<\/script>Account found, but password is incorrect.<\/p>/)
{
print "Password incorrect";
}
elsif($ris=~/Account not found/)
{
print "Account not found";
}
else{
print $ris;
}

the only preoblem i have when adjusting the changes to the original script (first posted) is that the part when the script has to open the file and extract the info, it doesn't work

[KevinADC]

see what this returns:

open (IN, 'accounts.txt') or die "Can't open accounts.txt: $!";

[pplers]

thanks, i turn it into a function and now it works:

use LWP::UserAgent;

open (IN, 'accounts.txt') or die "Can't open accounts.txt: $!";
while (<IN>) {
 chomp;
  $user=substr($_,0,5);
  $pass=substr($_,6,6);

&check($user,$pass);

}
close (IN);


sub check{
my $user = shift;
my $pass = shift;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => "https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi?login="."$user"."&password="."$pass");
my $res = $ua->request($req);
my $ris = $res->as_string;

if ($ris=~/Account found, but password is incorrect/)
{
print "Password incorrect\n";
}
elsif($ris=~/Account not found/)
{
print "Account not found\n";
}
else{
print "Script Error\n";
}
}