#!/usr/bin/perl -w @cgiPairs = split("&",$ENV{'QUERY_STRING'}); foreach $pair ( @cgiPairs ) { # Pronalazimo ime promenjive i njenu vrednost ($var,$val) = split("=",$pair); # Zamenjujemo + sa prazninama $val =~ s/\+/ /g; # Zamenjujemo specijalne karaktere oblika %.. $val =~ s/%(..)/pack("c",hex($1))/g; # Gradimo hash $cgiVals{"$var"} = "$val"; } $dir=$cgiVals{"dir"}; die('Not a regular dir') if ($dir !~ /^[a-zA-Z0-9]+[-_a-zA-Z0-9\/]*$/); $color_pl = "http://www.matf.bg.ac.rs/~filip/color.pl"; $home_dir = $dir; $dirtoget=$dir; opendir(IMD, $dirtoget) || die("Cannot open directory"); @thefiles= readdir(IMD); closedir(IMD); @thefiles = sort { if ($a =~ /(\d+)\.(\d+)(.*)\.c/) { $a_cas = $1; $a_br = $2; } else { return -1; } if ($b =~ /(\d+)\.(\d+)(.*)\.c/) { $b_cas = $1; $b_br = $2; } else { return 1; } if ($a_cas > $b_cas) { return 1; } elsif ($a_cas < $b_cas) { return -1; } if ($a_br > $b_br) { return 1; } elsif ($a_br < $b_br) { return -1; } return $a cmp $b; } @thefiles; #ispisujemo html zaglavlje print "Content-type: text/html\n\n"; print ""; print "\n"; print "\n"; print "\n"; print "\n"; print "Programski jezik C - reseni zadaci\n"; print "\n"; print "\n"; print "\n"; print "\n"; print(""); print "

Programski jezik C

\n"; $last_num = ""; foreach $f (@thefiles) { if ($f =~ /((\d+)\.(.*))\.c$/) { $comment = get_comment($f); if ($2 ne $last_num) { if ($last_num ne "") { print ""; print_lecture_download($last_num); print "\n"; print "\n"; print "
"; } $last_num = $2; print "\n"; print "

$2

"; print_local_links(); print "
\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } } print "\n"; print "
BrojOpis
"; print "$1$commentarrow
"; print_lecture_download($last_num); print "
\n"; print "
"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Svi primeri u jednoj datoteci
"; print "\n"; print ""; print "\n"; print "
ziphtml
\n"; print "

\n"; open(NEDSTAT, "nedstat.html"); while() { print; } print "

\n"; print "\"Valid"; print ""; print "\"Valid"; print "

\n"; print ""; sub get_comment { $name = shift; $name = $home_dir."/".$name; return 'Not a regular file name' if (!$name =~ /^[a-zA-Z0-9]+[a-zA-Z0-9\/]*[.]c$/); open(DATOTEKA, $name) || return; @dat = ; $dat = join('', @dat); if ($dat =~ /^\/\*(([^\*]|\*[^\/])+)\*\//) { $comment = $1; } else { $comment = ''; } $comment =~ s/&/&/g; $comment =~ s//>/g; $comment; } sub print_local_links { print("

"); my $last_num = ""; foreach $f (@thefiles) { if ($f =~ /(\d+)\.(.*)\.c/) { if ($1 ne $last_num) { $last_num = $1; print("$1|"); } } } print("

\n"); } sub print_lecture_download { my $num = shift; print "

Download : "; print ""; print "\n"; print "\n"; print ""; print "\n"; print "\n"; print "

"; }