Last update: ". $mtime_str. "
\n"; #-# copy_html($HEAD); #-# show_menu($PATH_INFO,$base_name.'/'); # to add base_name on link #-# copy_html($FOOT);} #### show_doc('purpose'.$SUFFIX,$LN);} # fixed initial file, in this case print @errors; exit; # -------------------------------------------------------------- # S U B R O U T I N E S # -------------------------------------------------------------- sub copy_html { local($FILE) = shift; if ( -f $FILE ) { open(FILE,$FILE) || push (@errors, " ** copy_html: problem opening FILE($FILE) to copy: $!\n"; } else { print " | |||
\n"; # be carefull navigator support
}
# ------------
# M E N U
# ------------
push(@errors, "** show_doc (98) file($file) \$LN($LN) \n") if $main::DEBUG; my @lang_selection_of_this = show_menu($file,$base,@Accept_lang); if ($conf::OHP_mode) { print " | \n\n"; } else { print " | \n\n";
}
# ------------
# B O D Y
# ------------
# check if the other lang is available. (info from menu processing)
# print 'lang: ', join(',',@lang),'file: ', $file,'@Accept_lang: ', join(','),@Accept_lang," \n"; my $other_file = '()'; my $other_list = ''; if ( $#lang_selection_of_this >0 ) { foreach my $l (@lang_selection_of_this) { $other_list .= "$l | ";} print 'Other lanugage: ', $other_list," \n";} my ($next,$next_link); if (($FILE,$next) = find_file_x($file,@Accept_lang)) { # accept_lang ? open(FILE) || push(@errors, " ** show_doc: problem opening file($FILE): ".$!." DOC_DIR($DOC_DIR) \n"); print \n";} if ($conf::OHP_mode) { print " | \n";
print "|
\n";
}
else {
print
" Last update: ". $mtime_str. " \n"; } copy_html($FOOT); print " |
$rcsid
\n"; } } sub find_file_x { # 数字を指定しなくても、それ以外の情報から探す my ($PATH) = shift; my (@Accept_lang) = @_; # push(@errors, "**(212) Accept_lang: ". join(';',@Accept_lang)."