Suunnistuskoulussa tapahtuu:

Jutut:

#!/usr/bin/perl -- # WWW-julkaisuohjelmisto seura-tiedottamiseen # # # # ######################################## ## ASETUKSIA ## ######################################## #$cgipath = "/Library/WebServer/CGI-Executables/matu/kalenteri.pl"; #$datapath = "/Users/matu/Sites/data"; #$pwfile = "/Users/matu/Sites/data/pswd.cgi"; #$cgiurl = "http://10.0.0.2/cgi-bin/matu/kalenteri.pl"; #$headerfile = "/Library/WebServer/CGI-Executables/matu/header.html"; #$footerfile = "/Library/WebServer/CGI-Executables/matu/footer.html"; #$countfile = "/Users/matu/Sites/data/nro"; $datapath = "/home/paimionrasti/cgi-bin/data"; $readerurl = "http://www.paimionrasti.fi/cgi-bin/reader.pl"; open(DB,"<$datapath/nykyiset.db"); @db = ; close(DB); foreach $row (@db) { splitData($row); if ($data{visiblity} =~ /suunnistuskoulutiedotukset/) { push @tapahtumat, "$data{nro}|$data{'subject'}"; } } print "Content-type: text/html\n\n"; foreach (@tapahtumat) { split(/\|/); print "
$_[1]
\n"; } ###Hajottaa datarivin data hashiin sub splitData { my($rivi)=@_; my(@jou); @jou = split(/\|/,$rivi); $data{'nro'} = $jou[0]; $data{'c_date'} = $jou[1]; $data{'m_date'} = $jou[2]; $data{'owner'} = $jou[3]; $data{'modifier'} = $jou[4]; $data{'creator'} = $jou[5]; $data{'h_date'} = $jou[6]; $data{'subject'} = $jou[7]; $data{'state'} = $jou[8]; $data{'visiblity'} = $jou[9]; $data{'location'} = $jou[10]; $data{'happening'} = $jou[11]; $data{'referate'} = $jou[12]; }

Arkistoidut



Tietoa

Nuorisovaliokunta

Pelisäännöt

Kisailmoittautumiset Irmaan

Nuori Suomi

Suunnistuskoulu

SUUNNISTUSKOULU KÄYNNISTYY KEVÄÄLLÄ 2012!

Valokuva

Seuraava Paimion Rastin suunnistuskoulu järjestetään keväällä 2012, toukokuun alussa. Suunnistuskoulu on tarkoitettu kaikenikäisille suunnistuksesta kiinnostuneille, ja koostuu neljästä intensiivisestä opetuskerrasta, missä käydään läpi lajin perusteet. Ensimmäinen opetustilaisuus pidetään maanantaina 7.5. Rastituvalla (Kevolan koulu). Seuraavat tilaisuudet ovat 10.5, 14.5 ja 17.5. Lisäksi nuorten suunnistuskoululaisten päätöstapahtuma Särkänniemisuunnistus 19.5.

Suunnistuskoulun maksu sisältää nuorille opetuksen lisäksi vakuutuksen ja osallistumismaksun Särkänniemisuunnistukseen. Aikuisille osallistumismaksuun kuuluu myös Peimarin Rastit-lippuvihon. Lisätietoja hinnoista ja ilmoittautumisista löydät täältä pian.

Paimion Rastin nuorten ohjelma 2012 löydät täältä!

Miksi suunnistukoulu?

OHJELMA

