Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Nedeľa, 21. júl 2024

Súbor: [Platon] / scripts / perl / foja / foja-mkmail.pl (stiahnutie)

Revízia 1.5, Sun Nov 9 19:16:58 2003 UTC (20 years, 8 months ago) by nepto


Zmeny od 1.4: +1 -1 [lines]

Changed $Id$ for $Platon$.

#!/usr/bin/perl

#############################################################################
#                                                                           #
#  foja_mkmail.pl - FOJA e-mail composer                                    #
#                                                                           #
#  Tento skript ocakava na vstupe data z vystupu skriptu foja_parser.       # 
#  T.j. na zaciatku celkovy pocet uloh a dalej zoznam rezervovanych uloh.   #
#  Vystupom skriptu je hotova e-mailova sprava, ktoru staci poslat          #
#  programom /usr/sbin/sendmail na prislusnu adresu. Optimalne pouzitie:    #
#                                                                           #
#  ./foja_parser.pl foja_XX.html | ./foja_mkmail.pl \                       #
#                                         | /usr/sbin/sendmail fojaX@...    #
#                                                                           #
#                              =Neptunko= <neptunko@pobox.sk> [13/11/2000]  #
#                                                                           #
#############################################################################

# $Platon: foja-mkmail.pl,v 1.4 2002/02/12 00:34:24 jombik9 Exp $

$DEFAULT_EXERCISES = 7;
$RESERVED_EXERCISE_STR = "-- ODOVZDAVACIA ULOHA -- NEDA SA REZERVOVAT --";
$RESERVATION_STR = "<reservation>";
@NAME = ("Ondrej Holotnak", "Michal Hitka");

$MAIL_MSG = 'X-x: Dummy empty line - Toto tu musi byt! Nemaz to!
To: Fojaaaaaaakyyyyy... <foja2@st.fmph.uniba.sk>
Subject: Sada 11.
From: Ondrej Holotnak <holotnak9@kepler.fmph.uniba.sk>
X-Mailer: Neptunko: Uz zase sem pozeras?? Ts, ts... btw. Perl rulz!

Dobry den!

Z 11. sady si rezervujeme nasledujuci priklad:

' . $RESERVATION_STR . '
Prijemny den VSETKYYYYYYYM! :))

';

#############################################################################

if ($ex = <STDIN>) {
    chomp($ex);

    $i = 0;
    while ($res_ex[$i] = <STDIN>) {
        chomp($res_ex[$i]);
        $i++;
    }

}
else {
    $ex = $DEFAULT_EXERCISES;
}

$_ = $MAIL_MSG;
s/^([\000-\255]*)$RESERVATION_STR[\000-\255]*$/$1/;
print $_;

$curr_name = 0;
for ($i = 0; $i < $ex; $i++) {
    print $i + 1, ". ";

    for ($j = 0; $j <= $#res_ex + 1; $j++) {
        
        if ($j == $#res_ex + 1) {
            if ($curr_name <= $#NAME) {
                print $NAME[$curr_name], "\n";
                $curr_name++;
            }
            else {
                print "\n";
            }

            last; #$j = $#res_ex + 1; # break; 
        }
        else {
            if ($i + 1 == $res_ex[$j]) {
                print $RESERVED_EXERCISE_STR, "\n";  
                last; #$j = $#res_ex + 1; # break;
            }
        }
    }
}

$_ = $MAIL_MSG;
s/^[\000-\255]*$RESERVATION_STR([\000-\255]*)$/$1/;
print $1;


Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok