Resulttia Solutions -junnubilisliiga | Suomi [Tiedotteet, 8-pallon säännöt ja ladattavat tiedostot]

	Suomen Biljardiliitto ry. » Resulttia Solutions -junnubilisliiga » Suomi
Alle 18-vuotiaiden poikien ja tyttöjen kolmihenkisillä joukkueilla pelattava biljardisarja, jota on mahdollista pelata kaikissa Suomen kunnissa!

#!/usr/bin/perl #################################################################################### # # TUOTENIMI: Sport LeagueResult System / Resulttia Solutions # VERSIO: 1.0.20150301 # PÄIVITETTY: 01.03.2015 # # VAATIMUKSET: Perl-tuki # #################################################################################### # # Copyright (c) 2001-2015 Resulttia Solutions # Kaikki oikeudet pidätetään. # # http://www.resulttia.fi # info@resulttia.fi # #################################################################################### # # Ohjelman käyttöoikeuden omistaa: # Resulttia Solutions # # Internet-osoite, jota käyttöoikeus koskee: # http://www.junnubilisliiga.fi # #################################################################################### # # Ohjelman tai sen yksittäisen osan myynti, kopiointi ja jakelu on kiellettyä. # Ohjelmaa ei saa levittää tai kopioida ulkopuolisille. Erilaisten Internet- ja # BBS-palveluiden sekä ohjelmapakettien ja -levyjen kautta tapahtuva jakelu on myös # kiellettyä. Myös ohjelmakoodin myynti, kopiointi ja levitys on kiellettyä. # # Ohjelman tekijä ei vastaa mistään ohjelman asennuksesta, käytöstä tai poistosta # mahdollisesti aiheutuvista vahingoista, ellei kirjallisesti ole toisin sovittu. # Ohjelman asennus, poisto ja käyttö ovat siis täysin sen käyttöoikeuden haltijan # vastuulla. # # Ohjelmaa käytettäessä sen ohjelmakoodiin ja HTML- yms. tiedostoihin mahdollisesti # sisältyvät ohjelman tekijään tai hänen Internet-sivuihinsa viittaavat kuvat ja # hyperlinkit on säilytettävä. # #################################################################################### $kuntahakemisto = $ENV{REQUEST_URI}; @KUNNAT = (); @MAAKUNNAT = (); @HAKEMISTOT = (); @bannerit = (); my @tiedostot = ('*.gif', '*.jpg', '*.png'); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa $maakunta = ""; $maakuntatiedosto = "maakunnat.dat"; $maakuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $maakuntatiedosto; $paikkakunta = ""; $kuntatiedosto = "kunnat.dat"; $kuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $kuntatiedosto; # selvitetään nykyinen pvm ja muokataan se haluttuun muotoon my ($turha, $turha, $turha, $pva_nyt, $kk_nyt, $vuosi_nyt, $turha, $turha, $turha) = localtime(time); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa if ($pva_nyt < 10) { $pva_nyt = 0 . $pva_nyt; } $kk_nyt += 1; # lisätään kuukausia yhdellä, koska ne alkavat nollasta if ($kk_nyt < 10) { $kk_nyt = 0 . $kk_nyt; } $vuosi_nyt += 1900; # lisätään vuosiin 1900, koska ne alkavat sadasta my $pvm_tanaan = "$vuosi_nyt$kk_nyt$pva_nyt"; # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa # luetaan kunnat tietokannasta if (-e "$kuntatiedosto") { open(TIEDOSTO,"$kuntatiedosto"); @KUNNAT = ; close(TIEDOSTO); } else { die; } # käydään tietokannan rivit läpi yksitellen foreach $kunta (@KUNNAT) { ($kuntanimi, $maakuntanumero) = split(/\t/, $kunta); $kuntanimi_muokattuna = lc $kuntanimi; $kuntanimi_muokattuna =~ s/ //g; $kuntanimi_muokattuna =~ s/-//g; $kuntanimi_muokattuna =~ s/å/a/g; $kuntanimi_muokattuna =~ s/Å/a/g; $kuntanimi_muokattuna =~ s/ä/a/g; $kuntanimi_muokattuna =~ s/Ä/a/g; $kuntanimi_muokattuna =~ s/ö/o/g; $kuntanimi_muokattuna =~ s/Ö/o/g; $maakuntanumero =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t # jos kunta on sama kuin selaimen osoiterivillä oleva tai lomakkeella valittu, otetaan sen tiedot muistiin if ($kuntahakemisto =~ /\/$kuntanimi_muokattuna\// || $FORM{'paikkakunta'} eq $kuntanimi_muokattuna) { $paikkakunta = $kuntanimi_muokattuna; $maakunta = $maakuntanumero; last; } } # luetaan maakunnat tietokannasta if ($paikkakunta ne "" && $maakunta ne "") { if (-e "$maakuntatiedosto") { open(TIEDOSTO,"$maakuntatiedosto"); @MAAKUNNAT = ; close(TIEDOSTO); } else { die; } $maakuntarivi = $MAAKUNNAT[$maakunta - 1]; ($maakuntanumero, $maakuntanimi) = split(/\t/, $maakuntarivi); $maakuntanimi =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $maakuntanimi_muokattuna = lc $maakuntanimi; $maakuntanimi_muokattuna =~ s/ //g; $maakuntanimi_muokattuna =~ s/-//g; $maakuntanimi_muokattuna =~ s/å/a/g; $maakuntanimi_muokattuna =~ s/Å/a/g; $maakuntanimi_muokattuna =~ s/ä/a/g; $maakuntanimi_muokattuna =~ s/Ä/a/g; $maakuntanimi_muokattuna =~ s/ö/o/g; $maakuntanimi_muokattuna =~ s/Ö/o/g; $maakunta = $maakuntanimi_muokattuna; push @HAKEMISTOT, "suomi"; push @HAKEMISTOT, "suomi/$maakunta"; push @HAKEMISTOT, "suomi/$maakunta/$paikkakunta"; } else { push @HAKEMISTOT, "suomi"; } # käydään hakemistot läpi yksitellen ja etsitään niissä olevat bannerit foreach $hakemisto (@HAKEMISTOT) { @bannerit = (); $dir = "/var/www/customers/junnubilisliigafi/public_html/ylabannerit/" . $hakemisto . "\/"; chdir ($dir); # käydään tiedostotyypit läpi yksitellen foreach $tiedosto (@tiedostot) { $tiedostolista = `ls $tiedosto`; @tiedostolista = split(/\s+/, $tiedostolista); foreach $tiedostonimi (@tiedostolista) { # jos bannerin tekstitiedosto löytyy, avataan ja luetaan se if (-e "/var/www/customers/junnubilisliigafi/public_html/ylabannerit/$tiedostonimi\.txt") { open(TIEDOSTO, "/var/www/customers/junnubilisliigafi/public_html/ylabannerit/$tiedostonimi\.txt"); @banneri = ; close(TIEDOSTO); $banneri[0] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $selite = $banneri[0]; $banneri[1] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $linkki = $banneri[1]; $banneri[2] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $alt = $banneri[2]; $banneri[3] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $leveys = $banneri[3]; $banneri[4] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $korkeus = $banneri[4]; $banneri[5] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $viimeinen_nayttopvm = $banneri[5]; if ($viimeinen_nayttopvm >= $pvm_tanaan) { if ($linkki ne "") { push @bannerit, " $\"$alt\"$ "; } else { push @bannerit, " $\"$alt\"$ "; } } } } } $bannerilkm = @bannerit; if ($bannerilkm > 0) { last; } } # arvotaan ja tulostetaan arvottu banneri HTML-sivulle $banneri = $bannerit[rand @bannerit]; if ($kuntahakemisto !~ /\.cgi/) { print "Content-type: text/html\n\n"; } if ($banneri ne "") { print "

$banneri

"; }

Junnubilisliigan tiedotteet vuosilta 2010-2025

Suomen kuntien viimeisimmät Resulttia Solutions -junnubilisliigan liigatiedotteet löytyvät tältä sivulta. Sivulla ovat myös kaikki koko Suomen junnubilisliigatoimintaa ja Internet-sivustoa koskevat tiedotteet, jotka on julkaistu vuosina 2010-2025. Tietyn kunnan omiin tiedotteisiin ja kuntakohtaisiin tiedostoihin pääset sivun oikean laidan pudotusvalikolla. Jos etsit 8-pallon pelisääntöjä, katso ladattavat tiedostot.

Suomen kuntien viimeisimmät liigatiedotteet

#!/usr/bin/perl #################################################################################### # # TUOTENIMI: Sport LeagueResult System / Resulttia Solutions # VERSIO: 1.0.20150301 # PÄIVITETTY: 01.03.2015 # # VAATIMUKSET: Perl-tuki # #################################################################################### # # Copyright (c) 2001-2015 Resulttia Solutions # Kaikki oikeudet pidätetään. # # http://www.resulttia.fi # info@resulttia.fi # #################################################################################### # # Ohjelman käyttöoikeuden omistaa: # Resulttia Solutions # # Internet-osoite, jota käyttöoikeus koskee: # http://www.junnubilisliiga.fi # #################################################################################### # # Ohjelman tai sen yksittäisen osan myynti, kopiointi ja jakelu on kiellettyä. # Ohjelmaa ei saa levittää tai kopioida ulkopuolisille. Erilaisten Internet- ja # BBS-palveluiden sekä ohjelmapakettien ja -levyjen kautta tapahtuva jakelu on myös # kiellettyä. Myös ohjelmakoodin myynti, kopiointi ja levitys on kiellettyä. # # Ohjelman tekijä ei vastaa mistään ohjelman asennuksesta, käytöstä tai poistosta # mahdollisesti aiheutuvista vahingoista, ellei kirjallisesti ole toisin sovittu. # Ohjelman asennus, poisto ja käyttö ovat siis täysin sen käyttöoikeuden haltijan # vastuulla. # # Ohjelmaa käytettäessä sen ohjelmakoodiin ja HTML- yms. tiedostoihin mahdollisesti # sisältyvät ohjelman tekijään tai hänen Internet-sivuihinsa viittaavat kuvat ja # hyperlinkit on säilytettävä. # #################################################################################### $url = "http://www.junnubilisliiga.fi"; $parametrit = $ENV{QUERY_STRING}; $tarkenne = ""; @HAKEMISTOT = (); @uusimmat = (); # esim: $paikkakunta = "paikkakunta=tampere", $lkm = "lkm=3" ($paikkakunta, $lkm) = split(/\&/, $parametrit); # esim: $temppi = "paikkakunta", $paikkakunta = "tampere" ($temppi, $paikkakunta) = split(/=/, $paikkakunta); # esim: $temppi = "lkm", $lkm = "3" ($temppi, $lkm) = split(/=/, $lkm); $lkm = int($lkm); # selvitetään nykyinen pvm ja muokataan se haluttuun muotoon my ($turha, $turha, $turha, $pva_nyt, $kk_nyt, $vuosi_nyt, $turha, $turha, $turha) = localtime(time); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa if ($pva_nyt < 10) { $pva_nyt = 0 . $pva_nyt; } $kk_nyt += 1; # lisätään kuukausia yhdellä, koska ne alkavat nollasta if ($kk_nyt < 10) { $kk_nyt = 0 . $kk_nyt; } $vuosi_nyt += 1900; # lisätään vuosiin 1900, koska ne alkavat sadasta my $pvm_tanaan = "$pva_nyt.$kk_nyt.$vuosi_nyt"; # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa # käydään hakemistot läpi yksitellen ja etsitään niissä olevat uusimmat tiedotteet (ts. aihetiedostot, ei vastaustiedostoja) $paahakemisto = "/var/www/customers/junnubilisliigafi/public_html/forum/kategoriat"; if ($paikkakunta eq "") { opendir(HAKEMISTO, $paahakemisto); @HAKEMISTOT = grep {-d "$paahakemisto/$_" && ! /^\.{1,2}$/ && /([0-9]{4})$/ && ! /academytiedotteet/ && ! /^wwwtiedotteet$/} readdir(HAKEMISTO); closedir(HAKEMISTO); } else { opendir(HAKEMISTO, $paahakemisto); @HAKEMISTOT = grep {-d "$paahakemisto/$_" && ! /^\.{1,2}$/ && /^$paikkakunta([0-9]{4})$/ && ! /academytiedotteet/ && ! /^wwwtiedotteet$/} readdir(HAKEMISTO); closedir(HAKEMISTO); } push @HAKEMISTOT, "wwwtiedotteet"; foreach $hakemisto (@HAKEMISTOT) { $dir = "/var/www/customers/junnubilisliigafi/public_html/forum/kategoriat/" . $hakemisto . "\/"; chdir ($dir); @tiedostolista = `ls *aihe.txt`; chomp @tiedostolista; $i = 0; foreach $tiedostonimi (reverse sort @tiedostolista) { # jos kyseessä ei ole poistettu eli tyhjennetty aihetiedosto, jatketaan tiedoston käsittelyä if (-s "$tiedostonimi" > 0) { $i++; if ($i <= $lkm) { ($aihenumero, $tarkenne) = split(/\_aihe/, $tiedostonimi); open(TIEDOSTO, "$tiedostonimi"); @tiedote = ; close(TIEDOSTO); chomp $tiedote[0]; $aihe = $tiedote[0]; chomp $tiedote[3]; $aika = $tiedote[3]; push @uusimmat, "$aika\t$aihe"; } else { last; } } } } # tulostetaan uusimmat tiedotteet taulukkona HTML-sivulle print "Content-type: text/html\n\n"; print "\t\t\t\t\t\t\n"; $tulostetut = 0; foreach $tiedote (reverse sort @uusimmat) { ($aika, $tuloste) = split(/\t/, $tiedote); $vuosi = substr($aika, 0, 4); $kk = substr($aika, 4, 2); $pva = substr($aika, 6, 2); $tunnit = substr($aika, 8, 2); $min = substr($aika, 10, 2); $viimeisin_aika = "$pva\.$kk\.$vuosi $tunnit:$min"; if ($viimeisin_aika =~ /$pvm_tanaan/) { $viimeisin_aika = "klo $tunnit:$min"; } else { $viimeisin_aika = "$pva\.$kk\.$vuosi"; } $tulostetut++; if ($tulostetut > $lkm) { last; } print "\n"; print "\t\t\t\t\t\t \n"; print "\t\t\t\t\t\t \n"; print "\t\t\t\t\t\t \n"; print "\t\t\t\t\t\t \n"; } if ($tulostetut == 0) { print "\t\t\t\t\t\t \n"; print "\t\t\t\t\t\t \n"; print "\t\t\t\t\t\t \n"; } print "\t\t\t\t\t\t

