#!/opt/perl-5.8.7-thread/bin/perl
#Filename: allSearch.cgi
#Jaehyun Paek
#Objective: Find mathematician(s) in the different mathematical society's directories
#Description: In quest to find an effective federeated searching strategy that would enable us to search through 
#    directories of different mathematical society, Mason Macklem and I have discovered that all search can be done by 
#    passing argument into URL of each society's directory.  Based on that discovery, Mason and I have been trying to 
#    implement a Perl program that would parse the user's query into URL; get the webpage from that URL; and extract 
#    relevant information for the webpage and print out the information to the user.
#            This program is latest implementation of above strategy.  The major difference between this version and 
#    the previous version is in the way it prints the result.  This program prints three table as an output.  First
#    table shows the query the user have entered.  Second table list the result by name with each name having links to 
#    webpages containing the information pertaining to corresponding name from each directory returns given name, and 
#    third table listing result by directories with number of result found in each directory     
#            This program has two subroutines -  Query and Result
#     - Query: Read the query from the user and pass it onto the result
#     - Result: pass the query into the url of each directory,  convert the webpage returned into string
#                 then format the result
#            This version search through following directories: Combined Member's List (CML), Canadian Mathematical 
#     Society(CMS), French Mathematical Society (SMF), MathNet, Zuse Institute Berlin (ZIB)
use CGI;
use LWP::Simple;
use LWP::UserAgent;
use HTML::TokeParser;
use 5.008;
use threads;
use lib '/var/http/htdocs/ddrive/fwdm/cgi-bin/';
require 'search.lib';
require 'aussie.lib';
require 'google.lib';
require 'merge.lib';
require 'process.lib';
require 'query_simple.lib';
require 'austrian.lib';
require 'portugal.lib';

#Subroutine query
#This subroutine reads queries from the user.  Some fields applies to most of directories, while others are found
#only in a few directories 
sub query{
$searchform = get("http://www.cs.dal.ca/ddrive/fwdm/cgi-bin/searchsmall.txt");
print $searchform;
}

sub description{
$descript = get("http://www.cs.dal.ca/ddrive/fwdm/cgi-bin/description.txt");
print $descript;
}

sub leftmenu{
$leftmenu = get("http://www.cs.dal.ca/ddrive/fwdm/cgi-bin/logos.txt");
print $leftmenu;
}

