uploading a file with perl--->kueri: ------------4CyrMz2ZeGIClwYfFsVdcv Content-Disposition: form-data; name="level" asda ------------4CyrMz2ZeGIClwYfFsVdcv Content-Disposition: form-data; name="major" asda ------------4CyrMz2ZeGIClwYfFsVd....[very long weird characters])

[email protected] (Patrik Hasibuan) Sun, 13 Jan 2008 05:54:03 +0700
Newsgroups	perl.beginners.cgi
Organization	PENGUIN Teknologi,PT
Message-ID	<[email protected]>
Dear my friends...

I am still new in perl.

I am writing perl-cgi application for uploading a file. I did "chmod 
777 ../../artikel". But I get weird displayed message:
"
ueri: ------------4CyrMz2ZeGIClwYfFsVdcv Co........
î 6êÎ]Ë kšfþxî£ˆ·¾ ðfS4M3>º {½‡<Óöù³®�¯3çýGèBù= „¬È›øRƒ.....
&ƒ ÿƒ&m‡îø'-n nÊÐJ(pÇ 9çqîÎ.........
Ê ¨‚¡ÀÜ EÖ�Â z!ª˜Y6�¬úÒ„â0J¼“ñË.......
[end so on. very longg.............]
".

And no file copied/uploaded in '../../artikel'. But inserting the record onto 
the mysql run properly.

Please tell me why.....

Here I have done:
deartikel.cgi-->cgideartikel.cgi-->cgiuploadfile.cgi ('-->' means 'calls').
===
deartikel.cgi:
---
#!/usr/bin/perl -w
#use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "</head>";
print "<body><font style=\"Arial,Arial Black,Helvetica\" size=1>";
print " <form method=\"post\" action=\"cgideartikel.cgi\"> ";
print "Title of file <input type=\"text\" name=\"judul\" size=60 
autocomplete=\"ON\"> ";
print "<input type=\"submit\" value=\"Submit to column 'Articles'.\">
	<input type=\"reset\" value=\"Input lagi?\">
print " </form> ";
print "</body>";
print "</html>";
===
cgideartikel.cgi:
---
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;

print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>";
print "Online Science Org - Data entry kolom karir.";
print "</title>";
print "</head>";
print "<body><font style=\"Arial,Arial Black,Helvetica\" size=1>";
$pjg=$ENV{"CONTENT_LENGTH"};
read(STDIN, $kueri, $pjg);
#print "kueri: $kueri<br>";
@arr_prm=split("&",$kueri);
foreach $myprm(@arr_prm){
  ($namavar,$nilaivar)=split("=",$myprm);
  $assprm{$namavar}=$nilaivar;
}
$i=0;
foreach my $nv(keys %assprm){
print "$nv <br>";
print "$assprm{$nv} <br>";
print "i = $i <br>";
$i++;
}

$judul=$assprm{'judul'};
print " <form method=\"post\" action=\"cgiuploadartikel.cgi\" 
enctype=\"multipart/form-data\"> ";
print "Judul<input type=\"text\" name=\"judul\" size=60 autocomplete=\"ON\" 
value=\"$judul\" readonly> ";
print "File untuk di-upload";
print " <input type=\"file\" name=\"url\" size=60 autocomplete=\"ON\"> ";
print "<input type=\"submit\" value=\"Submit to column 'Artikel'.\">
	<input type=\"reset\" value=\"Input lagi?\">";
print " </form> ";
print "</body>";
print "</html>";
&simpan(judul);

sub simpan{
my $myjudul=shift;
my $box="localhost";
my $basisdata="mydb";
my $db_user_name='root';
my $db_password='mypw';
my $dsn="DBI:mysql:$basisdata:$box";

my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
my $sqlstr=qq{
    insert into 
	artikel (
		judul,
		)
	values(
		'$myjudul'
	)
};
my $sth = $dbh->prepare($sqlstr);
my $status=$sth->execute();
if($status){
	$sth->{Commit};
}else{
	$sth->{RollBack};
}
$dbh->disconnect;
}
---
cgiuploadfile.cgi:
---
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>";
print "Online Science Org - Data entry kolom karir.";
print "</title>";
print "</head>";
print "<body>";

$pjg=$ENV{"CONTENT_LENGTH"};
read(STDIN, $kueri, $pjg);
print "kueri: $kueri<br>";
exit;
@arr_prm=split("&",$kueri);
foreach $myprm(@arr_prm){
  ($namavar,$nilaivar)=split("=",$myprm);
  $assprm{$namavar}=$nilaivar;
}
$i=0;
foreach my $nv(keys %assprm){
 print "$nv <br>";
 print "$assprm{$nv} <br>";
 print "i = $i <br>";
 $i++;
}

$judul=$assprm{'judul'};
$url=$assprm{'url'};
print " <form method=\"post\" action=\"cgiuploadartikel.cgi\" 
enctype=\"multipart/form-data\"> ";
print " <input type=\"text\" name=\"judul\" size=60 autocomplete=\"ON\" 
value=\"$judul\" readonly> ";
print "File untuk di-upload";
print " <input type=\"file\" name=\"url\" size=60 autocomplete=\"ON\" 
readonly> ";
print "<input type=\"submit\" value=\"Submit to column 'Artikel'.\" disabled>
	<input type=\"reset\" value=\"Input lagi?\" disabled>";
print " </form> ";
print "</td></tr>";

my $output_file = "../../artikel/$url";
my ($bytesread, $buffer);
my $numbytes = 2000;
open (OUTFILE, ">", "$output_file") 
        or die "Couldn't open $output_file for writing: $!";
while ($bytesread = read($url, $buffer, $numbytes)) {
        print OUTFILE $buffer;
}
close OUTFILE;

print "</table>";
print "</font></body>";
print "</html>";
-- 
Patrik Hasibuan
Junior Programmer
http://www.penguin-teknologi.com