#!/usr/bin/perl MAIN: { #ReadParse(); #sort the file using filed 6 (country) and then filed 2 (last name) and #save the result in the temporary file /tmp/preregsort.dat `sort -t ! -k 9,9 -k 2 preregistered.dat > /tmp/preregsort.dat`; #Header of text &Cabecalho; open(ARQ,"/tmp/preregsort.dat"); $nreg = 0 ; $nonline = 0; print " \n"; print " Title\n"; print " Name\n"; print " Institution\n"; print " Country\n"; print " Pre Registration at\n"; print " \n"; while ($linha=) { chop $linha; @campos = split(/!/,$linha); if ($campos[0] ne "-") { $nreg++ ; print " \n"; if ($campos[0] eq "DR ") { print " $campos[0]\n"; print " $campos[1], $campos[2]\n"; print " $campos[3]\n"; print " $campos[8]\n"; if ($campos[16] eq "Prague Aug 2006") { print " Prague Aug 2006\n"; } else { $nonline++ ; print " $campos[16]\n"; } } else { print " \n"; print " $campos[0]\n"; print " $campos[1], $campos[2]\n"; print " $campos[3]\n"; print " $campos[8]\n"; if ($campos[16] eq "Prague Aug 2006") { print " Prague Aug 2006\n"; } else { $nonline++ ; print " $campos[16]\n"; } print " \n"; } } } close(ARQ); #end $datareg = `date -u +"%b %d %Y, %H:%M:%S(UT)"`; &Final; `/bin/rm /tmp/preregsort.dat`; } sub Cabecalho { print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "XXVII GENERAL ASSEMBLY\n"; print "\n"; print "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n\n"; print "
\n"; print " \n\n"; print " \n\n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print "
\n"; print "

Pre-registration in the
\n"; print " XXVII General Assembly of the IAU

\n"; print " Rio de Janeiro - Brazil\n"; print "



\n"; print "

\n"; print " During the XXVI General Assembly in Prague, Czech Republic, August 2006, the\n"; print " participants had the opportunity to participate in a drawing of a free inscription\n"; print " for the XXVII General Assembly, to be held in Rio de Janeiro, Brazil.\n"; print " There were 401 pre-registration forms delivered at that time and, after a careful\n"; print " check we found eight double entries and nine registrations that could not be deciphered,\n"; print " yet (handwriting, incomplete information, etc.). The lucky winner (a single entry!) was\n"; print " Dr. Michal Krízek, from the Mathematical Institute, Academy of Sciences of the\n"; print " Czech Republic, whose entry is highlighted in blue in the list below.

\n"; #print " There were around 400 pre-registrations during the XXVI General Assembly\n"; #print " in Prague, Czech Republic, August 2006.
print "


These pre-registrations done in Prague were implemented in this list.\n"; print " The new pre-registrations, done on-line are being implemented immediately\n"; print " after a quick control check by the NOC. The difference between\n"; print " these entries is done by the date of the pre-registration, in the last\n"; print " column. The new on-line preregistrations contain the date and the\n"; print " time (UT) the form was sent. The list is alphabetically sorted first\n"; print " by country and, then, by the last name of the person.

\n"; #print "



Thank you for your pacience!\n"; #print "



\n"; print "



If you find any incorrection or have suggestions, please,\n"; print "contact us. Thank you for your\n"; print "cooperation!



\n"; print "
\n"; print " \n" } sub Final { print "
\n\n"; print "
\n"; print "




\n"; print "There are $nreg pre-registered participants ($nonline done via WEB) by $datareg

\n"; print " \n"; print "
\n"; print " National Organizing Committee - NOC
____________________________________________\n"; print "

\n"; print " www.astronomy2009.com.br\n"; print "
\n"; print "
\n\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; }