#!/usr/bin/perl $siteroot = "./omatsivut/"; $urlroot = "http://www.paimionrasti.fi/suma/"; $progurl = "http://www.paimionrasti.fi/suma/extra.cgi"; $area_file = "./omatsivut/areas.csv"; $rndnrofile = "./omatsivut/rndnros.cgi"; $pwfile = "./pwfile.cgi"; $cgiurl = "http://www.paimionrasti.fi/suma/extra.cgi"; $shorturl = "/suma/extra.cgi"; $log_out_url = "http://www.paimionrasti.fi/suma/index.cgi"; &lue_parametrit; ## Tässä passitetaan noutamaan valid Cookie tai päästetään ## ohjelmaan. if ($cookie{username} ne "") { &userOpen; &teeHommat; } else { if ($FORM{toiminto} eq "getCookie") {&getCookie} else {&loginForm} } ################# # ## Aliohjelmat ## # ################# ##### sub teeHommat { if ($FORM{toiminto} eq "") {&viewPage;} elsif ($FORM{toiminto} eq "editPage") {&editPage;} elsif ($FORM{toiminto} eq "submitEditPage") {&submitEditPage;} elsif ($FORM{toiminto} eq "addPage") {&addPage;} elsif ($FORM{toiminto} eq "addPageForm") {&addPageForm;} elsif ($FORM{toiminto} eq "editFiles") {&editFiles;} elsif ($FORM{toiminto} eq "listFiles") {&listFiles;} elsif ($FORM{toiminto} eq "poistu") {&poistuOhjelmasta;} else {error("Hei maza, kerro mitä tehdä!")} } sub addPage { open(FILES,">>$siteroot$FORM{alue}/index.files") or error("Sivulistausta ei löydy"); print FILES "$FORM{filename}|$FORM{title}|1|\n"; close(FILES); &listFiles; } sub addPageForm { print "Content-type: text/html\n\n"; print ""; print ""; print "Tiedoston lisäys\n"; print "\n"; print "

Tiedoston lisäys:

"; print "Tiedosto lisätään alueeseen $FORM{alue}"; print "
"; print "Tiedostonimi: (identtinen alueessa, lyhyt, ei erikoismerkkeja)
"; print "Otsikko: "; print "\n"; print "\n"; print "\n"; print "
"; print "\n"; } sub editFiles { open(FILES,"<$siteroot$FORM{alue}/index.files") or error("Sivua ei löydy"); @lines = ; close(FILES); foreach $line(@lines) { @sivu = split(/\|/,$line); if ($FORM{$sivu[0]} eq "") {&error("Virhe: Joku muu editoi samaan aikaan??");} else { if ($FORM{$sivu[0]} ne "poista") { push(@newlines,"$sivu[0]|$sivu[1]|$FORM{$sivu[0]}|\n"); } else { unlink("$siteroot$FORM{alue}/index.files") or error("Poistettavaa tiedostoa ei löydy!"); } } } open(FILES,">$siteroot$FORM{alue}/index.files") or error("Sivua ei löydy"); print FILES @newlines; close(FILES); &listFiles; } sub listFiles { &open_areas; print "Content-type: text/html\n\n"; print ""; print ""; print "ListFiles::\n"; print "\n"; print "

Tiedostot alueessa: $FORM{alue}

