Out of curriosity, what would you do with a perl script to login to the site if you don't know perl to add anything to it?
And here's something i made earlier!
Code:
#subeta raep
#!/usr/bin/perl
#################################################
#A simple script to start other subeta scripts with, logs in, checks gold, etc. #
#Created by Dixie`Flatline #
#################################################
use strict;
use warnings;
use WWW::Mechanize; #May have to download this.
my $mech = WWW::Mechanize->new;
my $site = 'http://www.subeta.org';
my $name = 'USER'; #Enter Username here
my $pass = 'PASS'; #Enter Password here
$mech->get("$site/login.php");
$mech->submit_form(
fields => { #Login Form
Name => "$name",
Password => "$pass",
act => 'login',
Login => 'Login',
}
);
$mech->follow_link( text => 'Vault');
my $pagetitle = $mech->title();
my $bank = $mech->content; #dumps the page into a veriable
my ($jewgolds) = ($bank =~ m!You have .*">([0-9,]*)</a>sP!); #searches for gold with $page
my ($golds) = ($bank =~ m!You have<b>([0-9,]) sP</b> in your vault.!); #searches for the regex in $page
print "You have $jewgolds/n"
print "BAI!";
die();
} Can't test this, my only shell does not have Vim and i'm not at home, so meh.
Try it out, if you PM me or something i could maybe even write a few tools for you.
Dixie.
Errr, don't think the bit that checks for gold in the bank works yet BTW.......
Regex isn´t my strong point.... i really can't remember where i was at on this project, we will see when i get home.
Linear Mode
