[source] fts videos_hentai_ms down (+18)

Código:

#!/usr/bin/perl
#autor: hfts315
#   http://videos.hentai.ms

use Getopt::Long;
use WWW::Mechanize;

GetOptions("url=s"=>\$url,"down"=>\$down);

#url
if(defined($url))
{
   #identifica
   if(fts_Ident($url) eq "videos.hentai.ms")
   {
      $link_secreto = fts_VideosHentaiMs_link($url);
   }

   #baixa
   if(defined($down))
   {
      $cmd = "wget " . $link_secreto;
      system($cmd);
   }
}

sub fts_Ident
{
   $url = $_[0];
   if($url =~ /videos.hentai.ms/)
   {
      return "videos.hentai.ms";
   }
}

sub fts_down
{
   $fts_down = WWW::Mechanize->new;
   #$fts_down->get($_[0],":file_content"=>"")
}

#http://videos.hentai.ms
sub fts_VideosHentaiMs_link
{
   $fts_get = WWW::Mechanize->new;
   $fts_get->get($_[0]);
   @link = $fts_get->content =~ /flashvars='file=(.*)&streamer=/;
   return $link[0];
}

perl xxx.pl --url [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] --down