#!/usr/local/bin/perl @WD = ( 'Sun','Mon','Tue','Wed','Thu','Fri','Sat' ); @MO = ( 'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec' ); $confirmation = '\n\n ATTENTION:'. '\n\nTHIS ACTION CANNOT BE UNDONE.'. '\n\n Are you sure?\n'; use CGI; $query = new CGI; if( $query->param('Save') ){ &SaveParams("seminar.dbm"); &SavePage; &SaveAgenda; print "Location: ../seminars.html\n\n;"; exit; }elsif( $query->param('SaveNext') ){ &SaveParams("seminar1.dbm"); }elsif( $query->param('Next') ){ $Title = "Следующий семинар состоится:"; $SaveName = 'SaveNext'; $NextName = 'Prev'; $NextTitle = " Повестка на текущий семинар "; ( -e "seminar1.dbm" )?( &ReadParams("seminar1.dbm") ):( &ReadParams("seminar.dbm") ); &PrintForm; exit; }elsif( $query->param('InArchive') ){ for( $i = 1; -e "../archive/$i"; $i++ ){} mkdir "../archive/$i", 0750; rename( "../agenda.html", "../archive/$i/index.html" ) && rename( "seminar.dbm", "../archive/$i/seminar.dbm" ) && rename( "seminar1.dbm", "seminar.dbm" ); rename( "../eagenda.html", "../archive/$i/eindex.html" ) && rename( "eseminar.dbm", "../archive/$i/eseminar.dbm" ) && rename( "eseminar1.dbm", "eseminar.dbm" ); # V добавлено М.Е. 15 окт 1998 для занесения в архив аннотаций system( "cp ../annot?.html ../eannot?.html ../archive/$i/" ); } $Title = "Ближайший семинар состоится:"; $SaveName = 'Save'; $NextName = 'Next'; $NextTitle = " Повестка на следующий семинар "; &ReadParams("seminar.dbm"); &PrintForm; ####################################################################### # # # S U B R O U T I N S # # # ####################################################################### sub SaveParams { dbmopen %IN, $_[0], 0644; $IN{'when'} = $when = $query->param('when'); $IN{'n1'} = $n1 = $query->param('n1'); $IN{'name1'} = $name1 = $query->param('name1'); $IN{'title1'} = $title1 = $query->param('title1'); $IN{'time1'} = $time1 = $query->param('time1'); $IN{'n2'} = $n2 = $query->param('n2'); $IN{'name2'} = $name2 = $query->param('name2'); $IN{'title2'} = $title2 = $query->param('title2'); $IN{'time2'} = $time2 = $query->param('time2'); $IN{'n3'} = $n3 = $query->param('n3'); $IN{'name3'} = $name3 = $query->param('name3'); $IN{'title3'} = $title3 = $query->param('title3'); $IN{'time3'} = $time3 = $query->param('time3'); $IN{'n4'} = $n4 = $query->param('n4'); $IN{'name4'} = $name4 = $query->param('name4'); $IN{'title4'} = $title4 = $query->param('title4'); $IN{'time4'} = $time4 = $query->param('time4'); $IN{'n5'} = $n5 = $query->param('n5'); $IN{'name5'} = $name5 = $query->param('name5'); $IN{'title5'} = $title5 = $query->param('title5'); $IN{'time5'} = $time5 = $query->param('time5'); $IN{'add'} = $add = $query->param('add'); dbmclose %IN; } ####################################################################### sub ReadParams { dbmopen %IN, $_[0], 0444; $when = $IN{'when'}; $n1 = $IN{'n1'}; $name1 = $IN{'name1'}; $title1 = $IN{'title1'}; $time1 = $IN{'time1'}; $n2 = $IN{'n2'}; $name2 = $IN{'name2'}; $title2 = $IN{'title2'}; $time2 = $IN{'time2'}; $n3 = $IN{'n3'}; $name3 = $IN{'name3'}; $title3 = $IN{'title3'}; $time3 = $IN{'time3'}; $n4 = $IN{'n4'}; $name4 = $IN{'name4'}; $title4 = $IN{'title4'}; $time4 = $IN{'time4'}; $n5 = $IN{'n5'}; $name5 = $IN{'name5'}; $title5 = $IN{'title5'}; $time5 = $IN{'time5'}; $add = $IN{'add'}; dbmclose %IN; } ####################################################################### sub PrintForm { for( $i=1; $i<=5; $i++ ){ ${"n$i"} =~ s//>/g; ${"n$i"} =~ s/"/"/g; ${"name$i"} =~ s//>/g; ${"name$i"} =~ s/"/"/g; ${"title$i"} =~ s//>/g; ${"title$i"} =~ s/"/"/g; ${"time$i"} =~ s//>/g; ${"time$i"} =~ s/"/"/g; } print "Content-type: text/html\n\n"; print < Change Seminar Information

