lilalo

view l3-upload @ 135:31ebdfe9797d

find changesets by author, revision, files, or words in the commit message
Приглашение -- ссылка на команду

Приглашение команды является ссылкой на эту же команду в журнале. Если нужно указать на какую-то определённую команду, нужно использовать ссылку на символ приглашения. Например, так: «я заметил ошибку при распознавании команд; пропала команда apt-get install, которая должна идти после этой [http://xgu.ru/l3/users/igor-public/xen-domain0-installation/root#1215616149].
author igor@chub.in
date Thu Jul 10 01:52:40 2008 +0300 (2008-07-10)
parents 58c869722fd0
children
line source
1 #!/usr/bin/perl
2 #
3 BEGIN {
4 chdir("/etc/lilalo/");
5 require l3config;
6 l3config::init_config();
7 };
8
9 use CGI;
10 $upload_dir = "/var/www/xguru/l3shot";
11 $query = new CGI;
12
13 $filename = $query->param("photo");
14 $filename =~ s/.*[\/\\](.*)/$1/;
15 $upload_filehandle = $query->upload("photo");
16
17 my $convert="";
18 if ($filename =~ s/.xwd$/.png/g) {
19 $convert="|xwdtopnm|pnmtopng";
20 }
21
22 open UPLOADFILE, "$convert>$upload_dir/$filename";
23 binmode UPLOADFILE;
24 while ( <$upload_filehandle> )
25 {
26 print UPLOADFILE;
27 }
28
29 close UPLOADFILE;
30
31 print $query->header ( );
32 print <<END_HTML;
33 Upload complete
34 END_HTML
35
36