lilalo

annotate l3-upload @ 153:0414adc06059

find changesets by author, revision, files, or words in the commit message
Создана программа l3prompt.c (аналог l3prompt, написанного на Perl).
Занимается тем, что разбивает строку на блоки
и вставляет между ними строки-разделители.

По сути это нужно, чтобы сделать приглашение невидимым.

Сишная версия работает в 2-3 раза быстрее чем перловая.

По умолчанию не инсталлируется.

Для использования нужно откомпилировать
и положить вместо l3prompt

gcc -o l3prompt l3prompt.c
mv l3prompt ~/.lilalo/
author igor@book.xt.vpn
date Thu Dec 03 12:23:22 2009 +0200 (2009-12-03)
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