program pro upozornovani na vyroci?

[Ladislav Vaiz]

Zasílám slíbený kód. Není na něm asi nic moc k vysvětlování, když Perl 
znáte.
Láďa


#!/usr/bin/perl
use Data::Dumper;

open(FD, "/etc/reminderusers") or die;
$s=<FD>;
@users=split(/\s+/, $s);
close(FD);

(undef, undef, undef, $day, $month, undef, undef, undef, 
undef)=localtime(time);
$month++;
#print Dumper($day);
#print Dumper($month);

foreach $user (@users){
#    print "user=$user\n";

    die unless -f "/home/$user/.reminder";
    my ($mail)="";
    open(FD, "/home/$user/.reminder") or die;
    while($s=<FD>){
        $s=~s/[\r\n]+//;
        $s=~s/^\s+//;
        next if (length($s)==0);
        my ($d, $m, $text)=split(/\s+/, $s, 3);
#        printf "%d %d   %d %d\n", $d, $m, $day,$month;
        next if($d!=$day or $m!=$month);

#        printf("trefa $text\n");
        $mail.="$text"."\n";
    }
    close(FD);
    if (length($mail)>0){
        open (FD, "|/usr/sbin/sendmail $user\@domena.cz");
        print FD "From: Pripominkovac <root\@domena.cz>\n";
        print FD "To: <$user\@domena.cz>\n";
        print FD "Subject: Pripomenuti\n";
        print FD $mail;
        close(FD);
    }
}




Petr Barta wrote:
>> Ahoj,
>> kdysi jsem napsal neco podobneho. Je to skript v perlu spousteny 1x 
>> denne cronem. V /etc se definuji uzivatele, kterym se prohledava
>> konfigurak v HOME. V nem je den, mesic a text. Dnesni polozky se 
>> poslou mailem. Jestli vam to takto staci pripadne si to umite 
>> priohnout, tak
>> vam to muzu nekam vystavit.
>> Lada
>
> Diky za nabidku - jestli vam to nebude vadit, rad to vyuziju. 
> Priohnout si to umim, popravde jsem uvazoval ze pokud nenajdu, napisu 
> si neco podobneho v perlu sam (Ccko bohuzel neumim).
>
>     Petr
> _______________________________________________
> Linux mailing list
> Linux na linux.cz
> http://www.linux.cz/mailman/listinfo/linux