1.1 --- a/l3-cgi	Tue Nov 22 22:47:47 2005 +0200
     1.2 +++ b/l3-cgi	Tue Nov 22 23:27:51 2005 +0200
     1.3 @@ -100,13 +100,17 @@
     1.4  	print "<td colspan='3'>Пользователь</td>";
     1.5  	print "</tr>\n";
     1.6  	for my $host (sort keys %{$t->{host}}) {
     1.7 +
     1.8 +		my $prefix = "/cgi-bin/l3/current/";
     1.9 +		my $suffix = "";
    1.10 +		
    1.11  		print "<tr>\n";
    1.12  		my $h = $t->{host}->{$host};
    1.13  		print "<td>".$h->{firstname}." ".$h->{surname}."</td>";
    1.14  		print "<td>$host</td>";
    1.15 -		print "<td><a href='/cgi-bin/l3/current/".$host."/root'>root</a></td>";
    1.16 -		print "<td><a href='/cgi-bin/l3/current/".$host."/".$h->{user}."'>".$h->{user}."</a></td>";
    1.17 -		print "<td><a href='/cgi-bin/l3/current/".$host."'>все</a></td>";
    1.18 +		print "<td><a href='".$prefix.$host."/root$suffix'>root</a></td>";
    1.19 +		print "<td><a href='".$prefix.$host."/".$h->{user}."$suffix'>".$h->{user}."</a></td>";
    1.20 +		print "<td><a href='".$prefix.$host."$suffix'>все</a></td>";
    1.21  		print "</td>\n";
    1.22  		print "</tr>\n";
    1.23  	}

     2.1 --- a/l3scripts	Tue Nov 22 22:47:47 2005 +0200
     2.2 +++ b/l3scripts	Tue Nov 22 23:27:51 2005 +0200
     2.3 @@ -46,6 +46,7 @@
     2.4  mkdir /tmp/$course-$date
     2.5  find $outpath/*$date* -name \*.pdf -exec cp {} /tmp/$course-$date/ \;
     2.6  cd /tmp
     2.7 +rm -rf $course-$date.zip 2> /dev/null
     2.8  zip -r $course-$date.zip $course-$date
     2.9  mv $course-$date.zip /var/www/tmp/
    2.10  mutt -s 'Сгенерированы методички' imchubin\@mail.ru <<LETTER
    2.11 @@ -59,5 +60,36 @@
    2.12  WBR,i.m.chubin
    2.13  LETTER
    2.14  
    2.15 +###PRE-send-logs
    2.16 +rm -rf /tmp/lilalo-$course-$date 2> /dev/null
    2.17 +mkdir /tmp/lilalo-$course-$date
    2.18 +cp -R /var/www/l3 /tmp/lilalo-$course-$date
    2.19 +cd /tmp
    2.20 +rm -rf lilalo-$course-$date.zip 2> /dev/null
    2.21 +zip -r lilalo-$course-$date.zip lilalo-$course-$date
    2.22 +
    2.23 +
    2.24 +###send-logs
    2.25 +cat >> /tmp/letters <<LETTER
    2.26 +mutt -a /tmp/lilalo-$course-$date.zip -s 'Журналы лабораторных работ' imchubin@mail.ru
    2.27 +$firstname,
    2.28 +
    2.29 +высылаю вам журналы лабораторных работ по курсу $course,
    2.30 +который проходил на этой неделе (начался $date).
    2.31 +Файл с архивом прикреплен к письму.
    2.32 +
    2.33 +Пишите, если у вас будут любые замечания/советы/вопросы 
    2.34 +по методическому пособию или системе ведения журналов.
    2.35 +Если нужна будет помощь по курсу или темам, 
    2.36 +связанным с ним -- спрашивайте.
    2.37 +Надеюсь, что смогу вам помочь.
    2.38 +
    2.39 +Пожалуйста, напишите ответ, если вы получили это письмо, 
    2.40 +и журналы открылись.
    2.41 +
    2.42 +--
    2.43 +WBR, i.m.chubin
    2.44 +LETTER
    2.45 +
    2.46  ###watch
    2.47  cat taillast.pl | ssh $ssh_user@$host perl - /root/.labmaker

     3.1 --- a/lm	Tue Nov 22 22:47:47 2005 +0200
     3.2 +++ b/lm	Tue Nov 22 23:27:51 2005 +0200
     3.3 @@ -174,6 +174,7 @@
     3.4  	for my $student (@{$XMLClass->{"student"}}) {
     3.5  		$Machines{$student->{"host"}} = {
     3.6  			"name"	=> "$student->{firstname} $student->{surname}",
     3.7 +			"firstname"	=> "$student->{firstname}",
     3.8  			"user"	=> "$student->{user}",
     3.9  			"student" => $student,
    3.10  		}	
    3.11 @@ -310,6 +311,7 @@
    3.12  				email	=>	$Machines{$m}->{"student"}->{"email"},
    3.13  				company	=>	$Machines{$m}->{"student"}->{"company"},
    3.14  				name	=> 	$Machines{$m}->{"name"},
    3.15 +				firstname	=> 	$Machines{$m}->{"firstname"},
    3.16  			);
    3.17  			if (grep { $_ eq $command} keys %Scripts) {
    3.18  				$_=$Scripts{"$command"};