#Subroutine to print result
sub result{
    my $lName = $cgi->param('lName');
    my $fName = $cgi->param('fName');
    my $num_page = $cgi->param('num');
    my $res_page =$cgi->param('page');
    my ($query_checksum, $search_url) = &simple_query($lName, $fName);
    my ($num, $names, $url, $home, $email, $query_url, $google_num, $google, $scholar_num, $scholar) = &process($search_url, $query_checksum, $lName,$fName);
    my ($ewdm_num, $cml_num, $cms_num, $math_net_num, $smf_num, 
$aussie_num, $aust_num, $portg_num) = @$num;
    my ($ewdm_names, $cml_names, $cms_names, $math_net_names, 
$smf_names, $aussie_names, $aust_names, $portg_names) = @$names;
    my ($ewdm_url, $cml_url, $cms_url, $math_net_url, $smf_url, 
$aussie_url, $aust_url, $portg_url) = @$url;
    my ($ewdm_email, $cml_email, $cms_email, $math_net_email, 
$smf_email, $aussie_emial, $aust_email, $portg_email) = @$email;
    my ($ewdm_home, $cml_home, $cms_home, $math_net_home, $smf_home, 
$aussie_home, $aust_home, $portg_home) = @$home;
    my ($name_array, $total_num, $size_name);
    my ($email_hash, $home_hash);
    my $aussie_home = 
"http://www.maths.anu.edu.au/other/ncms/wdm.html";
    my $cml_only_table;
    my $email_checksum;
    my $email_and_home;
    my $temp_email_and_home;
    $total_num = $ewdm_num + $cml_num + $cms_num + $math_net_num + 
$smf_num + $aussie_num + $aust_num + $portg_num;

     print "<a name='top'> </a>";

    print "<table class=\"button\" align=\"center\" border=\"0\" cellpadding=\"10\">\n";
    if ($total_num > 0){
       my $name_counter = ($res_page - 1) * $num_page;
       my ($curr_name, $cmp_name, $temp, $temp1, $cmp_temp, 
$cmp_temp1, $q, $q_cml);
       ($name_array, $cml_only_table) = 
&merge($ewdm_names,$cml_names, $cms_names, $math_net_names, 
$smf_names, $aussie_names, $aust_names, $portg_names);
       $email_hash = &merge_web($ewdm_email,$cml_email, $cms_email, 
$math_net_email, $smf_email, $aussie_email, $aust_email, 
$portg_email);
       $home_hash = &merge_web($ewdm_home,$cml_home, $cms_home, 
$math_net_home, $smf_home, $aussie_home, $aust_home, $portg_home);


       if ($name_counter < @$name_array || $name_counter < @$cml_only_table){
          print "<td><a href='#result'>Search Results</a></td>";
       }
#       if ($name_counter < @$cml_only_table){
#            print "<td><a href='#cml_only'>CML Only 
#Results</a></td>";
#       }
       print "<td><a href='#society'>Results by 
Society</a></td>";
       print "<td><a href='#google'>Google Results</a></td>";
       print "<td><a href='#query'>Your Query</a></td>"; #</tr>";
#       print "<tr><td><a href=\"search_sm.cgi\" target='_blank'>Search Again</a></td></tr></table>";
	print "<td><a href=\"search_sm.cgi\" target='_blank'>Search Again</a
></td></tr></table>";



       if ($name_counter < @$name_array || $name_counter < @$cml_only_table){
 #      print "<a href='#top'>To Top</a>
        print "<hr>\n";
       print "<a name='result'><h3>Search Results</h3></a>\n";
       print "<table class=queryform align=center cellpadding=\"10\">";
      print "<tr><td><label class=\"col1\">Name</td><td><label class=\"col2\">Society</td><td><label class=\"col3\">Home Pages</td><td><label class=\"col4\">Link to Google 
Search</td></tr>";
       while (($name_counter < ($res_page * $num_page)) && ($name_counter < @$name_array)){
          $curr_name = $$name_array[$name_counter];


          my $multi_email_addr;
          if (exists $$email_hash{$curr_name}){
              $temp_email_and_home =  $$email_hash{$curr_name};
              $email_checksum = @$temp_email_and_home;
              if ($email_checksum > 1){
                 $multi_email_addr = join ", ", 
@$temp_email_and_home;
                 print "<tr><td><a 
href=\"mailto:$multi_email_addr\">$curr_name</a></td><td>";
              }
              else{
                 my $key = $$temp_email_and_home[0];
                 print "<tr><td><label class=\"col1\"><a href=\"mailto:$key\">$curr_name</a></td><td>";
              }
          }
          else{
             print "<tr><td><label class=\"col1\">$curr_name</td><td>";
          }






          $curr_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
          $temp = $1;
          $temp1 = $2;
          $q = 0;
          foreach (keys (%$cms_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$cms_url{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>CMS</a><br>";
                   $q++;
                }
             }
          }
          foreach (keys (%$smf_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$smf_url{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>SMF</a><br>";
                   $q++;
                }
             }
          }
          foreach (keys (%$math_net_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$math_net_url{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>Math-Net</a><br>";
                   $q++;
                }
             }
          }
          foreach (keys (%$aust_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$aust_url{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>OeMG</a><br>";
                   $q++;
                }
             }
          }
          foreach (keys (%$portg_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$portg_url{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>PDM</a><br>";
                   $q++;
                }
             }
          }
          foreach (keys (%$ewdm_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$ewdm_url{"$cmp_name"};
                   $cmp_temp1 = $$ewdm_home{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>EWDM</a><br>";
                   $q++;
                }
             }
          }
          foreach (keys (%$aussie_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   $cmp_temp = $$aussie_url{"$cmp_name"};
                   print "<a href=$cmp_temp target='_blank'>NCMS</a><br>";
                   $q++;
                }
             }
          }
          $q_cml = 0;
          foreach (keys (%$cml_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   if ($q_cml == 0 && $q > 0){
                      $cmp_temp = $$cml_url{"$cmp_name"};
                      print "<a href=$cmp_temp target='_blank'>CML</a>";
                      $q_cml++;
                   }
                   elsif ($q > 0){
                     $q_cml++;
                   }
                }
             }
          }
          if ($q_cml > 1 && $q > 0){
             print "($q_cml)<br>";
          }
          elsif ($q_cml == 1 && $q > 0){
             print "<br>";
          }
          $name_counter++;
          print "</td>";




          print "<td>";
          $email_and_home = 1;
          if (exists $$home_hash{$curr_name}){
             $temp_email_and_home = $$home_hash{$curr_name};
             foreach my $key(@$temp_email_and_home){
                if ($key ne "NONE"){
                   print "<a href=$key 
target='_blank'>$email_and_home </a>";
                   $email_and_home++;
                }
                else{
                   print "NONE";
                }
             }
          }
          else{
              print "NONE";
          }
          print "</td>";






          my $google1 = &get_google($temp, $temp1);
          my $google2 = &get_google_scholar($temp, $temp1);
          print "<td><a href=$google1 
target='_blank'>Google</a><br><a href=$google2 target='_blank'>Google
Scholar</a><br></td></tr>";
       }
       print "</table><p>";
       }






      $name_counter = ($res_page - 1)*$num_page;
       if ($name_counter < @$cml_only_table){
#       print "<a href='#top'>To Top</a><hr>\n";
       print "<a name='cml_only'><h3>CML Only Results</h3></a>\n";
       print "<table class=\"queryform\" align=center 
cellpadding=\"10\">";
       print "<tr><td><label class=\"col1\">Name</td><td><label 
class=\"col2\">CML Entry Link</td><td><label class=\"col3\">Home 
Pages</td><td><label
class=\"col4\">Link to Google Search</td></tr>";
       while (($name_counter < $res_page * $num_page) && 
($name_counter < @$cml_only_table)){
          $curr_name = $$cml_only_table[$name_counter];







          if (exists $$email_hash{$curr_name}){
              $temp_email_and_home =  $$email_hash{$curr_name};
              $email_checksum = @$temp_email_and_home;
              if ($email_checksum > 1){
                 $multi_email_addr = join ", ", 
@$temp_email_and_home;
                 print "<tr><td><a 
href=\"mailto:$multi_email_addr\">$curr_name</a></td><td> 
";
             }
              else{
                 my $key = $$temp_email_and_home[0];
                 print "<tr><td><a 
href=\"mailto:$key\">$curr_name</a></td><td>";
              }
          }
          else{
             print "<tr><td> 
$curr_name</td><td>";
          }









          $curr_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
          $temp = $1;
          $temp1 = $2;
          $q_cml = 0;
          foreach (keys (%$cml_url)){
             $cmp_name = $_;
             $cmp_name =~
/([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+),\s*([\wàèìòùÀÈÌÒÙáéíóúýÁÉÍÓÚÝâêîôûÂÊÎÔÛãñõÃÑÕäëïöüÄËÏÖÜåÅæÆçÇøØðÐ-]+)/;
             $cmp_temp = $1;
             $cmp_temp1 = $2;
             if (normalize($temp) eq normalize($cmp_temp)){
                if (normalize($temp1) eq normalize($cmp_temp1)){
                   if ($q_cml == 0){
                      $cmp_temp = $$cml_url{"$cmp_name"};
                      print "<a href=$cmp_temp 
target='_blank'>CML</a>";
                      $q_cml++;
                   }
                   else{
                      $q_cml++;
                   }
                }
             }
          }
          if ($q_cml > 1){
             print "($q_cml)<br>";
          }
          else{
             print "<br>";
          }
          $name_counter++;
          print "</td>";



          print "<td>";
          $email_and_home = 1;
          if (exists $$home_hash{$curr_name}){
             $temp_email_and_home = $$home_hash{$curr_name};
             foreach my $key(@$temp_email_and_home){
                print "<a href=$key 
target='_blank'>$email_and_home</a><br>";
                $email_and_home++;
             }
          }
          else{
             print "NONE";
          }
          print "</td>";


          my $google1 = &get_google($temp, $temp1);
          my $google2 = &get_google_scholar($temp, $temp1);
          print "<td><a href=$google1 
target='_blank'>Google</a><br><a href=$google2 target='_blank'>Google 
Scholar</a><br></td></tr>";
       }
       print "</table><p>";
       }
       $size_num = @$name_array;
       my $cml_size_num = @$cml_only_table;
       my $total_size_num = $size_num + $cml_size_num;

       print "<a href='#top'>To Top</a><hr>\n";
       print "<a name='society'><h3>Search Results by 
Society</h3></a>\n";
       print "<table class=\"queryform\" align=center 
cellpadding=\"10\">";
       print "<tr><td><label class=\"col1\">Directory</td><td><label 
class=\"col2\">Number of results</td></tr>";
       print "<tr><td>Total:</td><td> 
$total_size_num names found</td></tr>";
       print "<tr><td> 
Total(CML-only):</td><td> 
$cml_size_num names found</td></tr>";
       if ($ewdm_num > 0){
           print "<tr><td><a 
href=$$query_url[4] target='_blank'>EWDM:</a></td><td> 
$ewdm_num Results</td></tr>";
       }
       if ($cml_num > 0){
           print "<tr><td><a 
href=$$query_url[1] target='_blank'>CML:</a></td><td>
$cml_num Results</td></tr>";
       }
       if ($cms_num > 0){
        print "<tr><td><a href=$$query_url[0] 
target='_blank'>CMS:</a></td><td>$cms_num 
Results</td></tr>";
       }
       if ($math_net_num > 0){
           print "<tr><td><a 
href=$$query_url[3] target='_blank'>Math-Net:</a></td><td>
$math_net_num Results</td></tr>";
       }
       if ($smf_num > 0){
           print "<tr><td><a 
href=$$query_url[2] target='_blank'>SMF: </a></td><td>
$smf_num Results</td></tr>";
       }
       if ($aust_num >0){
           print "<tr><td><a 
href=$$query_url[5] target='_blank'>OeMG: </a></td><td> 
$aust_num
Results</td></tr>";
       }
       if ($portg_num >0){
           print "<tr><td><a 
href=$$query_url[6] target='_blank'>PDM: </a></td><td> 
$portg_num
Results</td></tr>";
       }
       if ($aussie_num > 0){
            print "<tr><td><a href=$aussie_home 
target='_blank'>NCMS: </a></td><td>
$aussie_num Results</td></tr>";
       }

       print "</table><p>";




    print "<table frame=box align=center border=1 class=\"queryform\" 
cellpadding=\"10\">";
    print "<tr><td><label class=\"col1\">Directories timed out or 
contained no results</tr></td>";
    print "<tr><td><center>";
    if ($cms_num eq 0){
       print "<a href=$$query_url[0] target='_blank'>CMS</a> / ";
    }
    if ($cml_num eq 0){
       print "<a href=$$query_url[1] target='_blank'>CML</a> / ";
    }
    if ($smf_num < 1){
       print "<a href=$$query_url[2] target='_blank'>SMF</a> / ";
    }
    if ($math_net_num eq 0){
       print "<a href=$$query_url[3] target='_blank'>Math-Net</a> / 
";
    }
    if (!defined $aust_num){
       print "<a href=$$query_url[5] target='_blank'>OeMG</a> / ";
    }
    if (!defined $portg_num){
       print "<a href=$$query_url[6] target='_blank'>Portuguese</a> / 
";
    }
    if ($ewdm_num eq 0){
       print "<a href=$$query_url[4] target='_blank'>EWDM</a> / ";
    }
    if ($aussie_num eq 0){
       print "<a href=$aussie_home target-'_blank'>NCMS</a>";
    }
    print "</center></td></tr></table><p>";


   print "<a href='#top'>To Top</a><hr>\n";
   print "<a name='google'> </a>";
    if ($$google_num){
          print "<br><center><i>Found $$google_num results from <a 
href = $$google target='_blank'>Google</a></i></center>";
       }
       else{
          print "<br><center><i> No results found in <a href = 
$$google target='_blank'>Google</a></i></center>";
       }
       if ($$scholar_num){
          print "<br><center><i>Found $$scholar_num results from <a 
href = $$scholar target='_blank'>Google Scholar</a></i></center>";
       }
       else{
          print "<br><center><i>No results found in  <a href = 
$$scholar target='_blank'>Google Scholar</a></i></center>";
       }


  }
  else{
     print "<td><a href='#society'>Search Results by 
Society</a></td>";
     print "<td><a href='#google'>Google Results</a></td>";
     print "<td><a href='#query'>Your Query</a></td>"; #</tr>";
#     print "<tr><td><a href=\"search_sm.cgi\" 
      print "<td><a href=\"search_sm.cgi\"
target='_blank'>Search Again</a></td></tr></table>";

     print "<br><center><i>No Results Found</i></center>";
     print "<table frame=box border=1 class=\"queryform\" 
cellpadding=\"10\">";
     print "<a href='#top'>To Top</a><hr>\n";
     print "<a name='society'> </a>";
     print "<tr><td><label class=\"col1\">Directories timed out or 
contained no results ";
     print "<a href=$$query_url[0] target='_blank'>CMS</a>, <a 
href=$$query_url[1] target='_blank'>CML</a>, <a
href=$$query_url[3] target='_blank'>Math-Net</a>, <a 
href=$$query_url[2] target='_blank'>SMF</a>, <a href=$$query_url[4]
target='_blank'>EWDM</a></td></tr></table><p>";
     print "<a href='#top'>To Top</a><hr>\n";
     print "<a name='google'> </a>";
     print "<br><center><i>Found $$google_num results from <a href = 
$$google target='_blank'>Google</a></i></center>";
     print "<br><center><i>Found $$scholar_num results from <a href = 
$$scholar target='_blank'>Google Scholar</a></i></center>";
  }






  print "<a name='query'><h3>Your Query</h3></a>\n";
  print "<form method=\"get\" action=\"search_sm.cgi\">";
  print "<input type=\"hidden\" name=\"action\" value=\"result\">";
  print "<input type=\"hidden\" name=\"page\" value=\"1\">";
  print "<table class=queryform align=center cellpadding=\"10\">\n";
  print "<tr><td>First Name:</td><td> 
