traducere din CGI in php

[Ghost]

am nevoie sa traduc un fisier cgi in php

eu nu stiu perl si nu inteleg acest cod...poate cineva sa ma ajute chiar in mare...macar sa stiu ce face fisierul acesa ca sa pot sa fac un fis php la fel!

Cod:

#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;

$q = new CGI;
$num = $q->param('num');
$keyword = $q->param('keyword');
$text = $q->param('text');

#if($keyword eq ""){
        print $q->header;
        print qq~

Enter Keyword	:
Number video to extract each source	:
Extra Text

~;
#        exit;
#}

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
$yearnow = $year-100;
$yearnow = 2000 + $yearnow;
$mon=$mon+1;
$curdate = "$yearnow\-0$mon";

mkdir("$curdate",0755);

########Read text file
sub get_file_contents{
######################
my ($filename) = @_;
my ($filesize, $filesize, $thefile);

if ((-e "$filename") > 0)
        {
$filesize = (-s "$filename");
open (TFILECNTS, "$filename") || die "$filename";
        read(TFILECNTS,$thefile,$filesize);
close (TFILECNTS);
        }

return ($thefile);

}

#############
sub fetch
#############
  {
    my ($url) = @_;
    my $page_returned = "";
    use LWP::UserAgent;
    $ua = new LWP::UserAgent;
    $ua->agent('Mozilla/4.0');
    my $req = new HTTP::Request GET => "$url";
    my $res = $ua->request($req);
    if ($res->is_success)
      { $page_returned = $res->content; }
    return $page_returned;
  }

############
sub error {
############
        $message = shift;
        print $q->header;
        print qq~Error : $message~;
        exit;
}
################
sub red_tube {
################
        if($keyword eq ""){
                exit;
        }
        $redtube = fetch("http://www.redtube.com/?search=$keyword");
        $redtube =~ s/\"//ig;
        $redtube =~ s/\'//ig;

        while($redtube =~ /\(.*?)\<\/a\>\<\/td\>/ig){
                push(@pagecoll, "$1|$2");
        }
        $pagecoll = @pagecoll;
        $curnum = 0;
        print qq~Processing Redtube using "$keyword" as keyword
\n~;
        foreach $itemred(@pagecoll){
                if($curnum < $num){
                        @itemredinfo = split(/\|/, $itemred);
                        $embedurl =$itemredinfo[0];
                        @embedid = split(/\//, $embedurl);

                        $titles =$itemredinfo[1];
                        $titles =~ s/\)//ig;
                        $titles =~ s/^.*(\\|\/)//;
                        $titles =~ s/\s+/_/ig;
                        $titles =~ s/\./PsJsDoT/g;
                        $titles =~ s/\-/PsJsDaSh/g;
                        if($titles =~ /\W/){
                                $titles =~ s/\W/_/ig;
                        }
                        $titles =~ s/PsJsDoT/\./g;
                        $titles =~ s/PsJsDaSh/\-/g;

                        $embedcode = qq~~;

                        $filetemplate = get_file_contents("template.html");
                        $filetemplate =~ s/\<\!\-\-embed tag\-\-\>/$embedcode/is;
                        $filetemplate =~ s/<\!\-\-title\-\-\>/$itemredinfo[1]/ig;
                        $filetemplate =~ s/<\!\-\-text\-\-\>/$text/ig;
                        $filetemplate =~ s/<\!\-\-keyword\-\-\>/$keyword/ig;

                        open(FILE, ">$curdate/$titles.html");
                        print FILE $filetemplate;
                        close(FILE);

                        print "Creating $curdate/$titles.html
\n";
                }
                $curnum++;
        }
}
###################
sub porn_tube {
###################
        $keyword="japan";
        if($keyword eq ""){
                exit;
        }
        $porntube = fetch("http://www.pornotube.com/search.php?q=$keyword");
        $porntube =~ s/\"//ig;
        $porntube =~ s/\'//ig;

        print $porntube;

        while ($porntube =~ /\\(.*?)\<\/a\>\<\/p\>/ig){
                push(@ppagecoll, "$1|$2");
        }

        foreach $itemporn(@ppagecoll){
                print "$itemporn\n";
                #
        }
}
##################
sub x_tube {
##################
use HTTP::co[i]o[/i]kies;
use LWP;

        #http://www.xtube.com/index.php?a=S
        if($keyword eq ""){
                exit;
        }
        my $browser = LWP::UserAgent->new( );
        my $co[i]o[/i]kie_jar = HTTP::co[i]o[/i]kies->new( );
        $browser->co[i]o[/i]kie_jar( $co[i]o[/i]kie_jar );

        my $req1 = new HTTP::Request GET => "http://www.xtube.com/index.php?a=S";
        my $res1 = $browser->request($req1);
        if ($res1->is_success){
                my $req2 = new HTTP::Request GET => "http://www.xtube.com/results.php?type=video&search=$keyword";
                my $res2 = $browser->request($req2);
                $xtube = $res2->content;
                $xtube =~ s/\"//ig;
                $xtube =~ s/\'//ig;
                $xtube =~ s/amp\;//ig;
        }

        $curnum = 0;

        print "Processing Xtube using $keyword as keyword
";

        while($xtube =~ /alt\= border\=0\>\ \;\(.*?)\<\/a\>\/ig){
                #print qq~http://www.xtube.com/play_re.php?v=$1&page=1\n~;

                if($curnum < $num){

                        my $req3 = new HTTP::Request GET => "http://www.xtube.com/play_re.php?v=$1&page=1";
                        my $res3 = $browser->request($req3);
                        $xtubep = $res3->content;
                        $xtubep =~ m#\                        $xtube_embedcode = qq~ \n~;
                        $xtubep =~ m#\(.*?)\<\/h5\>#is;
                        $xtubetitle = "$1";
                        $xtubep =~ m#\<\!\-\- Content \-\-\>(.*?)\<\!\-\- Bottom Corners \-\-\>#is;
                        $xtubepd = $1;
                        $xtubepd =~ m#\(.*?)\<\/h4\>#is;
                        $xtubedesc = "$1";

                        $titles =$xtubetitle;
                        $titles =~ s/\)//ig;
                        $titles =~ s/^.*(\\|\/)//;
                        $titles =~ s/\s+/_/ig;
                        $titles =~ s/\./PsJsDoT/g;
                        $titles =~ s/\-/PsJsDaSh/g;
                        if($titles =~ /\W/){
                                $titles =~ s/\W/_/ig;
                        }
                        $titles =~ s/PsJsDoT/\./g;
                        $titles =~ s/PsJsDaSh/\-/g;

                        $filetemplate = get_file_contents("template.html");
                        $filetemplate =~ s/\<\!\-\-embed tag\-\-\>/$xtube_embedcode/is;
                        $filetemplate =~ s/<\!\-\-title\-\-\>/$xtubetitle/ig;
                        $filetemplate =~ s/<\!\-\-text\-\-\>/$text/ig;
                        $filetemplate =~ s/<\!\-\-keyword\-\-\>/$keyword/ig;

                        open(FILE, ">$curdate/$titles.html");
                        print FILE $filetemplate;
                        close(FILE);

                        print "Creating $curdate/$titles.html
\n";
                }
                $curnum++;
        }
}
###############
sub porn_hub {
###############
        if($keyword eq ""){
                exit;
        }
        $porn_hub = fetch("http://www.pornhub.com/main.php?action=webmasters%2Fembedded_videos_search&categories=0&duration=0&order_by=most_recent&search_keyword=$keyword&go=Go");
        $porn_hub =~ s/\"//ig;
        $porn_hub =~ s/\'//ig;
        $porn_hub =~ s/amp\;//ig;
        $porn_hub =~ s/\n//ig;

        print qq~Processing Pornhub using "$keyword" as Keyword
\n~;

        $curnum = 0;
        while($porn_hub =~ /\/ig){
                if($cur_hub_key ne $1){
                        if($curnum < $num){
                                $cur_hub_key = $1;

                                $porn_hub =~ m#\(.*?)\#is;
                                $titlephub = $1;
                                $titlephub =~ m#\(.*?)\<\/b\>#is;
                                $titlephub = $1;
                                $embedcode = qq~ \n~;

                                $titles =$titlephub;
                                $titles =~ s/\)//ig;
                                $titles =~ s/^.*(\\|\/)//;
                                $titles =~ s/\s+/_/ig;
                                $titles =~ s/\./PsJsDoT/g;
                                $titles =~ s/\-/PsJsDaSh/g;
                                if($titles =~ /\W/){
                                        $titles =~ s/\W/_/ig;
                                }
                                $titles =~ s/PsJsDoT/\./g;
                                $titles =~ s/PsJsDaSh/\-/g;


                                $filetemplate = get_file_contents("template.html");
                                $filetemplate =~ s/\<\!\-\-embed tag\-\-\>/$embedcode/is;
                                $filetemplate =~ s/<\!\-\-text\-\-\>/$text/ig;
                                $filetemplate =~ s/<\!\-\-keyword\-\-\>/$keyword/ig;
                                $filetemplate =~ s/<\!\-\-title\-\-\>/$titlephub/ig;

                                open(FILE, ">$curdate/$titles.html");
                                print FILE $filetemplate;
                                close(FILE);

                                print "Creating $curdate/$titles.html
\n";
                        }
                        $curnum++;
                }

        }

}