ОБЩЕМОСКОВСКИЙ СЕМИНАР АСТРОФИЗИКОВ
имени Якова Борисовича Зельдовича
(ОСА)

$Title

Повестка дня:

EOT print "" unless( $query->param('Next') or not -e "seminar1.dbm" or not -e "eseminar1.dbm" ); print < EOT } ####################################################################### sub SavePage { open OUTHTML, ">../seminars.html"; $olang = "eseminars.html"; &SaveCommon; print OUTHTML <
Подписаться Архив семинаров Хочу сделать доклад
Коллоквиумы ОСА
Повестка для распечатки Изменить повестку "Портфель"

Общая информация о семинаре

Липунов В.М. (ГАИШ МГУ) - председатель
Бескин В.С. (ФИАН РАН) - сопредседатель
Блинников С.И. (ИТЭФ РАН) - сопредседатель
Митрофанов И.Г. (ИКИ РАН) - сопредседатель
Постнов К.А. (ГАИШ МГУ) - сопредседатель
Курт В.Г. (АКЦ ФИАН) - сопредседатель
Каминкер А.Д. (С-Пб.ФТИ) - сопредседатель
Ответственный секретарь Прохоров М.Е.

Для чего?

Москва была и остается уникальным астрономическим центром, где имеется беспрецедентная плотность числа активно работающих в астрофизике людей. Имеется огромная потребность в обмене идеями и информацией сильно разделившихся в последние годы астрономических центров - ГАИШ, ФИАН (теор отдел), ИТЭФ, АКЦ ФИАН, Институт Астрономии, ИКИ, ИПМ, Институт Физпроблем, ИЯИ ...

Кто приглашается?

Все кому интересно (студенты включительно).

Идеология.

Максимум ясности.

Где и когда?

Семинары будут проходить в конференц-зале ГАИШ, по пятницам в 1400.
Почему ГАИШ? Свободный доступ, студенты + более сотни астрономов.

Приветствуются

  • оригинальные доклады
  • новости и рефераты
  • дискуссия

Куда направлять предложения по повестке?

Одному из членов оргкомитета

или

Е-mail: osa\@sai.msu.su

или

Прохорову М.Е.
ГАИШ
Университетский пр. 13
119899, Москва, Россия


back

Back to HOME

 Rambler's Top100 Service
(c 1.03.99)



This page was designed by Sergey Nazin.
Send questions and comments to leng\@sai.msu.su
EOT close OUTHTML; } ####################################################################### sub SaveAgenda { open OUTHTML, ">../agenda.html"; $olang = ""; &SaveCommon; print OUTHTML <
Прочитать абстракты и подписаться можно по адресу
http://xray.sai.msu.ru/sciwork/seminars.html
EOT close OUTHTML; } ####################################################################### sub SaveCommon { local( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time-100); $mday = '0'.$mday if( $mday < 10 ); $curtime = $WD[$wday].', '.$mday.' '.$MO[$mon].' 19'.$year.' '.$hour.':'.$min.':'.$sec.' GMT'; print OUTHTML < Seminars EOT #print OUTHTML qq'
english version
' if( $olang ); print OUTHTML < [Auto] [KOI8] [WIN] [DOS] [ISO] [English]
EOT print OUTHTML <

ОБЩЕМОСКОВСКИЙ СЕМИНАР АСТРОФИЗИКОВ
имени Якова Борисовича Зельдовича
(ОСА)

Ближайший семинар состоится:

$when

Повестка дня:

EOT for( $i = 1; $i <= 5; $i++ ) { next unless( ${'n'.$i} || ${'name'.$i} || ${'title'.$i} || ${'time'.$i} ); ${'n'.$i} .= '.' if( ${'n'.$i} and not (${'n'.$i} =~ /\.$/) ); ${'title'.$i} = '"' . ${'title'.$i} . '"' if( ${'name'.$i} and not (${'title'.$i} =~ /"$/) ); print OUTHTML < EOT } print OUTHTML <

${'n'.$i} ${'name'.$i} ${'title'.$i} ${'time'.$i}
$addВход свободный (код 2197)
EOT }