"Fossies" - the Fresh Open Source Software Archive

Member "absence-v2.1/cgi-bin/gettype" (10 Jul 2008, 178 Bytes) of package /linux/www/web-absence-2.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #!/usr/local/bin/perl
    2 
    3 use AbsenceTypes;
    4 
    5 @types = AbsenceTypes::getTypes();
    6 
    7 foreach my $t (@types) {
    8     $c = AbsenceTypes::getColor($t);
    9     print "[$t] [".join(', ', @$c)."]\n";
   10 }