"; print "
"; open(FILES,"<$siteroot$FORM{alue}/index.files") or error("Sivua ei löydy"); @lines = ; close(FILES); print ""; print ""; foreach $line(@lines) { @sivu = split(/\|/,$line); print ""; print "
TiedostoOtsikkoTila
$sivu[0]"; print "$sivu[1]"; print ""; } print "
"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; } sub userOpen { open(FILE,"$pwfile") or error("Can't Find/Open Password file!"); @filepass = ; close(FILE); open(NROS,"$rndnrofile") or error("Can't Find/Open CookieDB!"); my(@rndnros) = ; close(NROS); $logged = "false"; foreach $line(@rndnros) { chomp $line; @rnddata = split(/\|/,$line); if ($rnddata[0] == $cookie{rndnro} && $rnddata[1] eq $cookie{username}) { $logged = "true"; } } if ($logged eq "true") { foreach $filepas(@filepass) { ($usernm,$passwd,$emailaddr,$grp,$realname) = split(/\|/, $filepas); if($cookie{username} eq $usernm) { $user=$usernm; $usersEmail=$emailaddr; $group=$grp; $realName=$realname; } } } if ($group eq "admin") {$oikeudet = "ok";$admin = "true";} if($user eq ""){ error("Tunnus tai salasana väärin!"); } } sub loginForm { &open_areas; &writeHeader; &writeValikko; print "
"; print "

Kirjaudu Extranetiin:

"; print "Käyttäjätunnus:
\n"; print "Salasana:
\n"; print ""; print "
\n"; print "

\n"; &writeFooter; } sub getCookie { &userAuth; print "Set-Cookie: rndnro=$newrndnro; path=$shorturl\n"; print "Set-Cookie: username=$FORM{user}; path=$shorturl\n"; print "Content-type: text/html\n\n"; print "\n"; print "Sisäänkirjautuminen\n"; print ""; print ""; print "Olet kirjautumassa Extranetiin..."; print "\n"; } sub userAuth { open(FILE,"$pwfile") or error("Can't Find/Open Password file!"); @filepass = ; close(FILE); foreach $filepass(@filepass) { ($usernm,$passwd,$emailaddr,$grp,$realname) = split(/\|/, $filepass); if($FORM{user} eq $usernm and ($FORM{passwd} eq $passwd)) { $user=$usernm; $usersEmail=$emailaddr; $usersGroups=$grp; $realName=$realname; } } if($user eq "") { error("Tunnus tai salasana väärin!"); } $newrndnro = int(rand(10000)); open(NROS, "$rndnrofile") or error("Cookie tarkistusnumerotiedoston kanssa ongelmia"); @rndnros = ; close(NROS); # message(@rndnros); open(NROS, ">$rndnrofile") or error("Cookie tarkistusnumerotiedoston kanssa ongelmia"); print NROS "$newrndnro|$user\n"; # Vain kymmeneen asti, jotta vanhat unohtuneet poisloggaukset häviää ajallaan for($i=0;$i<9;$i++){ print NROS $rndnros[$i]; } close(NROS); } sub poistuOhjelmasta { open(NROS, "$rndnrofile") or error("Cookie tarkistusnumerotiedoston kanssa ongelmia"); @rndnros = ; close(NROS); # message(@rndnros); open(NROS, ">$rndnrofile"); foreach $line(@rndnros){ chomp $line; @rnddata = split(/\|/,$line); if (!($rnddata[0] == $cookie{rndnro} && $rnddata[1] eq $cookie{username})) { print NROS "$line\n"; } } close(NROS); print "Set-Cookie: rndnro=; path=$shorturl\n"; print "Set-Cookie: username=; path=$shorturl\n"; print "Content-type: text/html\n\n"; print "\n"; print "Uloskirjautuminen\n"; print ""; print ""; print "Olet kirjautumassa ulos Extranetistä"; print ""; } sub message { push @messages,@_; } sub submitEditPage { &open_areas; open(DATA,">$siteroot$data/$FORM{tiedosto}") or error("Tiedostoa ei löydy!"); print DATA $FORM{body}; close(DATA); open(FILES,"<$siteroot$data/index.files"); @lines = ; close(FILES); open(FILES,">$siteroot$data/index.files"); foreach $line(@lines) { chomp $line; @file = split(/\|/,$line); if ($file[0] eq $FORM{tiedosto}) { print FILES "$file[0]|$FORM{title}|$file[2]|\n"; } else {print FILES "$line\n";} } close(FILES); &editPage; } sub editPage { &open_areas; open(FILES,"<$siteroot$data/index.files"); @lines = ; close(FILES); foreach $line(@lines) { @_ = split(/\|/,$line); if ($_[0] eq $FORM{tiedosto}) {$title = $_[1];} } print "Content-type: text/html\n\n"; print ""; print < Edit page:: ENDOFHTML print "\n"; print < Tiedosto tallennettu.
Odota, tiedostoa tallennetaan...
ENDOFHTML print "

