Ikiliikkujissa tapahtuu

Juttuja

#!/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} =~ /ikitiedotukset/) { 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 jutut

Tietoa

Nuorisovaliokunta

Pelisäännöt

Kisailmoittautumiset Verkkovihkoon

Nuori Suomi

Ikiliikkujat


Sprinttiä Rastituvalla kevolassa

Ikiliikkujissa…

Viikko-ohjelma kesä 2012


Muista myös: Ikiliikkujien leiri 20-22.5 ja Leimaus-leiri 7-10.6

Tiedustelut:

Hanneli Salo
hanneli.salo(ät)evl.fi.
040 846 9655

Ajankohtaista:

  • Seuraa alla olevaa kalenteria, jotta pysyt ajantasalla. Nähdään harjoituksissa!

    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} =~ /ikikalenteri/) { @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"; }
    [an error occurred while processing the directive]