$viimeisin_aika	$tuloste
Ei tiedotteita toistaiseksi

Katso myös

Ladattavat tiedostot ja muut dokumentit

Kuntien liigatiedotteet

#!/usr/bin/perl #################################################################################### # # TUOTENIMI: Sport LeagueResult System / Resulttia Solutions # VERSIO: 1.0.20150301 # PÄIVITETTY: 01.03.2015 # # VAATIMUKSET: Perl-tuki # #################################################################################### # # Copyright (c) 2001-2015 Resulttia Solutions # Kaikki oikeudet pidätetään. # # http://www.resulttia.fi # info@resulttia.fi # #################################################################################### # # Ohjelman käyttöoikeuden omistaa: # Resulttia Solutions # # Internet-osoite, jota käyttöoikeus koskee: # http://www.junnubilisliiga.fi # #################################################################################### # # Ohjelman tai sen yksittäisen osan myynti, kopiointi ja jakelu on kiellettyä. # Ohjelmaa ei saa levittää tai kopioida ulkopuolisille. Erilaisten Internet- ja # BBS-palveluiden sekä ohjelmapakettien ja -levyjen kautta tapahtuva jakelu on myös # kiellettyä. Myös ohjelmakoodin myynti, kopiointi ja levitys on kiellettyä. # # Ohjelman tekijä ei vastaa mistään ohjelman asennuksesta, käytöstä tai poistosta # mahdollisesti aiheutuvista vahingoista, ellei kirjallisesti ole toisin sovittu. # Ohjelman asennus, poisto ja käyttö ovat siis täysin sen käyttöoikeuden haltijan # vastuulla. # # Ohjelmaa käytettäessä sen ohjelmakoodiin ja HTML- yms. tiedostoihin mahdollisesti # sisältyvät ohjelman tekijään tai hänen Internet-sivuihinsa viittaavat kuvat ja # hyperlinkit on säilytettävä. # #################################################################################### $kuntahakemisto = $ENV{REQUEST_URI}; @KUNNAT = (); @MAAKUNNAT = (); @HAKEMISTOT = (); @bannerit = (); my @tiedostot = ('*.gif', '*.jpg', '*.png'); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa $maakunta = ""; $maakuntatiedosto = "maakunnat.dat"; $maakuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $maakuntatiedosto; $paikkakunta = ""; $kuntatiedosto = "kunnat.dat"; $kuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $kuntatiedosto; # selvitetään nykyinen pvm ja muokataan se haluttuun muotoon my ($turha, $turha, $turha, $pva_nyt, $kk_nyt, $vuosi_nyt, $turha, $turha, $turha) = localtime(time); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa if ($pva_nyt < 10) { $pva_nyt = 0 . $pva_nyt; } $kk_nyt += 1; # lisätään kuukausia yhdellä, koska ne alkavat nollasta if ($kk_nyt < 10) { $kk_nyt = 0 . $kk_nyt; } $vuosi_nyt += 1900; # lisätään vuosiin 1900, koska ne alkavat sadasta my $pvm_tanaan = "$vuosi_nyt$kk_nyt$pva_nyt"; # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa # luetaan kunnat tietokannasta if (-e "$kuntatiedosto") { open(TIEDOSTO,"$kuntatiedosto"); @KUNNAT = ; close(TIEDOSTO); } else { die; } # käydään tietokannan rivit läpi yksitellen foreach $kunta (@KUNNAT) { ($kuntanimi, $maakuntanumero) = split(/\t/, $kunta); $kuntanimi_muokattuna = lc $kuntanimi; $kuntanimi_muokattuna =~ s/ //g; $kuntanimi_muokattuna =~ s/-//g; $kuntanimi_muokattuna =~ s/å/a/g; $kuntanimi_muokattuna =~ s/Å/a/g; $kuntanimi_muokattuna =~ s/ä/a/g; $kuntanimi_muokattuna =~ s/Ä/a/g; $kuntanimi_muokattuna =~ s/ö/o/g; $kuntanimi_muokattuna =~ s/Ö/o/g; $maakuntanumero =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t # jos kunta on sama kuin selaimen osoiterivillä oleva tai lomakkeella valittu, otetaan sen tiedot muistiin if ($kuntahakemisto =~ /\/$kuntanimi_muokattuna\// || $FORM{'paikkakunta'} eq $kuntanimi_muokattuna) { $paikkakunta = $kuntanimi_muokattuna; $maakunta = $maakuntanumero; last; } } # luetaan maakunnat tietokannasta if ($paikkakunta ne "" && $maakunta ne "") { if (-e "$maakuntatiedosto") { open(TIEDOSTO,"$maakuntatiedosto"); @MAAKUNNAT = ; close(TIEDOSTO); } else { die; } $maakuntarivi = $MAAKUNNAT[$maakunta - 1]; ($maakuntanumero, $maakuntanimi) = split(/\t/, $maakuntarivi); $maakuntanimi =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $maakuntanimi_muokattuna = lc $maakuntanimi; $maakuntanimi_muokattuna =~ s/ //g; $maakuntanimi_muokattuna =~ s/-//g; $maakuntanimi_muokattuna =~ s/å/a/g; $maakuntanimi_muokattuna =~ s/Å/a/g; $maakuntanimi_muokattuna =~ s/ä/a/g; $maakuntanimi_muokattuna =~ s/Ä/a/g; $maakuntanimi_muokattuna =~ s/ö/o/g; $maakuntanimi_muokattuna =~ s/Ö/o/g; $maakunta = $maakuntanimi_muokattuna; push @HAKEMISTOT, "suomi"; push @HAKEMISTOT, "suomi/$maakunta"; push @HAKEMISTOT, "suomi/$maakunta/$paikkakunta"; } else { push @HAKEMISTOT, "suomi"; } # käydään hakemistot läpi yksitellen ja etsitään niissä olevat bannerit foreach $hakemisto (@HAKEMISTOT) { @bannerit = (); $dir = "/var/www/customers/junnubilisliigafi/public_html/alabannerit/" . $hakemisto . "\/"; chdir ($dir); # käydään tiedostotyypit läpi yksitellen foreach $tiedosto (@tiedostot) { $tiedostolista = `ls $tiedosto`; @tiedostolista = split(/\s+/, $tiedostolista); foreach $tiedostonimi (@tiedostolista) { # jos bannerin tekstitiedosto löytyy, avataan ja luetaan se if (-e "/var/www/customers/junnubilisliigafi/public_html/alabannerit/$tiedostonimi\.txt") { open(TIEDOSTO, "/var/www/customers/junnubilisliigafi/public_html/alabannerit/$tiedostonimi\.txt"); @banneri = ; close(TIEDOSTO); $banneri[0] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $selite = $banneri[0]; $banneri[1] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $linkki = $banneri[1]; $banneri[2] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $alt = $banneri[2]; $banneri[3] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $leveys = $banneri[3]; $banneri[4] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $korkeus = $banneri[4]; $banneri[5] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $viimeinen_nayttopvm = $banneri[5]; if ($viimeinen_nayttopvm >= $pvm_tanaan) { if ($linkki ne "") { push @bannerit, " $\"$alt\"$ "; } else { push @bannerit, " $\"$alt\"$ "; } } } } } $bannerilkm = @bannerit; if ($bannerilkm > 0) { last; } } # arvotaan ja tulostetaan arvottu banneri HTML-sivulle $banneri = $bannerit[rand @bannerit]; if ($kuntahakemisto !~ /\.cgi/) { print "Content-type: text/html\n\n"; } if ($banneri ne "") { print "

