Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xray.sai.msu.ru/sciwork/restricted/rchange.cgi
Дата изменения: Sun Apr 6 19:08:18 2003
Дата индексирования: Tue Oct 2 04:14:41 2012
Кодировка: koi8-r
Поисковые слова: http xray.sai.msu.ru sciwork archive 16
#!/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/ ${"n$i"} =~ s/>/>/g;
${"n$i"} =~ s/"/"/g;
${"name$i"} =~ s/ ${"name$i"} =~ s/>/>/g;
${"name$i"} =~ s/"/"/g;
${"title$i"} =~ s/ ${"title$i"} =~ s/>/>/g;
${"title$i"} =~ s/"/"/g;
${"time$i"} =~ s/ ${"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


src="http://counter.rambler.ru/top100.cnt?46086" alt="Rambler's Top100
Service"
width=81 height=63 border=0>



(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
}