red_tube;
#porn_tube;
x_tube;
porn_hub;

[AdyX]

Offtopic: Dragut, numai site-uri pentru copiii de gradinita

[Agkelos]

Eu zic sa nu te chinui. Mai bine cauta un grabber facut in PHP. E prea mare aplicatia ca sa ti-o rescrie cineva gratuit, si chiar de nu ar fi complicat multi nu si-ar bate capul tocmai pentru ca e vorba de pornografie.

[danieLs]

de ce nu o folosesti asa in perl?

[astan]

Offtopic: Ghost, nu prea esti cuminte

[Ghost]

Agkelos... omule..eu nu am cerut sa imi traduci scriptul....eu doar vreau sa stiu orice in mare macar o fctie.


-nu pot sa o flolosesc asa pt ca asa vrea seful si eu sunt cuminte doar ca firma asta e ce am gasit si e cam frumos sa lucrezi in siturile astea!  :lol:

[Ghost]

Agkelos sa stii ca nu te suport deloc esti un om arogant, sa stii din acum incolo cand fac un topic...nu vreau sa imi raspunzi tu deloc ok?? sper ca acuma intelegi...chiar daca esti guardian... :cool:

[tercot]

^este chiar administratorul forumului . Nu stiu din ce cauza il jignesti pe Agkelos, dar daca este din cauza topicului pe care l-ai deschis la php snippets , gresesti. Tot ce ti-a zis el in acel post are acoperire in regulile forumului. Mai citeste-le o data si incearca sa te conformezi.
Chiar in primele randuri scrie:

Ideea de baza a lui se vrea a fi o comunitate UNITA

[Agkelos]

Agkelos sa stii ca nu te suport deloc esti un om arogant, sa stii din acum incolo cand fac un topic...nu vreau sa imi raspunzi tu deloc ok?? sper ca acuma intelegi...chiar daca esti guardian... :cool:

OK. Iti respect decizia. Nu iti mai spun nimic atata timp cat respecti comunitatea, desi... pe viitor trimite-mi un PM cand ai ceva personal de zis

Bafta !

[SkullAds]