<input class=\"input1\" size=\"30\" type=\"text\" 
name=\"fName\"
value=$fName></td></tr>\n";
  print "<tr><td>Last Name:</td><td> 
<input class=\"input1\" size=\"30\" type=\"text\"
name=\"lName\" value=$lName></td></tr>\n";
  print "<tr><td>Results per 
Page:</td><td><input class=\"input1\" 
size=\"30\"
type=\"text\" name=\"num\" value=$num_page></td></tr>\n";
  print "<tr><td colspan=2>";
  print "<div align=\"center\" class=\"submit\">";
  print "<input type=\"submit\" value=\"Search Again\" 
class=\"input2\"
title=\"Click to Submit Query\" border=\"0\">";
  print "</td></tr>";
  print "</table>";
  print "</form>";
  print "<p>";
  my $page_num;
  if (($num_page > @$name_array) && ($num_page > @$cml_only_table)){
    $page_num = 1;
  }
  else{
    if (@$name_array > @$cml_only_table){
       $page_num = @$name_array / $num_page;
       if ((@$name_array % $num_page) != 0){
          $page_num++;
       }
    }
    else{
       $page_num = @$cml_only_table / $num_page;
       if ((@$cml_only_table % $num_page) != 0){
          $page_num++;
       }
    }

  }
  print "<table class=\"button\" align=\"center\" border=\"0\" 
