#!/usr/bin/perl

use LWP::UserAgent;

$link = shift or die  qq {
Netlog hidden image downloader by girex

usage:   perl $0 <link>
example: perl $0 http://it.netlog.com/user/photo/photoid=58008698

quindi link e' il link all'immagine "protetta"
};

my $lwp = new LWP::UserAgent;
print  STDOUT "\n[+] Netlog hidden image downloader by girex\n";

if($link =~ /it.netlog.com\/(.*)\/photo\/photoid=(\d{8})/)
{
     $user = $1;
     $foto_id = $2;
}
else
{
     print STDOUT "[-] Link errato, script failed \n";
     exit;
}

$target = "http://it.netlogstatic.com/p/oo/0" . substr($foto_id, 0, 2). "/". substr($foto_id, 2, 3)."/${foto_id}.jpg"; 

print STDOUT "\n[+] Nickname: $user, photo id = $foto_id\n";
print STDOUT "[+] Link diretto immagine: $target\n\n";

print STDOUT "[?] Scaricare l'immagine? [y/n]  ";
chomp($ans = <>);

download ($target) if $ans =~ /^y|yes$/i;


sub download
{
	my $res = $lwp->get(shift);
	
	if($res->is_success)
	{
		open(IMG, '>', $foto_id.'.jpg');
		binmode(IMG);
		
		print IMG $res->content;
		close(IMG);
	}
	else
	{
		print STDOUT "\n[-] Download failed. Maybe wrong link\n";
		exit;
	}
	
	print STDOUT "[+] Immagine ${foto_id}.jpg salvata con successo!\n";
}