|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Denis Knyazev 2:50/551.38 19 Nov 2002 19:55:58
To : All
Subject : CGI.pm
--------------------------------------------------------------------------------
Вот, решил по совету более опытных товарищей
применять сабж, как "продвинутый прогрАммер"...
Только вот чего-то "лыжы не едут"... Примерчик
простой до безобразия, я уже кажеться догадываюсь,
в чём я здесь не прав, но хотелось бы и из чужих
уст услышать что я таки ламером. Итак, скрипт.
Который вААбще никак не работает... Ругаеться 500-ым кодом.
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
my $query = туц CGI;
print "Content-type: text/html";
if ($query->param('submit') eq "TEST") { testing();}
elsif ($query->param('submit') eq "Send") { rec_file();}
print "<html><head></head><body>\n";
print "<form action=\"up.pl\" method=post enctype=\"multipart/form-data\">\n";
print "<input type=text name=test><br>\n";
print "<input type=file name=uploaded_file><br>\n";
print "<input type=submit value=Send><br>\n";
print "<input type=submit value=TEST>\n";
print "</form>\n";
print "</body></html>\n";
exit;
sub rec_file
{
my $filename = $query->param('uploaded_file');
my $type = $query->uploadInfo($filename)->{'Content-Type'};
print "<html><head></head><body>\n";
print "<hr>File name => $filename<hr>\n";
print "<hr>Content-Type => $type<hr>\n";
print "</body></html>\n";
exit;
}
sub testing
{
print "<html><head></head><body>\n";
print "<h1>Testing OK</h1>\n";
print "</body></html>";
exit;
}
WBR, Denis.
[#m:tg#] [#rpg#] [#gothic#] [#folk#] [#black#]
email: denizen[at]nm.ru ICQ UIN: 99806075
--- God is Real, unless declared as Integer
* Origin: Банальнейший артефакт (2:50/551.38)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
CGI.pm |
Denis Knyazev |
19 Nov 2002 19:55:58 |
 Re: CGI.pm |
Serge Pekarsky |
19 Nov 2002 20:54:13 |
|
CGI.pm |
Denis Knyazev |
19 Nov 2002 20:34:16 |
|
CGI.pm |
Serguei Trouchelle |
20 Nov 2002 10:40:49 |
  Re: CGI.pm |
Andrey |
22 Nov 2002 22:23:53 |
|
Re: CGI.pm |
‚« ¤Ё¬Ёp ѓpҐЎҐў |
20 Nov 2002 23:48:51 |
|
Re: CGI.pm |
Andrey Lamanov |
23 Nov 2002 00:12:21 |
|
CGI.pm |
Andrey Kowtun |
23 Nov 2002 04:57:36 |
 CGI.pm |
Denis Knyazev |
23 Nov 2002 15:58:08 |
|
Re: CGI.pm |
Artem Chuprina |
25 Nov 2002 20:06:34 |
|
CGI.pm |
Denis Knyazev |
25 Nov 2002 20:46:30 |
|
Re: CGI.pm |
Artem Chuprina |
26 Nov 2002 18:13:27 |
|
|