cellpadding=\"10\">\n";
  print "<tr><td><a href=\"search.cgi\">Standard Search</a></td><td> 
<a href=\"search_adv.cgi\">Advanced Search</a></td></tr></table>\n";
  print "\n<p><br>\n";

  my $prev_page = $res_page-1;
  my $next_page = $res_page+1;
  print "<center>";
  print "<table class=\"button\" align=\"center\" border=\"0\">\n";
  $page_num = int($page_num);
  print "$res_page/$page_num";
  print "</table>";
  print "<table class=\"button\" align=\"center\" border=\"0\">\n";
   my $i;
  if ($res_page > 1){
     print "<a 
href=\"search_sm.cgi?action=result&page=$prev_page&lName=$lName&fName=$fName&num=$num_page\">Prev</a>   
";
  }
  print "<tr>";
  for ($i = 1; $i <= $page_num; $i++){
      print "<a 
href=\"search_sm.cgi?action=result&page=$i&lName=$lName&fName=$fName&num=$num_page\">$i</a>   
";
  }
  if ($res_page < $page_num){
    print "<a 
href=\"search_sm.cgi?action=result&page=$next_page&lName=$lName&fName=$fName&num=$num_page\">Next</a>   
";
  }
  print "</table>";
  print "</center>";
}



  


