lilalo

annotate l3-upload @ 150:822b36252d7f

find changesets by author, revision, files, or words in the commit message
Вывод больших фрагментов текста не теряется.

Большие фрагменты текста теперь не вырезаются бесследно.
Там, откуда они вырезаются, вставляются ссылки,
по которым можно посмотреть полную версию вывода.
Испытано на больших фрагментах текста,
содержащих до 5000 строк (фрагменты более 5000 строк по умолчанию
обрезаются административно; допустимые размеры задаются в l3config.pm).
Исправлены ошибки, из-за которых большие фрагменты
обрабатывались некорректно.
author igor@chub.in
date Tue Jun 23 01:15:02 2009 +0300 (2009-06-23)
parents 58c869722fd0
children
rev   line source
igor@113 1 #!/usr/bin/perl
igor@113 2 #
igor@128 3 BEGIN {
igor@128 4 chdir("/etc/lilalo/");
igor@128 5 require l3config;
igor@128 6 l3config::init_config();
igor@128 7 };
igor@113 8
igor@113 9 use CGI;
igor@121 10 $upload_dir = "/var/www/xguru/l3shot";
igor@113 11 $query = new CGI;
igor@113 12
igor@113 13 $filename = $query->param("photo");
igor@113 14 $filename =~ s/.*[\/\\](.*)/$1/;
igor@113 15 $upload_filehandle = $query->upload("photo");
igor@113 16
igor@113 17 my $convert="";
igor@113 18 if ($filename =~ s/.xwd$/.png/g) {
igor@113 19 $convert="|xwdtopnm|pnmtopng";
igor@113 20 }
igor@113 21
igor@113 22 open UPLOADFILE, "$convert>$upload_dir/$filename";
igor@113 23 binmode UPLOADFILE;
igor@113 24 while ( <$upload_filehandle> )
igor@113 25 {
igor@113 26 print UPLOADFILE;
igor@113 27 }
igor@113 28
igor@113 29 close UPLOADFILE;
igor@113 30
igor@113 31 print $query->header ( );
igor@113 32 print <<END_HTML;
igor@113 33 Upload complete
igor@113 34 END_HTML
igor@113 35
igor@113 36