#!/usr/bin/perl

#use Text::BibTeX;


require "bp.pl";

# get current time and data
@TIME = localtime(time);
$DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
$time = @TIME[2].":".@TIME[1].":".@TIME[0];


$query_sav="/export/web/www/Z-90/data/z90-reg-query.$$";
$bib_file="/export/web/www/Z-90/data/reg-db.bib";
$head="/export/web/www/Z-90/head.html";
$tail="/export/web/www/Z-90/tail.html";
$form="reg-form";

   @TIME = localtime(time);
    $DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
    $time = @TIME[2].":".@TIME[1].":".@TIME[0];
    $query;

    if($ENV{'REQUEST_METHOD'} eq 'GET'){
      $query = $ENV{'QUERY_STRING'};
    }elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
      sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});
    }
    $query=urldecode($query);


print "Content-Type: text/html\n\nWrong request\n";
exit 0;


if($query ne ''){

  open RAW,">$query_sav";
  print RAW "$query\n\n";
  close RAW;


  @fvalues = split(/&/,$query);


  foreach $i (0 .. $#fvalues){
    $str=$fvalues[$i];
    ($name,$val) = split(/=/,$fvalues[$i],2);
    $name=&urldecode($name);
    $val=&urldecode($val);
    $field{$name} = $val;
  }
  $id="$field{author1} $field{author2}";
  $id=~tr/ /_/;

  $bib="";
  open BIB,">>$bib_file";
  print BIB "# $DATE $time\n";
  $bib="@\inproceedings \{ $id,\n";
  print BIB $bib;
  foreach $i (sort keys %field){
      $str="$i={$field{$i}},\n";
      print BIB $str;
      $bib.=$str;
    }
  $str="}\n";
  print BIB $str;
  $bib.=$str;
  close BIB;
}


print "Content-Type: text/html\n\n";

if(checkf($head)){
  open FD,"<$head" ;
  while (<FD>){
    print;
  }close FD;
}

#print "<TR><TD><H2>Sorry, registration has been closed.</H2></TD></TR>";
#if(checkf($tail)){
#  open FD,"<$tail" ;
#  while (<FD>){
#    print;
#  }close FD;
#}

#exit 0;

if($query ne ''){

if(ValidEmailAddr ($field{email})){

$msg="
The following entry has been added:

$bib

NEW: 
see data base listing:

http://hea.iki.rssi.ru/Z-90/z90-prelist2.pl

";
&send_file("\"Z-90 Application Form\"<z90info\@hea.iki.rssi.ru>","z90info\@hea.iki.rssi.ru", "Abstract Submission: $field{author1} $field{author2}", $msg,$bib_file);

print "
<tr><td>
<H2>Thank you for Abstract Submission.</H2>
The confirmation message will be sent to $field{email}.
</td></tr>";

$msg="
Dear $field{author1} $field{author2},

Thank you for registration for the conference \"Cosmology and High
Energy Astrophysics (Zeldovich-90)\". The conference will be held in
Moscow (Russia) from December 20 to 24, 2004, at the Space Research Institute 
(IKI).

If you have any questions or need additional information, please do not 
hesitate to contact the organizing committee.

Looking forward to seeing you in Moscow!

LOC
";

&send_mail("LOC<z90info\@hea.iki.rssi.ru>",$field{email}, 
"Zeldovich-90 Conference: Abstract Submission", $msg);

}else{
print "
<tr><td>
<H3><font color=red>ERROR: Please check your e-mail for correctness.</font></H3>
E-mail you have entered: <font color=red>$field{email}</font><br>
Use \"Back\" button at your browser, or this <a class=tab href=\"javascript:history.back()\">link</a> to return.
</td></tr>";
}
#&check ("/tmp/z90-form.bib");
}else{
    #
    # print FORM body if query is empty
    #
    if(checkf($form)){
      open FD,"<$form";
      while (<FD>){
	print;
      }close FD;
    }
  }

if(checkf($tail)){
  open FD,"<$tail" ;
  while (<FD>){
    print;
  }close FD;
}


sub ValidEmailAddr { #check if e-mail address format is valid
  my $mail = shift;                                                  #in form name@host
  return 0 if ( $mail !~ /^[0-9a-zA-Z\.\-\_]+\@[0-9a-zA-Z\.\-]+$/ ); #characters allowed on name: 0-9a-Z-._ on host: 0-9a-Z-. on between: @
  return 0 if ( $mail =~ /^[^0-9a-zA-Z]|[^0-9a-zA-Z]$/);             #must start or end with alpha or num
  return 0 if ( $mail !~ /([0-9a-zA-Z]{1})\@./ );                    #name must end with alpha or num
  return 0 if ( $mail !~ /.\@([0-9a-zA-Z]{1})/ );                    #host must start with alpha or num
  return 0 if ( $mail =~ /.\.\-.|.\-\..|.\.\..|.\-\-./g );           #pair .- or -. or -- or .. not allowed
  return 0 if ( $mail =~ /.\.\_.|.\-\_.|.\_\..|.\_\-.|.\_\_./g );    #pair ._ or -_ or _. or _- or __ not allowed
  return 0 if ( $mail !~ /\.([a-zA-Z]{2,3})$/ );                     #host must end with '.' plus 2 or 3 alpha for TopLevelDomain (MUST be modified in future!)
  return 1;
}

sub urldecode{
  local($val)=@_;
  $val =~ s/\+/ /g;
  $val =~ s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
  return $val;
}


sub check{
&bib'format("auto");

print "<pre>";
foreach $file ($_[0]) {
  next unless &bib'open($file);
  $totrecs = 0;
  while ($record = &bib'read($file) ) {
    print "$record";
    $totrecs++;
  }
  &bib'close($file);
  print "$file has $totrecs records.\n";
}
print "</pre>";
}

sub send_mail {

#&send_mail("\"Z-90 Application Form\"<kris\@hea.iki.rssi.ru>",
#	   "z90info\@hea.iki.rssi.ru", "$field{author}", $msg);

    use MIME::Lite;
    $msg = MIME::Lite->new(
                 From    =>$_[0],
                 To      =>$_[1],
                 Subject =>$_[2],
                 Type    =>'TEXT',
                 Data    =>$_[3]
                 );

     MIME::Lite->send('smtp', "localhost");
     $msg->send || die "Can not send message via SMTP server\n";
}

sub send_file {
  use Mail::Sender;
  use Mail::Internet;
  use Mail::Address;

  $sender = new Mail::Sender{smtp => 'localhost', from => $_[0]};
  $sender->MailFile({to => $_[1],subject => $_[2],msg => $_[3],file => $_[4]});
}


sub checkf{
  unless (-f $_[0]){
    print "ERROR: Can\'t open file \"$_[0]\"" ;
    return false;
  }else{
    return true;
  }
}