#Main program
$cgi=new CGI;

print $cgi->header;

$htmlhead = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n
<html>\n
<head>\n
     <title>D&middot;Drive: Federated World Directory of Mathematicians</title>\n
     <meta name=\"description\" content=\"D&middot;Drive: FWDM Search\" />\n
     <meta name=\"keywords\" content=\"centre for experimental and constructive mathematics, computer algebra group, maple, research mathematics, computational sciences, dalhousie university\" />\n
     <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\" />\n
     <link rel=\"stylesheet\" type=\"text/css\" href=\"http://projects.cs.dal.ca/ddrive/content.css\" />\n
     <link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.cs.dal.ca/ddrive/fwdm/cgi-bin/style.css\" />\n
</head>\n
<body>\n";
print $htmlhead;

$topmenu = get("http://www.cs.dal.ca/ddrive/fwdm/ceictop.txt");
print $topmenu;

$htmlmid = "<div id=\"top\">\n
<p class=\"crumb-trail\"><a href=\"http://www.cs.dal.ca/ddrive\" class=\"crumb-back\">D&middot;Drive Home</a><label class=\"crumb-arrow\"> &gt; </label><a href=\"http://www.cs.dal.ca/ddrive/fwdm\" class=\"crumb-back\">FWDM</a><label class=\"crumb-arrow\"> &gt; <label class=\"crumb-current\">Query Form</label></p>\n
</div>\n
<div id=\"content\">\n";
print $htmlmid;

&leftmenu;
#$leftmenu = get("http://www.cs.dal.ca/ddrive/fwdm/leftmenu.txt");
#print $leftmenu;

my $action=$cgi->param('action');

print "<div id=\"center\">\n";

if ($action eq "") {
     &query;
} elsif ($action eq "result") {
     &result;
}

print "<p>\n";
&description;
print "</div>\n";

$footer = get("http://www.cs.dal.ca/ddrive/bottom.txt");
print $footer;
print "</body></html>\n";