# HG changeset patch
# User devi
# Date 1132694871 -7200
# Node ID 6452bfe549d1e7b585706da16967076b38d27388
# Parent  5e5878bd1b2054e0a1daf713c61b572957ae8694
Наброски для отправки письма после курса

diff -r 5e5878bd1b20 -r 6452bfe549d1 l3-cgi
--- a/l3-cgi	Tue Nov 22 22:47:47 2005 +0200
+++ b/l3-cgi	Tue Nov 22 23:27:51 2005 +0200
@@ -100,13 +100,17 @@
 	print "<td colspan='3'>Пользователь</td>";
 	print "</tr>\n";
 	for my $host (sort keys %{$t->{host}}) {
+
+		my $prefix = "/cgi-bin/l3/current/";
+		my $suffix = "";
+		
 		print "<tr>\n";
 		my $h = $t->{host}->{$host};
 		print "<td>".$h->{firstname}." ".$h->{surname}."</td>";
 		print "<td>$host</td>";
-		print "<td><a href='/cgi-bin/l3/current/".$host."/root'>root</a></td>";
-		print "<td><a href='/cgi-bin/l3/current/".$host."/".$h->{user}."'>".$h->{user}."</a></td>";
-		print "<td><a href='/cgi-bin/l3/current/".$host."'>все</a></td>";
+		print "<td><a href='".$prefix.$host."/root$suffix'>root</a></td>";
+		print "<td><a href='".$prefix.$host."/".$h->{user}."$suffix'>".$h->{user}."</a></td>";
+		print "<td><a href='".$prefix.$host."$suffix'>все</a></td>";
 		print "</td>\n";
 		print "</tr>\n";
 	}
diff -r 5e5878bd1b20 -r 6452bfe549d1 l3scripts
--- a/l3scripts	Tue Nov 22 22:47:47 2005 +0200
+++ b/l3scripts	Tue Nov 22 23:27:51 2005 +0200
@@ -46,6 +46,7 @@
 mkdir /tmp/$course-$date
 find $outpath/*$date* -name \*.pdf -exec cp {} /tmp/$course-$date/ \;
 cd /tmp
+rm -rf $course-$date.zip 2> /dev/null
 zip -r $course-$date.zip $course-$date
 mv $course-$date.zip /var/www/tmp/
 mutt -s 'Сгенерированы методички' imchubin\@mail.ru <<LETTER
@@ -59,5 +60,36 @@
 WBR,i.m.chubin
 LETTER
 
+###PRE-send-logs
+rm -rf /tmp/lilalo-$course-$date 2> /dev/null
+mkdir /tmp/lilalo-$course-$date
+cp -R /var/www/l3 /tmp/lilalo-$course-$date
+cd /tmp
+rm -rf lilalo-$course-$date.zip 2> /dev/null
+zip -r lilalo-$course-$date.zip lilalo-$course-$date
+
+
+###send-logs
+cat >> /tmp/letters <<LETTER
+mutt -a /tmp/lilalo-$course-$date.zip -s 'Журналы лабораторных работ' imchubin@mail.ru
+$firstname,
+
+высылаю вам журналы лабораторных работ по курсу $course,
+который проходил на этой неделе (начался $date).
+Файл с архивом прикреплен к письму.
+
+Пишите, если у вас будут любые замечания/советы/вопросы 
+по методическому пособию или системе ведения журналов.
+Если нужна будет помощь по курсу или темам, 
+связанным с ним -- спрашивайте.
+Надеюсь, что смогу вам помочь.
+
+Пожалуйста, напишите ответ, если вы получили это письмо, 
+и журналы открылись.
+
+--
+WBR, i.m.chubin
+LETTER
+
 ###watch
 cat taillast.pl | ssh $ssh_user@$host perl - /root/.labmaker
diff -r 5e5878bd1b20 -r 6452bfe549d1 lm
--- a/lm	Tue Nov 22 22:47:47 2005 +0200
+++ b/lm	Tue Nov 22 23:27:51 2005 +0200
@@ -174,6 +174,7 @@
 	for my $student (@{$XMLClass->{"student"}}) {
 		$Machines{$student->{"host"}} = {
 			"name"	=> "$student->{firstname} $student->{surname}",
+			"firstname"	=> "$student->{firstname}",
 			"user"	=> "$student->{user}",
 			"student" => $student,
 		}	
@@ -310,6 +311,7 @@
 				email	=>	$Machines{$m}->{"student"}->{"email"},
 				company	=>	$Machines{$m}->{"student"}->{"company"},
 				name	=> 	$Machines{$m}->{"name"},
+				firstname	=> 	$Machines{$m}->{"firstname"},
 			);
 			if (grep { $_ eq $command} keys %Scripts) {
 				$_=$Scripts{"$command"};