Não há respostas para este tópico

[Igor Diniz]

CÓDIGO

#!/usr/bin/perl -w
########################################
# Script feito por: Luiz Gabriel       #
# ICQ: 73424195                        #
# E-mail/MSN: gabriellg@hotmail.com    #
########################################
use CGI;
$query = new CGI;

print $query->header;
$diretorio = "/home/wmc/public_html/gabriel/zips";

if ($query->param('arquivo')) {    
    $arquivo = $query->param('arquivo');
    $arquivo =~ s/^.*(\\|\/)//;
    if(-e("$diretorio/$arquivo")) {
        print "Esse arquivo ja existe!!!";
        exit;
    }
    open(ARQUIVO,">$diretorio/$arquivo");
    binmode(ARQUIVO);
    while ($bytes_count = read($query->param('arquivo'),$buff,1024)) {
            print ARQUIVO $buff;
    }
    close(ARQUIVO);
    $nome=$query->param('nome');
    $titulo=$query->param('titulo');
    $descricao=$query->param('descricao');

    print "O arquivo foi enviado com sucesso, veja os dados<br>";
    print "<b>Seu Nome</b>: $nome<br><b>Nome do script</b>: $titulo<brr>";
    print "<b>Descrição do script:</b>: $descricao";
    open (DADOS, ">>$diretorio/dados.txt");
    print DADOS "$nome|$titulo|$descricao|$arquivo\n";
    close(DADOS);
    exit;
} else {
    $estescript = $ENV{'SCRIPT_NAME'};
    print "Preencha os dados abaixo corretamente";
    print $query->start_form('POST',$estescript,'multipart/form-data');
    print "Digite seu nome<br>";
    print $query->textfield('nome','','40');
    print "<br>Digite o nome do script<br>";
    print $query->textfield('titulo','','40');
    print "<br>Digite a descrição do script<br>";
    print $query->textfield('descricao','','40');
    print "<br>Escolha o arquivo a ser enviado:<br>";
    print $query->filefield('arquivo','','40');
    print "<br>";
    print $query->submit('','Upload');
    print $query->endform;
    exit;
}

espero ter ajudado !