Muokkaat tiedostoa: $FORM{alue}/$FORM{tiedosto}

"; print "
"; print "Title: "; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } sub viewPage { if ($FORM{alue} eq "") {$FORM{alue} = "etusivu";} &open_areas; &writeHeader; &writeValikko; &writeBody; &writeFooter; } sub writeBody { if ($type eq "html") { if ($FORM{tiedosto} eq "") {$FORM{tiedosto} = "index.data"} open(DATA,"$siteroot$data/$FORM{tiedosto}"); @lines = ; close(DATA); if ($lines[0] ne "") { print "
\n"; print @lines; print "
\n"; open(INDEX,"$siteroot$FORM{alue}/index.files"); @files = ; close(INDEX); if ($files[0] ne "") { print "
\n |"; foreach $file (@files) { @fileinfo = split(/\|/,$file); if ($fileinfo[2] != 0) { if ($fileinfo[0] ne "$FORM{tiedosto}") { print " $fileinfo[1] |"; } else { print " $fileinfo[1] |"; } } } print ""; } } else { print "

Sivut kesken..
















































\n\n\n\n\n"; } print " "; print "Muokkaa sivua | "; print "Lisää uusi alasivu | "; print "Listaa alueen sivut"; print " | Poistu"; print "\n"; } elsif ($type eq "cgi") { ##Cgi-ajo jne } else {print "Vituiks meni!"} } sub open_areas { open(AREAS,"$area_file") or error("Vikaa areafilessä!"); @areas = ; close(AREAS); foreach $line(@areas) { @_ = split(/\|/, $line); if ($_[0] eq $FORM{alue}) { $subtitle = $_[3]; $data= $_[1]; $type = $_[2]; } } } sub lue_parametrit { if ( ($ENV{'REQUEST_METHOD'} eq 'POST') || ($ENV{'REQUEST_METHOD'} eq 'post') ) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @cgiPairs = split(/\&/,$buffer); } elsif ($ENV{'QUERY_STRING'} ne "") { @cgiPairs = split(/\&/,$ENV{'QUERY_STRING'}); } else {@cgiPairs = @ARGV;} #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";} } @nvpairs=split(/; /, $ENV{'HTTP_COOKIE'}); foreach $pair (@nvpairs) { ($cookiename, $cookievalue) = split(/=/, $pair); $cookie{$cookiename} = $cookievalue; } } sub writeHeader { print "Content-type: text/html\n\n"; print ""; print ""; print "SUMA :: $subtitle"; 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 "
\n"; print "
    \n"; foreach $line(@areas) { @_ = split(/\|/, $line); ##Valittu nappula if ($_[0] eq $FORM{alue}) { print "
  • $_[3]
    • \n"; } else { ##Normaali nappula print "
  • "; print "$_[3]
    • \n"; } } print "
\n"; print "
\n"; 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 "
  • $fileinfo[1]
    • \n"; } else { print "
  • $fileinfo[1]
    • \n"; } } $i++; } } print "
\n"; print "
\n"; } } sub error { my($errmsg) = @_; print "Content-type: text/html\n\n"; print ""; print ""; print "Virhe!"; print "

VIRHE!

"; print "

$errmsg

\n"; print "toiminto: $FORM{toiminto}"; &writeFooter; exit; } sub writeFooter { print "
\"pixel\""; print <
mstahv ät utu.fi
EndOfHtml }