lilalo
changeset 61:440d12c122d5
В индекс брать только файлы, начинающиеся с 20
| author | devi |
|---|---|
| date | Sat Jan 21 19:09:34 2006 +0200 (2006-01-21) |
| parents | 0b1553611bb5 |
| children | c4bea959dbb1 |
| files | l3-cgi l3scripts |
line diff
1.1 --- a/l3-cgi Sat Jan 14 18:23:11 2006 +0200 1.2 +++ b/l3-cgi Sat Jan 21 19:09:34 2006 +0200 1.3 @@ -57,7 +57,7 @@ 1.4 1.5 if ($ENV{PATH_INFO} eq "/index") { 1.6 # Показываем индекс курсов 1.7 - my @training_files = glob($l3config::Config{"path_classes"}."/*".$l3config::Config{"class_suffix"}); 1.8 + my @training_files = glob($l3config::Config{"path_classes"}."/2*".$l3config::Config{"class_suffix"}); 1.9 if (@training_files) { 1.10 for my $training_file (@training_files) { 1.11 $training_file =~ s@.*/@@;
2.1 --- a/l3scripts Sat Jan 14 18:23:11 2006 +0200 2.2 +++ b/l3scripts Sat Jan 21 19:09:34 2006 +0200 2.3 @@ -53,18 +53,19 @@ 2.4 cd $coursepath; make personal; cd ~- 2.5 2.6 ###POST-makeout 2.7 +rnd=${RANDOM}${RANDOM}${RANDOM} 2.8 rm -rf /tmp/$course-$date 2.9 mkdir /tmp/$course-$date 2.10 find $outpath/*$date* -name \*.pdf -exec cp {} /tmp/$course-$date/ \; 2.11 cd /tmp 2.12 rm -rf $course-$date.zip 2> /dev/null 2.13 zip -r $course-$date.zip $course-$date 2.14 -mv $course-$date.zip /var/www/tmp/ 2.15 +mv $course-$date.zip /var/www/igor/tmp/$course-$date-${rnd}.zip 2.16 mutt -s 'Сгенерированы методички' imchubin\@mail.ru <<LETTER 2.17 Сгенерированы методички для курса $course, который начинается $date. 2.18 2.19 Архив файлов для печати можно получить по адресу: 2.20 -http://chub.in/tmp/$course-$date.zip 2.21 +http://igor.chub.in/tmp/$course-$date-${rnd}.zip 2.22 Архив будет доступен по этому адресу в течение трех дней. 2.23 2.24 --