$banneri

"; }

#!/usr/bin/perl #################################################################################### # # TUOTENIMI: Sport LeagueResult System / Resulttia Solutions # VERSIO: 1.0.20150301 # PÄIVITETTY: 01.03.2015 # # VAATIMUKSET: Perl-tuki # #################################################################################### # # Copyright (c) 2001-2015 Resulttia Solutions # Kaikki oikeudet pidätetään. # # http://www.resulttia.fi # info@resulttia.fi # #################################################################################### # # Ohjelman käyttöoikeuden omistaa: # Resulttia Solutions # # Internet-osoite, jota käyttöoikeus koskee: # http://www.junnubilisliiga.fi # #################################################################################### # # Ohjelman tai sen yksittäisen osan myynti, kopiointi ja jakelu on kiellettyä. # Ohjelmaa ei saa levittää tai kopioida ulkopuolisille. Erilaisten Internet- ja # BBS-palveluiden sekä ohjelmapakettien ja -levyjen kautta tapahtuva jakelu on myös # kiellettyä. Myös ohjelmakoodin myynti, kopiointi ja levitys on kiellettyä. # # Ohjelman tekijä ei vastaa mistään ohjelman asennuksesta, käytöstä tai poistosta # mahdollisesti aiheutuvista vahingoista, ellei kirjallisesti ole toisin sovittu. # Ohjelman asennus, poisto ja käyttö ovat siis täysin sen käyttöoikeuden haltijan # vastuulla. # # Ohjelmaa käytettäessä sen ohjelmakoodiin ja HTML- yms. tiedostoihin mahdollisesti # sisältyvät ohjelman tekijään tai hänen Internet-sivuihinsa viittaavat kuvat ja # hyperlinkit on säilytettävä. # #################################################################################### $kuntahakemisto = $ENV{REQUEST_URI}; @KUNNAT = (); @MAAKUNNAT = (); @HAKEMISTOT = (); @bannerit = (); @lisattavat_bannerit = (); my @tiedostot = ('*.gif', '*.jpg', '*.png'); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa $maakunta = ""; $maakuntatiedosto = "maakunnat.dat"; $maakuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $maakuntatiedosto; $paikkakunta = ""; $kuntatiedosto = "kunnat.dat"; $kuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $kuntatiedosto; # selvitetään nykyinen pvm ja muokataan se haluttuun muotoon my ($turha, $turha, $turha, $pva_nyt, $kk_nyt, $vuosi_nyt, $turha, $turha, $turha) = localtime(time); # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa if ($pva_nyt < 10) { $pva_nyt = 0 . $pva_nyt; } $kk_nyt += 1; # lisätään kuukausia yhdellä, koska ne alkavat nollasta if ($kk_nyt < 10) { $kk_nyt = 0 . $kk_nyt; } $vuosi_nyt += 1900; # lisätään vuosiin 1900, koska ne alkavat sadasta my $pvm_tanaan = "$vuosi_nyt$kk_nyt$pva_nyt"; # määritetään my:llä, jotta ei sotketa muiden HTML-sivulle ajettavien skriptien toimintaa # luetaan kunnat tietokannasta if (-e "$kuntatiedosto") { open(TIEDOSTO,"$kuntatiedosto"); @KUNNAT = ; close(TIEDOSTO); } else { die; } # käydään tietokannan rivit läpi yksitellen foreach $kunta (@KUNNAT) { ($kuntanimi, $maakuntanumero) = split(/\t/, $kunta); $kuntanimi_muokattuna = lc $kuntanimi; $kuntanimi_muokattuna =~ s/ //g; $kuntanimi_muokattuna =~ s/-//g; $kuntanimi_muokattuna =~ s/å/a/g; $kuntanimi_muokattuna =~ s/Å/a/g; $kuntanimi_muokattuna =~ s/ä/a/g; $kuntanimi_muokattuna =~ s/Ä/a/g; $kuntanimi_muokattuna =~ s/ö/o/g; $kuntanimi_muokattuna =~ s/Ö/o/g; $maakuntanumero =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t # jos kunta on sama kuin selaimen osoiterivillä oleva tai lomakkeella valittu, otetaan sen tiedot muistiin if ($kuntahakemisto =~ /\/$kuntanimi_muokattuna\// || $FORM{'paikkakunta'} eq $kuntanimi_muokattuna) { $paikkakunta = $kuntanimi_muokattuna; $maakunta = $maakuntanumero; last; } } # luetaan maakunnat tietokannasta if ($paikkakunta ne "" && $maakunta ne "") { if (-e "$maakuntatiedosto") { open(TIEDOSTO,"$maakuntatiedosto"); @MAAKUNNAT = ; close(TIEDOSTO); } else { die; } $maakuntarivi = $MAAKUNNAT[$maakunta - 1]; ($maakuntanumero, $maakuntanimi) = split(/\t/, $maakuntarivi); $maakuntanimi =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $maakuntanimi_muokattuna = lc $maakuntanimi; $maakuntanimi_muokattuna =~ s/ //g; $maakuntanimi_muokattuna =~ s/-//g; $maakuntanimi_muokattuna =~ s/å/a/g; $maakuntanimi_muokattuna =~ s/Å/a/g; $maakuntanimi_muokattuna =~ s/ä/a/g; $maakuntanimi_muokattuna =~ s/Ä/a/g; $maakuntanimi_muokattuna =~ s/ö/o/g; $maakuntanimi_muokattuna =~ s/Ö/o/g; $maakunta = $maakuntanimi_muokattuna; push @HAKEMISTOT, "suomi"; push @HAKEMISTOT, "suomi/$maakunta"; push @HAKEMISTOT, "suomi/$maakunta/$paikkakunta"; } else { push @HAKEMISTOT, "suomi"; } # käydään hakemistot läpi yksitellen ja etsitään niissä olevat bannerit foreach $hakemisto (@HAKEMISTOT) { @lisattavat_bannerit = (); $dir = "/var/www/customers/junnubilisliigafi/public_html/bannerit/" . $hakemisto . "\/"; chdir ($dir); # käydään tiedostotyypit läpi yksitellen foreach $tiedosto (@tiedostot) { $tiedostolista = `ls $tiedosto`; @tiedostolista = split(/\s+/, $tiedostolista); foreach $tiedostonimi (@tiedostolista) { # jos bannerin tekstitiedosto löytyy, avataan ja luetaan se if (-e "/var/www/customers/junnubilisliigafi/public_html/bannerit/$tiedostonimi\.txt") { open(TIEDOSTO, "/var/www/customers/junnubilisliigafi/public_html/bannerit/$tiedostonimi\.txt"); @banneri = ; close(TIEDOSTO); $banneri[0] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $selite = $banneri[0]; $banneri[1] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $linkki = $banneri[1]; $banneri[2] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $alt = $banneri[2]; $banneri[3] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $leveys = $banneri[3]; $banneri[4] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $korkeus = $banneri[4]; $banneri[5] =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t $viimeinen_nayttopvm = $banneri[5]; if ($viimeinen_nayttopvm >= $pvm_tanaan) { if ($linkki ne "") { push @lisattavat_bannerit, " $\"$alt\"$ "; } else { push @lisattavat_bannerit, " $\"$alt\"$ "; } } } } } # sekoitetaan lisättävät bannerit sattumanvaraisesti @lisattavat_bannerit = sort {rand() <=> rand()} @lisattavat_bannerit; # lisätään bannerit taulukon loppuun, jotta koko maan bannerit ovat ensin, maakunnan sitten ja vasta sen jälkeen yhden kunnan bannerit @bannerit = (@bannerit, @lisattavat_bannerit); } # tulostetaan bannerit HTML-sivulle if ($kuntahakemisto !~ /\.cgi/) { print "Content-type: text/html\n\n"; } foreach $banneri (@bannerit) { print "

