Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xray.sai.msu.ru/sciwork/restricted/echange.cgi
Дата изменения: Sun Apr 6 19:08:13 2003
Дата индексирования: Tue Oct 2 04:16:05 2012
Кодировка: koi8-r
#!/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("eseminar.dbm");
&SavePage;
&SaveAgenda;
print "Location: ../eseminars.html\n\n;";
exit;
}elsif( $query->param('SaveNext') ){
&SaveParams("eseminar1.dbm");
}elsif( $query->param('Next') ){
$Title = "The next seminar will be held:";
$SaveName = 'SaveNext';
$NextName = 'Prev';
$NextTitle = " Повестка на текущий семинар ";
( -e "eseminar1.dbm" )?( &ReadParams("eseminar1.dbm") ):( &ReadParams("eseminar.dbm") );
&PrintForm;
exit;
}

$Title = "The nearest seminar will be held:";
$SaveName = 'Save';
$NextName = 'Next';
$NextTitle = " Повестка на следующий семинар ";
&ReadParams("eseminar.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







Ya.B.Zeldovich

All-Moscow Seminar of Astrophysicists

(ASA)



$Title





Agenda:










































EOT

print <





EOT
}

#######################################################################
sub SavePage {
open OUTHTML, ">../eseminars.html";
$olang = "seminars.html";
&SaveCommon;

print OUTHTML <









Subscribe Archive Your contributions
Agenda for printing ASA Colloquiums Change agenda






General Information on the Seminar















































Lipunov V.M. (SAI) - chairman
Beskin V.S. (LPI) - co-chairman
Blinnikov S.I. (ITEP) - co-chairman
Mitrofanov I.G. (IKI) - co-chairman
Postnov K.A. (SAI) - co-chairman
Kurt V.G. (ASC LPI) - co-chairman
Kaminker A.D. (Ioffe PTI) - co-chairman
The secretary of the seminar M.E.Prokhorov



The aim


Moscow has been a unique astronomical center with
an unprecedental number of actively working
astrophysicists. In recent years, a strong need has appeared
in exchanging
ideas and information between diverse astronomical centers,
such as Sternberg Astronomical Institute (SAI MSU),
Lebedev Physical Institute (LPI theoretical dept.), Institute
of Experimental and Theoretical Physics (ITEP),
Astro Space Center of the LPI, Space Research Institute (IKI),
Institute of Physical Problems, Nuclear Research Institute.

Who is welcome?


Everybody who is interested in, including undegraduate students.

The ideology


As clear as possible

Where and When?


The seminars are to be held semi-monthly on Fridays at 1400.

Why SAI? Free access, students + more than 100 astronomers.

Encouraged are:



  • original talks
  • news and referates
  • discussion

Where the agenda sugestions should be forwarded to?



To one of the organizing committee members


or


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


or


M.E.Prokhorov

Sternberg Astronomical Institute,

13, Universitetskij pr.

119899, Moscow, Russia











Back to HOME












This page was designed by Sergey Nazin.

Send questions and comments to
leng\@sai.msu.su





EOT
close OUTHTML;
}

#######################################################################
sub SaveAgenda {
open OUTHTML, ">../eagenda.html";
$olang = "";
&SaveCommon;

print OUTHTML <


Abstracts and INTERNET Subscribe possible at
http://xray.sai.msu.ru/sciwork/eseminars.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'
russian version
' if( $olang );

print OUTHTML <



Ya.B.Zeldovich

All-Moscow Seminar of Astrophysicists

(ASA)








The nearest seminar will be held:



$when




Agenda:



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}





$addAccess free (code 2197)



EOT
}