1.1 --- a/lm-report	Sun May 22 16:29:55 2005 +0300
     1.2 +++ b/lm-report	Tue May 24 16:09:08 2005 +0300
     1.3 @@ -56,6 +56,13 @@
     1.4  		comment_width			=>	"300",
     1.5  		time_width			=>	"60",
     1.6  
     1.7 +		"course-name" => "", 
     1.8 +		"course-code" => "", 
     1.9 +		"course-date" => "", 
    1.10 +		"course-center" => "", 
    1.11 +		"course-trainer" => "", 
    1.12 +		"course-student" => "", 
    1.13 +
    1.14  		);
    1.15  
    1.16  our @Command_Lines;
    1.17 @@ -92,6 +99,10 @@
    1.18  				=> 	"продолжение с помощью tab"
    1.19  );
    1.20  
    1.21 +sub init_variables;
    1.22 +our $Html_Help;
    1.23 +our $Html_About;
    1.24 +
    1.25  
    1.26  sub load_diff_files
    1.27  {
    1.28 @@ -586,10 +597,23 @@
    1.29  
    1.30  }
    1.31  
    1.32 +
    1.33 +=cut 
    1.34 +Вывести результат обработки журнала.
    1.35 +=cut
    1.36 +
    1.37 +
    1.38  sub print_command_lines
    1.39  {
    1.40  	my $output_filename=$_[0];
    1.41  	my $format = $Config{"output_format"};
    1.42 +
    1.43 +	my $course_name = $Config{"course-name"};
    1.44 +	my $course_code = $Config{"course-code"};
    1.45 +	my $course_date = $Config{"course-date"};
    1.46 +	my $course_center = $Config{"course-center"};
    1.47 +	my $course_trainer = $Config{"course-trainer"};
    1.48 +	my $course_student = $Config{"course-student"};
    1.49  	
    1.50  	open(OUT, ">", $output_filename)
    1.51  		or die "Can't open $output_filename for writing\n";
    1.52 @@ -655,6 +679,24 @@
    1.53  
    1.54  		}
    1.55  		</script>
    1.56 +		<h2>Журнал лабораторных работ</h2>
    1.57 +
    1.58 +		<p>
    1.59 +		Выполнил $course_student<br/>
    1.60 +		Проверил $course_trainer <br/>
    1.61 +		Курс $course_name ($course_code),
    1.62 +		$course_date<br/>
    1.63 +		Учебный центр $course_center <br/>
    1.64 +		</p>
    1.65 +
    1.66 +		<ul>
    1.67 +			<li><a href='#log'>Журнал</a></li>
    1.68 +			<li><a href='#stat'>Статистика</a></li>
    1.69 +			<li><a href='#help'>Справка</a></li>
    1.70 +			<li><a href='#about'>О программе</a></li>
    1.71 +		</ul>
    1.72 +
    1.73 +		<h3 id="#log">Журнал</h3>
    1.74  HEADER
    1.75  		print OUT "<table class='visibility_form'><tr><td><form>\n";
    1.76  		for my $element (keys %Elements_Visibility)
    1.77 @@ -857,6 +899,16 @@
    1.78  	}
    1.79  	if ($format eq "html") {
    1.80  		print OUT "</table>\n";
    1.81 +
    1.82 +		print OUT "<hr/>";
    1.83 +		print OUT "<h3 id='stat'>Статистика</h4>";
    1.84 +		print OUT "Статистическая информация о журнале<br/>";
    1.85 +		print OUT "<hr/>";
    1.86 +		print OUT "<h3 id='help'>Справка</h4>";
    1.87 +		print OUT "$Html_Help<br/>";
    1.88 +		print OUT "<hr/>";
    1.89 +		print OUT "<h3 a='about'>О программе</h4>";
    1.90 +		print OUT "$Html_About";
    1.91  		print OUT "</body>\n";
    1.92  		print OUT "</html>\n";
    1.93  	} 
    1.94 @@ -886,11 +938,11 @@
    1.95  
    1.96  my %file_config;
    1.97  my %argv_config;
    1.98 +init_variables;
    1.99  read_config_file(\%file_config, $Config_File);
   1.100  GetOptions(\%argv_config, map "$_=s", keys %Config);
   1.101  %Config = (%Config, %file_config, %argv_config);
   1.102  
   1.103 -
   1.104  my $i=0;
   1.105  
   1.106  for my $lab_log (split (/\s+/, $Config{"diffs"} || $Config{"input"})) 
   1.107 @@ -910,3 +962,20 @@
   1.108  	$i++;
   1.109  }
   1.110  
   1.111 +
   1.112 +sub init_variables
   1.113 +{
   1.114 +$Html_Help = <<HELP;
   1.115 +	Справка по использованию журнала
   1.116 +HELP
   1.117 +
   1.118 +$Html_About = <<ABOUT;
   1.119 +	<p>
   1.120 +	LiLaLo (L3) расшифровывается как Live Lab Log.<br/>
   1.121 +	Программа разработана для повышения эффективности обучения<br/>
   1.122 +	Unix/Linux-системам.<br/>
   1.123 +	(c) Игорь Чубин, 2004-2005<br/>
   1.124 +	\$Id$
   1.125 +	</p>
   1.126 +ABOUT
   1.127 +}