lilalo

changeset 93:45196265d30e

find changesets by author, revision, files, or words in the commit message
Написан прототип lm get
author devi
date Sat Apr 22 17:08:05 2006 +0300 (2006-04-22)
parents db51b62442ac
children 3fb4d295fb65
files l3-frontend l3scripts lm
line diff
     1.1 --- a/l3-frontend	Sat Apr 22 17:08:05 2006 +0300
     1.2 +++ b/l3-frontend	Sat Apr 22 17:08:05 2006 +0300
     1.3 @@ -174,6 +174,7 @@
     1.4  
     1.5  sub mywi_client
     1.6  {
     1.7 +    return "";
     1.8      my $query = $_[0];
     1.9      my $mywi;
    1.10  
    1.11 @@ -1035,6 +1036,7 @@
    1.12      my $cursor_position = 0;
    1.13  
    1.14      $result = print_command_lines_txt;
    1.15 +    my $title = ">Журнал лабораторных работ. Правка";
    1.16  
    1.17      $result = 
    1.18                 "<html>"

     2.1 --- a/l3scripts	Sat Apr 22 17:08:05 2006 +0300
     2.2 +++ b/l3scripts	Sat Apr 22 17:08:05 2006 +0300
     2.3 @@ -45,6 +45,7 @@
     2.4  personal=$course-$date-$email
     2.5  mkdir -p $outpath/${common}/{Lablogs,Docs}
     2.6  mkdir -p $outpath/${personal}/{Course,Files}
     2.7 +mkdir -p $outpath/${personal}/Course/pdf
     2.8  cd $outpath/${personal}
     2.9  ln -s ../${common}/Lablogs .
    2.10  ln -s ../${common}/Docs .
    2.11 @@ -100,6 +101,14 @@
    2.12  ###send-logs
    2.13  #cat >> /tmp/letters <<LETTER
    2.14  mutt -a /tmp/lilalo-$course-$date.zip -s 'Журналы лабораторных работ' $email <<LETTER
    2.15 +
    2.16 ++--------------------------------------------------+
    2.17 +|                                                  |
    2.18 +| В прошлом письме был неверно указаны фамилии     |
    2.19 +| слушателей. Не в том порядке.  Сейчас всё ок.    |
    2.20 +|                                                  |
    2.21 ++--------------------------------------------------+
    2.22 +
    2.23  $firstname,
    2.24  
    2.25  высылаю вам журналы лабораторных работ по курсу $course,

     3.1 --- a/lm	Sat Apr 22 17:08:05 2006 +0300
     3.2 +++ b/lm	Sat Apr 22 17:08:05 2006 +0300
     3.3 @@ -90,7 +90,6 @@
     3.4      }
     3.5  
     3.6      if ($ARGV[0] eq "get") {
     3.7 -         print "argv= ".$ARGV[0]."ZLO\n";
     3.8           lm_get;
     3.9           exit(0);
    3.10      }