Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / foja

Diff for scripts/perl/foja/foja-mkmail.pl between version 1.1 and 1.2

version 1.1, 2002/02/03 19:44:36 version 1.2, 2002/02/04 00:17:51
Line 2 
Line 2 
   
 #############################################################################  #############################################################################
 #                                                                           #  #                                                                           #
   #  foja_mkmail.pl - FOJA e-mail composer                                    #
   #                                                                           #
 #  Tento skript ocakava na vstupe data z vystupu skriptu foja_parser.       #  #  Tento skript ocakava na vstupe data z vystupu skriptu foja_parser.       #
 #  T.j. na zaciatku celkovy pocet uloh a dalej zoznam rezervovanych uloh.   #  #  T.j. na zaciatku celkovy pocet uloh a dalej zoznam rezervovanych uloh.   #
 #  Vystupom skriptu je hotova e-mailova sprava, ktoru staci poslat          #  #  Vystupom skriptu je hotova e-mailova sprava, ktoru staci poslat          #
Line 10 
Line 12 
 #  ./foja_parser.pl foja_XX.html | ./foja_mkmail.pl \                       #  #  ./foja_parser.pl foja_XX.html | ./foja_mkmail.pl \                       #
 #                                         | /usr/sbin/sendmail fojaX@...    #  #                                         | /usr/sbin/sendmail fojaX@...    #
 #                                                                           #  #                                                                           #
 #                                               =Neptunko=  [13/11/2000]    #  #                              =Neptunko= <neptunko@pobox.sk> [13/11/2000]  #
 #                                                                           #  #                                                                           #
 #############################################################################  #############################################################################
   
Line 36  Prijemny den VSETKYYYYYYYM! :))
Line 38  Prijemny den VSETKYYYYYYYM! :))
   
 #############################################################################  #############################################################################
   
 if ($ex = <STDIN>)  if ($ex = <STDIN>) {
 {  
         chomp($ex);          chomp($ex);
   
         $i = 0;          $i = 0;
         while ($res_ex[$i] = <STDIN>)          while ($res_ex[$i] = <STDIN>) {
         {  
                 chomp($res_ex[$i]);                  chomp($res_ex[$i]);
                 $i++;                  $i++;
         }          }
   
 }  }
 else  else {
 {  
         $ex = $DEFAULT_EXERCISES;          $ex = $DEFAULT_EXERCISES;
 }  }
   
Line 58  s/^([\000-\255]*)$RESERVATION_STR[\000-\
Line 57  s/^([\000-\255]*)$RESERVATION_STR[\000-\
 print $_;  print $_;
   
 $curr_name = 0;  $curr_name = 0;
 for ($i = 0; $i < $ex; $i++)  for ($i = 0; $i < $ex; $i++) {
 {  
         print $i + 1, ". ";          print $i + 1, ". ";
   
         for ($j = 0; $j <= $#res_ex + 1; $j++)          for ($j = 0; $j <= $#res_ex + 1; $j++) {
         {  
                 if ($j == $#res_ex + 1)                  if ($j == $#res_ex + 1) {
                 {                          if ($curr_name <= $#NAME) {
                         if ($curr_name <= $#NAME)  
                         {  
                                 print $NAME[$curr_name], "\n";                                  print $NAME[$curr_name], "\n";
                                 $curr_name++;                                  $curr_name++;
                         }                          }
                         else                          else {
                         {  
                                 print "\n";                                  print "\n";
                         }                          }
   
                         last; #$j = $#res_ex + 1; # break;                          last; #$j = $#res_ex + 1; # break;
                 }                  }
                 else                  else {
                 {                          if ($i + 1 == $res_ex[$j]) {
                         if ($i + 1 == $res_ex[$j])  
                         {  
                                 print $RESERVED_EXERCISE_STR, "\n";                                  print $RESERVED_EXERCISE_STR, "\n";
                                 last; #$j = $#res_ex + 1; # break;                                  last; #$j = $#res_ex + 1; # break;
                         }                          }
Line 91  for ($i = 0; $i < $ex; $i++)
Line 85  for ($i = 0; $i < $ex; $i++)
 $_ = $MAIL_MSG;  $_ = $MAIL_MSG;
 s/^[\000-\255]*$RESERVATION_STR([\000-\255]*)$/$1/;  s/^[\000-\255]*$RESERVATION_STR([\000-\255]*)$/$1/;
 print $1;  print $1;
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top