#!/usr/bin/perl if(true) { print "Location: http://www.paimionrasti.fi/\n\n"; exit 0; } $siteroot = "./omatsivut/"; $urlroot = "http://www.paimionrasti.fi/suma/"; $progurl = "http://www.paimionrasti.fi/suma/index.cgi"; $area_file = "./omatsivut/areas.csv"; &lue_parametrit; if ($FORM{alue} eq "") {$FORM{alue} = "etusivu";} &open_areas; foreach $line(@areas) { @_ = split(/\|/, $line); if ($_[0] eq $FORM{alue}) { $subtitle = $_[3]; $data= $_[1]; $type = $_[2]; } } if ($FORM{tiedosto} eq "") {$FORM{tiedosto} = "index.data"} &writeHeader; &writeValikko; &writeBody; &writeFooter; exit 0; sub writeFooter { print "
\"pixel\""; print "edit site "; print ""; open(DATA,"$siteroot/../../etusivu/headerfooter.inc"); @lines = ; close(DATA); print @lines; } sub writeBody { if ($type eq "html") { open(DATA,"$siteroot$data/$FORM{tiedosto}"); @lines = ; close(DATA); if ($lines[0] ne "") { print "
\n"; print @lines; print "
\n"; } else { print "

Sivut kesken..
















\n\n\n\n\n"; } } elsif ($type eq "include") { open(DATA,"$data"); @lines = ; close(DATA); if ($lines[0] ne "") { print @lines; } else { print "

Sivut kesken..
















\n\n\n\n\n"; } } elsif ($type eq "cgi") { ##Cgi-ajo jne } else {print "Vituiks meni! type= $type"} } sub open_areas { open(AREAS,"$area_file") or die; @areas = ; close(AREAS); } sub lue_parametrit { if ( ($ENV{'REQUEST_METHOD'} eq 'POST') || ($ENV{'REQUEST_METHOD'} eq 'post') ) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @cgiPairs = split(/\&/,$buffer); } else { @cgiPairs = split(/\&/,$ENV{'QUERY_STRING'}); } #Arvot HASHiin välilyönnein erotettuna saman nimiset foreach $pair ( @cgiPairs ) { ($var,$val) = split("=",$pair); $val =~ s/\+/ /g; $val =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/\|/ /g; $val =~ s/\r//g; ## rivinvaihdot tageiksi if ($var eq "body") {$val =~ s/\n/
\n/g;} if ($FORM{$var} eq "") {$FORM{$var} = "$val";} else {$FORM{$var} = "$FORM{$var} $val";} if ($name eq "juttu") {$value =~ s/\n/
/g;} } } sub writeHeader { print "Content-type: text/html\n\n"; print ""; print ""; print "PR:n harjoituspaketit :: $subtitle"; print ""; print ""; print ""; print <
EndOfHtml } sub writeValikko { foreach $line(@areas) { @_ = split(/\|/, $line); if ($_[5] == 1 && ($_[0] eq $FORM{alue})) {$alasivuja = 1;} if ($alasivuja) { $valittu = "valikko1valittualasivuja"; $normaali = "valikko1alasivuja"; } else { $valittu = "valikko1valittu"; $normaali = "valikko1"; } } print "
PR:n harjoituspaketit
"; print "
\n"; print "

"; print "

    \n"; foreach $line(@areas) { @_ = split(/\|/, $line); ##Valittu nappula if ($_[0] eq $FORM{alue}) { print "
  • $_[3]"; if ($alasivuja == 1) { print "
    \n"; print "
      \n"; open(INDEX,"$siteroot$FORM{alue}/index.files"); @files = ; close(INDEX); if ($files[0] ne "") { $i = 0; foreach $file (@files) { @fileinfo = split(/\|/,$file); if ($fileinfo[2] !=0) { if ($fileinfo[0] eq $FORM{tiedosto} || ($FORM{tiedosto} eq "" && $i == 0)) { print "\t
    • $fileinfo[1]
      • \n"; } else { print "\t
    • $fileinfo[1]
      • \n"; } } $i++; } } print "
    \n"; print "
    \n"; } print "
    • \n"; } else { ##Normaali nappula print "
  • "; print "$_[3]
    • \n"; } } print "
\n"; print "
"; print "
"; }