$banneri

\n"; }

Suomen Biljardiliitto ry. » Resulttia Solutions -junnubilisliiga » Suomi

Alle 18-vuotiaiden poikien ja tyttöjen kolmihenkisillä joukkueilla pelattava biljardisarja, jota on mahdollista pelata kaikissa Suomen kunnissa!

"; push @TULOSTE, "

$kuntalkm kunnan ikioma junnubilisliiga

"; push @TULOSTE, "

$\"\"$ "; push @TULOSTE, "Suomen Biljardiliitto ry. (SBiL) on biljardin lajiliitto. Liitossa on satakunta jäsenseuraa, joissa on yhteensä tuhansia jäseniä. Jäsenseuroja on kattavasti ympäri Suomea.

"; push @TULOSTE, "

Suomen Biljardiliiton alainen junnubilisliiga on alle 18-vuotiaiden oma biljardisarja. Liigaan on mahdollista osallistua kolmihenkisellä joukkueella missä Suomen kunnassa hyvänsä. Ottelut pelataan oman kunnan alueella. Pelipaikaksi kelpaa mikä tahansa nuorille sopiva tila, jossa on biljardipöytä.

"; push @TULOSTE, "

Mukaantulo liigaan on vaivatonta. Tarvitaan vain biljardipöytä ja vähintään kolme pelaajaa. Aluksi joukkueet ilmoittautuvat liigaan ja maksavat osallistumismaksunsa. Ne saavat otteluohjelman, pelaavat ottelunsa ja ilmoittavat tuloksensa. Internet-sivuilta löytyvät 8-pallon säännöt, otteluohjelmat, tulokset ja tilastot. Kevään liigafinaaleissa palkitaan parhaat joukkueet ja pelaajat.

