Russian Apache mailing list archive (apache-rus@lists.lexa.ru)
Date Prev ][Date Next ][Thread Prev ][Thread Next ][Date Index ][Thread Index ]
Re: [apache-talk] Image upload
On Thu, 23 Aug 2001, Alexander Isaev wrote:
> Есть следующий скрипт:
>
> #!/usr/bin/perl
>
> use CGI;
> $path_to_foto='/usr/home/navigatortour/www/rus/';
> $rel_path_to_foto='/rus/';
>
> $a=new CGI;
> print $a->header('text/html;charset=windows-1251');
> print "<html>\n";
> print '<head><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"></head>';
> print "<body bgcolor=silver link=maroon vlink=gray alink=red text=black>\n";
>
> # ......... ...... ..
> #
> #
> foreach $i ($a->param){
> my($v)=$a->param($i);
> $v=~s/<[^>]+>//g;
> $MD{$i}=$v;
> }
>
> #
> # .......... .......... foto1
> #
> $savefile='name';
> $filename=$MD{'img'};
> $filename=~/.+\.(.+)/;
> $savefile.=".$1";
> $savefile=$path_to_foto.$savefile;
> open(SAVE,">$savefile");
> binmode(SAVE);
> while ($temp=read($filename,$buffer,1024)) {
> print SAVE $buffer;
> }
> chmod(0666,SAVE);
> close(SAVE);
> #
> # ... ......
> #
> $savefile=~/.+\/(.+\..{3,4})\b/;
> $savefile=$rel_path_to_foto.$1;
> $savefile="<img src=$savefile>";
> print $savefile;
>
> Если с помощью него на сервер передать GIF файл, то файл приходит
> битый. В чем может быть причина?
В Русском Апаче. Поставь CharsetRecodeMultipartForms off
Игорь Сысоев
=============================================================================
= Apache-Talk@xxxxxxxxxxxxx mailing list =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
= Archive avaliable at http://www.lexa.ru/apache-talk =
"Russian Apache" includes software developed
by the Apache Group for use in the Apache HTTP server project
(http://www.apache.org/) See
Apache LICENSE .Alex Tutubalin
