Výpis zkoušek na FI MUNI

Tak tu máme další ze serie skriptů k usnadnění studia na MU, tentokráte vhodné pro všechny fakulty… Leč nepředpokládám, že by někdo s něčím podobným onanoval na PedF. Cílem tohoto skriptu je vypsat všechny termíny nadcházejících zkoušek se všemi náležitostmi – aneb proč se tím zbytečně a složitě proklikávat…

#!/usr/bin/perl
use strict;

# tohle by nikdo neměl vidět :-)
my $username = "xuzivatel";
my $userpass = "moje_bezpecne_heslo";

my $blok = `curl --insecure -u $username:$userpass
     https://is.muni.cz/auth/student/prihl_na_zkousky.pl 2> /dev/null`;

while( $blok =~
         s/<LI><A HREF="prihl_na_zkousky\.pl(.*?)"><B>(.*?)<\/B>// ) {
    print "$2\n";
    my $in_blok = `( curl --insecure -u $username:$userpass
        'https://is.muni.cz/auth/student/prihl_na_zkousky.pl$1' )
              2> /dev/null`;
    $in_blok =~ <TABLE BORDER>(.*?)<\/TABLE>/sg;
    $in_blok = $1;

    while( $in_blok =~ s/<TD><B>(.*?)<BR>// ) {
        my $foo = $1;
        $foo =~ s/<\/TD>.*?<B>/, /;
        $foo =~ s/<\/B>//g;
        print "\t$foo\n";
    }
}

Asi stojí zmínit komentář Tomáše Janouška, kde uvádí, jak užívat certifikátu (odpadá volba –insecure) a kde také poukazuje na bezpečnou správu hesel z kwallet. Pěkně to má pán promyšlené.