#!/usr/bin/perl
use strict;
use LWP::UserAgent;
my $ua=LWP::UserAgent->new();
$ua->cookie_jar({});
$ua->agent("Mozilla/5.0");
print "User?\n";
my $user=<>;
chomp $user;
print "Passord:\n";
my $pass=<>;
chomp $pass;
my $login=$ua->post("http://www.nettby.no/sb_login.php",{
	"email"=>$user, "password"=>$pass})->content;
unless($login eq ""){
	die($login."\n");
}
START:
my $choice1;
my $choice2;
sub a {$choice1=0;$choice2=14}
sub b {$choice1=15;$choice2=20}
sub c {$choice1=21;$choice2=30}
sub d {$choice1=31;$choice2=40}
sub e {$choice1=41;$choice2=50}
sub f {$choice1=51;$choice2=60}
sub g {$choice1=61;$choice2=100}
my %action=(
	'1'=>\&a,
	'2'=>\&b,
	'3'=>\&c,
	'4'=>\&d,
	'5'=>\&e,
	'6'=>\&f,
	'7'=>\&g,
);
print <<"q";
Aldersgruppe:
1. 0-14
2. 15-20
3. 21-30
4. 31-40
5. 41-50
6. 51-60
7. 61-100

Velg tall(1-7):
q
my $choice=<>;
chomp $choice;
if(defined $action{$choice}){
	$action{$choice}->();
}else{
	die("Feil valg, idiot\n");
}
print "Hvor mange lister?(1 liste=20 borgere)\n";
my $visits=<>;
chomp $visits;
for (1..$visits){
	if ($_>1){
		print "\n\Vent 20 sekunder ^_^ \n";
		sleep(20);
	}
	print "liste:$_\n";
	visit();
}
my %end=(
	'1'=>\&cont,
	'2'=>\&quit,
);
print <<"E";
En gang til?
1. JA
2. NEI
E

my $opt=<>;
chomp $opt;
if(defined $end{$opt}){
	$end{$opt}->();
}else{
	die("Feil valg, idiot\n");
}
sub quit {exit()}
sub cont {goto START;}
sub visit{
	my @list=getlist();
	$ua->max_size(0);
	foreach(@list){
		$ua->get("http://www.nettby.no/user/index.php?nick=$_");
		print "$_\n";
	}
	$ua->max_size(undef);
}
sub getlist{
	my $sitecontent=$ua->get("http://www.nettby.no/faces/index.php?from_age=$choice1&to_age=$choice2")->content;
	my @sortedA=split(/\n/,$sitecontent);
	my @array;
	foreach (@sortedA){
		$_=~/"online">(.*)<\/a> (.*) <img src=/;
		push(@array, $1);
	}
	my @list=uniq(@array);
	return @list;
}
sub uniq{
	my %seen=();
	my @r=();
	foreach my $a(@_){
		unless ($seen{$a}){
			push @r, $a;
			$seen{$a}=1;
		}
	}
	return @r;
}