#!/usr/local/bin/perl require("cgi-lib.pl"); # Find out the script's URL (will be used for navigation links): $number_url = MyBaseUrl(); ### See cgi-lib.pl # Find out the full and complete path to the script's directory # (necessary to be able to open data files): @d_fs = split (/\//, $ENV{'SCRIPT_FILENAME'}); $k_d = grep ((!( /\// )), @d_fs); $script_path = @d_fs[0]; for ($k = 1; $k < $k_d - 1; $k++) { $script_path = $script_path . "/" . @d_fs[$k]; } # end for # Read any passed-in input, and put it into a hash named "in": &ReadParse; ### See cgi-lib.pl # Try to execute the default configuration file: if (! do "defaultconfig.pl") { print "Content-type: text/html\n\n"; print < Error : 'defaultconfig.pl' file execution failed!
Check 'defaultconfig.pl' file for syntax errors
(try : perl -d defaultconfig.pl). EOF exit(0); } # end if - default configuration execution ### EXECUTION - BEGIN ### # Starting the output. Print the magic header for the user's browser: print "Content-type: text/html\n\n"; # Read and print out the header file &Print_File_Out($header_name); # Get Journal dirs print q{
}; print " $search_link_text\n" if ($search_link_text ne ""); print "
\n"; print "
\n"; print "\nÍNDICE DE COMUNICACIONES LIBRES Y PONENCIAS
\n"; print "\n"; &Print_File_Out($footer_name); exit(0); ### execution - end ### ### SUBROUTINES ### sub Print_File_Out { # Read and print out the specified file (used to print header / footer) local ($file_to_print) = @_; open (FOOT, $file_to_print); @DATA=; close (FOOT); foreach $item (@DATA) { print "$item"; } # end foreach } # end sub sub Links_Next_Prev { # Print links: first, prev/next, last, contents # determined by $prev_num and $next_num variables print "$navbar_format\n"; # Print FIRST and PREVIOUS links if ($prev_num == 0) { print " $left_link_bracket$first_link_text$right_link_bracket" if ($first_link_text ne ""); print " $left_link_bracket$prev_link_text$right_link_bracket" if ($prev_link_text ne ""); } else { print " $left_link_bracket$first_link_text$right_link_bracket" if ($first_link_text ne ""); print " $left_link_bracket$prev_link_text$right_link_bracket" if ($prev_link_text ne ""); } # end if # Print NEXT and LAST links if ($next_num == ($total_chapters + 1)) { print " $left_link_bracket$next_link_text$right_link_bracket" if ($next_link_text ne ""); print " $left_link_bracket$last_link_text$right_link_bracket" if ($last_link_text ne ""); } else { print " $left_link_bracket$next_link_text$right_link_bracket" if ($next_link_text ne ""); print " $left_link_bracket$last_link_text$right_link_bracket" if ($last_link_text ne ""); } # end if # Print CONTENTS and HOME links print " $left_link_bracket$contents_link_text$right_link_bracket" if ($contents_link_text ne ""); print " $left_link_bracket$search_link_text$right_link_bracket" if ($search_link_text ne ""); print " $left_link_bracket$home_link_text$right_link_bracket" if ($home_link_text ne ""); print "$left_link_bracket" if (!$right_link_bracket); print "$navbar_format_close
\n"; } # end sub sub Print_A_Chapter { # Print the entry (chapter) indicated by $enumb variable open (JENTRY, "$journal_dir/$sorted_chapters[$enumb].txt"); $ctitle = ; chomp($ctitle); print "$title_format$ctitle$title_format_close
\n"; print "$text_format"; while () { print $_; print "
" if ($lf_to_br); } # end while close (JENTRY); print "$text_format_close
\n"; } # end sub sub Print_Outline_Reverse { # Print the journal outline - list entries in reverse order print "$title_format $contents_link_text |\n"; print "$search_link_text\n"; print " $title_format_close

"; for ($i = $total_chapters; $i > 0; $i--) { open (JENTRY, "$journal_dir/$sorted_chapters[($i-1)].txt"); $ctitle = ; chomp($ctitle); print "$chapter_prefix$sorted_chapters[($i-1)] $ctitle
"; } # end for } # end sub sub Print_Outline_Direct { # Print the journal outline - list entries in direct order print "$title_format $contents_link_text |\n"; print "$search_link_text\n"; print " $title_format_close

"; for ($i = 1; $i <= $total_chapters; $i++) { open (JENTRY, "$journal_dir/$sorted_chapters[($i-1)].txt"); $ctitle = ; chomp($ctitle); print "$chapter_prefix$sorted_chapters[($i-1)] $ctitle
"; } # end for } # end sub sub Go_Print_Outline { # Print the journal outline - list entries in reverse or direct order if ($reverse_order) { &Print_Outline_Reverse; } else { &Print_Outline_Direct; } # end if } # end sub