use vars qw/ $AllowFullYearView $LevelForRobotsDetection $LevelForWormsDetection $LevelForBrowsersDetection $LevelForOSDetection $LevelForRefererAnalyze $LevelForFileTypesDetection $LevelForSearchEnginesDetection $LevelForKeywordsDetection /; ($AllowFullYearView, $LevelForRobotsDetection, $LevelForWormsDetection, $LevelForBrowsersDetection, $LevelForOSDetection, $LevelForRefererAnalyze, $LevelForFileTypesDetection, $LevelForSearchEnginesDetection, $LevelForKeywordsDetection)= (2,2,0,2,2,2,2,2,2); use vars qw/ $DirLock $DirCgi $DirConfig $DirData $DirIcons $DirLang $AWScript $ArchiveFileName $AllowAccessFromWebToFollowingIPAddresses $HTMLHeadSection $HTMLEndSection $LinksToWhoIs $LinksToIPWhoIs $LogFile $LogType $LogFormat $LogSeparator $Logo $LogoLink $StyleSheet $WrapperScript $SiteDomain $UseHTTPSLinkForUrl $URLQuerySeparators $URLWithAnchor $ErrorMessages $ShowFlagLinks /; ($DirLock, $DirCgi, $DirConfig, $DirData, $DirIcons, $DirLang, $AWScript, $ArchiveFileName, $AllowAccessFromWebToFollowingIPAddresses, $HTMLHeadSection, $HTMLEndSection, $LinksToWhoIs, $LinksToIPWhoIs, $LogFile, $LogType, $LogFormat, $LogSeparator, $Logo, $LogoLink, $StyleSheet, $WrapperScript, $SiteDomain, $UseHTTPSLinkForUrl, $URLQuerySeparators, $URLWithAnchor, $ErrorMessages, $ShowFlagLinks)= ('','','','','','','','','','','','','','','','','','','','','','','','','','',''); ##

##

#------------------------------------------------------------------------------                                                                                       
# Function:             Write on ouput header of HTML page                                                                                                            
# Parameters:   None                                                                                                                                                  
# Input:                %HTMLOutput $PluginMode $Expires $Lang $StyleSheet $HTMLHeadSection $PageCode $PageDir                                                        
# Output:               $HeaderHTMLSent=1                                                                                                                             
# Return:               None                                                                                                                                          
#------------------------------------------------------------------------------                                                                                       
sub html_head {
  my $dir=$PageDir?'right':'left';
  if (scalar keys %HTMLOutput || $PluginMode) {
    my $MetaRobot=0;            # meta robots                                                                                                                         
    my $periodtitle=" ($YearRequired".($MonthRequired ne 'all'?"-$MonthRequired":"").")";
    # Write head section                                                                                                                                              
    if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') {
      if ($PageCode) {
        print "\n";
      } else {
        print "\n";
      }
      ;
      if ($FrameName ne 'index') {
        print "\n";
      } else {
        print "\n";
      }
      print "\n";
    } else {
      if ($FrameName ne 'index') {
        print "\n\n";
      } else {
        print "\n\n";
      }
      print "\n";
    }
    print "\n";
 
    print "\n";
 
    if ($MetaRobot) {
      print "\n";
    } else {
      print "\n";
    }