Recent content by t0r

Ok, I asked around and found a different approach. I'm not sure how to incorporate this new sub into my existing script, any ideas? sub Steam() { print "File Containg username:password > "; chomp(my $steam = <STDIN>); open(S, $steam) || die("Error: $!"); my @steamcheck = <S>; close(S)...

I have compared them, The only difference in the failed login is underneath the login box it says "Incorrect Login" and the successful login page is totally different... For some reason the script isn't detecting the "Incorrect Login

Ya I tried that so this is my last resort, the script itself works but it isn't recognizing keywords when the login was successful/failure so it doesn't correctly print back the response whether the login worked or not..which is my problem

Not sure what you mean by that

I'm not brute forcing anything, I have a list of accounts I buy/sell/trade and it's important for me to be able to check if they all work without having to individually check 1 by 1 and this is the best way I can think of.

Im sorry, I should have mentioned that the login form I am using is javascript so I can not use www:mechanize

Ok, I made a script that should connect to steamcommunity.com, try logging in from a .txt file of username/passwords, and print back to me if the login was successful or not... I'm sorta new to PERL so I'm not 100% positive on what to look for, but here is whats happening. I don't know how the...