"; push @TULOSTE, "

Tervetuloa junnubilisliigaan!

"; push @TULOSTE, "

\n"; # käydään maakunnat läpi yksitellen foreach $maakunta (@MAAKUNNAT) { ($numero, $maakuntanimi) = split(/\t/, $maakunta); $maakuntanimi =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t if ($numero == 6 || $numero == 13) { push @TULOSTE, "\n

"; push @TULOSTE, "\n

$maakuntanimi"; } else { push @TULOSTE, "\n

$maakuntanimi"; } # järjestetään kunnat aakkosjärjestykseen ja käydään kunnat läpi yksitellen foreach $kunta (sort { lc $a cmp lc $b } @KUNNAT) { ($kuntanimi, $maakuntanumero) = split(/\t/, $kunta); $kuntanimi_muokattuna = lc $kuntanimi; $kuntanimi_muokattuna =~ s/ //g; $kuntanimi_muokattuna =~ s/-//g; $kuntanimi_muokattuna =~ s/å/a/g; $kuntanimi_muokattuna =~ s/Å/a/g; $kuntanimi_muokattuna =~ s/ä/a/g; $kuntanimi_muokattuna =~ s/Ä/a/g; $kuntanimi_muokattuna =~ s/ö/o/g; $kuntanimi_muokattuna =~ s/Ö/o/g; $maakuntanumero =~ s/\r\n//g; # poistetaan Excelin Chr$(11):t # jos kunnan maakunta on nyt läpikäytävä maakunta ja kunta on sama kuin selaimen osoiterivillä oleva tai lomakkeella valittu, merkitään kunta valituksi if ($maakuntanumero eq $numero && ($kuntahakemisto =~ /\/$kuntanimi_muokattuna\// || $FORM{'paikkakunta'} eq $kuntanimi_muokattuna || $parametrit =~ /kategoria=$kuntanimi_muokattuna($|\&|([0-9]{4}))/)) # parametrit voivat olla joko muotoa kategoria=iisalmi, kategoria=iisalmi&... tai kategoria=iisalmi2014 { push @TULOSTE, "
$kuntanimi"; } elsif ($maakuntanumero eq $numero) # jos kunnan maakunta on nyt läpikäytävä maakunta { push @TULOSTE, "
$kuntanimi"; } } push @TULOSTE, "

"; } # tulostetaan maakunnat ja niiden kunnat HTML-sivulle if ($kuntahakemisto !~ /\.cgi/) { print "Content-type: text/html\n\n"; } print "@TULOSTE";

Suomen Biljardiliitto ry. » Resulttia Solutions -junnubilisliiga » Suomi

Toteutus: Resulttia Solutions