#!/usr/bin/perl -- # WWW-julkaisuohjelmisto seura-tiedottamiseen # # # # ######################################## ## ASETUKSIA ## ######################################## #$cgipath = "/Library/WebServer/CGI-Executables/matu/kalenteri.pl"; #$datapath = "/Users/matu/Sites/data"; #$pwfile = "/Users/matu/Sites/data/pswd.cgi"; #$cgiurl = "http://10.0.0.2/cgi-bin/matu/kalenteri.pl"; #$headerfile = "/Library/WebServer/CGI-Executables/matu/header.html"; #$footerfile = "/Library/WebServer/CGI-Executables/matu/footer.html"; #$countfile = "/Users/matu/Sites/data/nro"; $datapath = "/home/paimionrasti/cgi-bin/data"; $readerurl = "http://www.paimionrasti.fi/cgi-bin/reader.pl"; @weekDays = ('su','ma','ti','ke','to','pe','la'); use lib qw(/home/paimionrasti/cgi-bin/modules); &lue_parametrit; open(DB,"<$datapath/nykyiset.db"); @db = ; close(DB); &GetDate; if ($FORM{pvmlkm} eq "") {$FORM{pvmlkm} = 200;} if ($FORM{alkupvmlkm} eq "") {$FORM{alkupvmlkm} = 0;} $date =~ /(^....)(..)(..)(..)(..)/; @loppupvm = ($1, $2, $3); $pvmlkm =$FORM{pvmlkm}+$FORM{alkupvmlkm}; $loppupvm[2] = $loppupvm[2]*1; $loppupvm[1] = $loppupvm[1]*1; while ($pvmlkm > 0) { $loppupvm[2]++; if(($loppupvm[0] % 4 == 0) && $loppupvm[1] == 2 && $loppupvm[2] == 30) {$loppupvm[2]=1;$loppupvm[1]=3;} elsif($loppupvm[1] == 2 && $loppupvm[2] == 29) {$loppupvm[2]=1;$loppupvm[1]=3;} elsif(($loppupvm[1] == 1 || $loppupvm[1] == 3 ||$loppupvm[1] == 5 ||$loppupvm[1] == 7 ||$loppupvm[1] == 8 ||$loppupvm[1] == 10|| $loppupvm[1] == 12 ) && $loppupvm[2] == 32) {$loppupvm[2]=1;$loppupvm[1]++;} elsif(($loppupvm[1] == 4 || $loppupvm[1] == 6 ||$loppupvm[1] == 9 ||$loppupvm[1] == 11) && $loppupvm[2] == 31) {$loppupvm[2]=1;$loppupvm[1]++;} if($loppupvm[1] == 13) {$loppupvm[1]="01"; $loppupvm[0]++;} $pvmlkm--; } $kk = $loppupvm[1];if($kk < 10) { $kk = "0$kk" } $pvm = $loppupvm[2];if($pvm < 10) { $pvm = "0$pvm" } $hhmm = "0000"; $loppu = "$loppupvm[0]$kk$pvm$hhmm"; $date =~ /(^....)(..)(..)(..)(..)/; @alkupvm = ($1, $2, $3, $weekday); $pvmlkm = $FORM{alkupvmlkm}; $alkupvm[2] = $alkupvm[2]*1; $alkupvm[1] = $alkupvm[1]*1; while ($pvmlkm > 0) { $alkupvm[2]++; $alkupvm[3]++; if (!($alkupvm[0] % 4) && $alkupvm[1] == 2 && $alkupvm[2] == 30) {$alkupvm[2]=1;$alkupvm[1]=3;} elsif ($alkupvm[1] == 2 && $alkupvm[2] == 29) {$alkupvm[2]=1;$alkupvm[1]=3;} elsif (($alkupvm[1] == 1 || $alkupvm[1] == 3 ||$alkupvm[1] == 5 ||$alkupvm[1] == 7 ||$alkupvm[1] == 8 ||$alkupvm[1] == 10|| $alkupvm[1] == 12 ) && $alkupvm[2] == 32) {$alkupvm[2]=1;$alkupvm[1]++;} elsif (($alkupvm[1] == 4 || $alkupvm[1] == 6 ||$alkupvm[1] == 9 ||$alkupvm[1] == 11) && $alkupvm[2] == 31) {$alkupvm[2]=1;$alkupvm[1]++;} if ($alkupvm[1] == 13) {$alkupvm[1]=1; $alkupvm[0]++;} $pvmlkm--; } $weekDay = $alkupvm[3]; $kk = $alkupvm[1];if($kk < 10) { $kk = "0$kk" } $pvm = $alkupvm[2];if($pvm < 10) { $pvm = "0$pvm" } $zeros = "0000"; $alku = "$alkupvm[0]$kk$pvm$zeros"; foreach $row (@db) { splitData($row); if ($data{visiblity} =~ /suunnistuskoulukalenteri/) { @dates = split (/\&/,$data{h_date}); foreach (@dates) { ##AJAN EHDOT## if (($_ < $loppu) && ($_ > $alku || $_ == $alku)) { ##END AJAN EHDOT## push @kalenteri, "$_|$data{nro}|$data{'subject'}|$data{'location'}|$data{'happening'}|$data{'referate'}"; } } } } use Sort::Fields; @sorted = fieldsort '|', [0,1], @kalenteri; print "Content-type: text/html\n\n"; $date =~ /(^........)/; $sDate = "$1"; print "\n"; print ""; $laskuri = 1; foreach (@sorted) { split(/\|/); print "\n"; $_[0] =~ /(^........)/; if ($sDate ne "$1") { $nextDay = $1; $sDate =~ /(^....)(..)(..)/; @runningDate = ($1, $2, $3, $weekDay); $nextDay =~ /(^....)(..)(..)/; @nextDay = ($1, $2, $3); $runningDate[2] = $runningDate[2]*1; $runningDate[1] = $runningDate[1]*1; while ($runningDate[0] != $nextDay[0] || $runningDate[1] != $nextDay[1] || $runningDate[2] != $nextDay[2]) { $runningDate[2]++; $runningDate[3]++; if ($runningDate[1] == 2 && $runningDate[2] == 30) {$runningDate[2]=1;$runningDate[1]=3;} elsif (($runningDate[0] % 4 != 0) && $runningDate[1] == 2 && $runningDate[2] == 29) {$runningDate[2]=1;$runningDate[1]=3;} elsif (($runningDate[1] == 1 || $runningDate[1] == 3 ||$runningDate[1] == 5 ||$runningDate[1] == 7 ||$runningDate[1] == 8 ||$runningDate[1] == 10|| $runningDate[1] == 12 ) && $runningDate[2] == 32) {$runningDate[2]=1;$runningDate[1]++;} elsif (($runningDate[1] == 4 || $runningDate[1] == 6 ||$runningDate[1] == 9 ||$runningDate[1] == 11) && $runningDate[2] == 31) {$runningDate[2]=1;$runningDate[1]++;} if ($runningDate[1] == 13) {$runningDate[1]=1; $runningDate[0]++;} if ($runningDate[3] > 6) {$runningDate[3] = 0} } $weekDay = $runningDate[3]; $kk = $runningDate[1];if($kk < 10) { $kk = "0$kk" } $pvm = $runningDate[2];if($pvm < 10) { $pvm = "0$pvm" } $sDate = "$runningDate[0]$kk$pvm"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $laskuri++; } print "
PvmTapahtumaPaikkaOpastus/Tiedot/Linkit
$weekDays[$weekDay]
"; writeDates($_[0]); print "		$_[4]$_[3]$_[5]"; open(BODY, "<$datapath/$_[1].body"); $line = ; close(BODY); if ($line ne "") {print " Lue lisää...";} writeLinks($_[1]); print "
\n"; sub GetDate { @temp = localtime(time); $year = $temp[5] + 1900; $kk = ++$temp[4];if($kk < 10) { $kk = "0$kk" } $pvm = $temp[3];if($pvm < 10) { $pvm = "0$pvm" } if($temp[1] < 10) { $temp[1] = "0$temp[1]" } if($temp[2] < 10) { $temp[2] = "0$temp[2]" } $date = "$year$kk$pvm$temp[2]$temp[1]"; $weekday = $temp[6] } sub writeDates { my(@times) = @_; if ($times[0] eq "") {@times = split(/\&/,$data{h_date});} foreach (@times) { /(^....)(..)(..)(..)(..)/; @time = ($1, $2, $3, $4, $5); print "$time[2].$time[1]"; if ($time[3] > 0) {print "
klo $time[3]"; if ($time[4] > 0) {print ":$time[4]";}} print "\n"; } } 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; #old $FORM{"$var"} = "$val"; if ($FORM{$var} eq "") {$FORM{$var} = "$val";} else {$FORM{$var} = "$FORM{$var} $val";} } } ###Hajottaa datarivin data hashiin sub splitData { my($rivi)=@_; my(@jou); @jou = split(/\|/,$rivi); $data{'nro'} = $jou[0]; $data{'c_date'} = $jou[1]; $data{'m_date'} = $jou[2]; $data{'owner'} = $jou[3]; $data{'modifier'} = $jou[4]; $data{'creator'} = $jou[5]; $data{'h_date'} = $jou[6]; $data{'subject'} = $jou[7]; $data{'state'} = $jou[8]; $data{'visiblity'} = $jou[9]; $data{'location'} = $jou[10]; $data{'happening'} = $jou[11]; $data{'referate'} = $jou[12]; } sub writeLinks { my($nro) = @_; open(LINKS,"<$datapath/$nro.links"); @linkLines = ; close LINKS; print "\n"; foreach (@linkLines) { @link = split (/\|/,$_); print "
  • $link[1]\n"; } print "\n"; }
    Tule mukaan toimintaan!

    Jos on kysyttävää, ota yhteyttä Jonathaniin osoitteella jonathan.frojdo(ät)abo.fi tai soittamalla 0503226266

    [an error occurred while processing the directive]