Resulttia Solutions -junnubilisliiga | Suomi [Junnubilisliigan joukkueet Suomessa]

	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 joukkueet vuosilta 2010-2025

Oheisella lomakkeella pääset selaamaan eri kunnissa pelattavan Resulttia Solutions -junnubilisliigan joukkueita sen ensimmäisestä sarjakaudesta tähän kauteen saakka. Voit määrittää sarjakauden ja junnubilisliigan, joiden joukkuetiedot haluat nähdä. Jos valitset kauden 2015-2016 ja minkä tahansa liigan, näet siihen ilmoittautuneiden joukkueiden yhteystiedot. Vanhempien kausien joukkueista et näe yhteystietoja vaan aakkostetun joukkuelistan, josta haluamasi joukkueen nimeä klikkaamalla aukeavat joukkuekohtaiset ottelutilastot. Voit valita joko suppeat tai yksityiskohtaiset tilastot.

Sarjakausi:
Junnubilisliiga:

LOMAKE # tulostetaan hakutulokset HTML-sivulle $paahakemisto = "/var/www/customers/junnubilisliigafi/public_html"; if ($paikkakunta ne "" && int($kausi) >= 2010 && -e "$paahakemisto/$paikkakunta/asetukset.cgi" && $parametrit !~ /yhteystiedot=1/) # jos skripti ajetaan exec cgi -komennolla koko maan joukkuesivulta { # otetaan käyttöön paikkakunnan omat asetukset require "$paahakemisto/$paikkakunta/asetukset.cgi"; $url = "http://www.junnubilisliiga.fi/" . $LIIGA_KUNTAHAKEMISTO; $liigahakemisto = $paahakemisto . "/" . $LIIGA_KUNTAHAKEMISTO; print "\n"; print "\t\t\t\t\t\t

$\"\"$ $\"Ylös\"$

\n"; print "\n"; print "\t\t\t\t\t\t

$LIIGA_KUNNAN junnubilisliigan joukkueet $tulostettava_kausi

\n"; print "\n"; # haetaan ja tulostetaan kaikki joukkueet kaikilta ko. kauden sarjatasoilta ja niiden eri lohkoista chdir ($liigahakemisto); @JOUKKUEET = (); $joukkuelista = ""; @tiedostolista = `ls *$kausi*.dat`; chomp @tiedostolista; foreach $tiedostonimi (@tiedostolista) { if ($tiedostonimi =~ /^finaalit/ || $tiedostonimi =~ /^liigacup/) { next; } open(TIEDOSTO, "$tiedostonimi"); @SARJAPELIT = ; close(TIEDOSTO); $sarja = $tiedostonimi; $sarja =~ s/\.dat//ig; if ($tiedostonimi =~ /([a-zA-Z])\.dat/) { $lohko = $1; chop $sarja; } else { $lohko = ""; } foreach $peli (@SARJAPELIT) { ($pvm, $kotijoukkue, $vierasjoukkue, $kotipelaaja1, $kotierat1, $vieraspelaaja1, $vieraserat1, $kotipelaaja2, $kotierat2, $vieraspelaaja2, $vieraserat2, $kotipelaaja3, $kotierat3, $vieraspelaaja3, $vieraserat3, $kotipelaaja4, $kotierat4, $vieraspelaaja4, $vieraserat4, $erikoisluovutus) = split(/\t/, $peli); if ($kotijoukkue ne "" && $joukkuelista !~ / $kotijoukkue\t$sarja\t$lohko /) { push @JOUKKUEET, "$kotijoukkue\t$sarja\t$lohko"; $joukkuelista .= " $kotijoukkue\t$sarja\t$lohko "; } if ($vierasjoukkue ne "" && $joukkuelista !~ / $vierasjoukkue\t$sarja\t$lohko /) { push @JOUKKUEET, "$vierasjoukkue\t$sarja\t$lohko"; $joukkuelista .= " $vierasjoukkue\t$sarja\t$lohko "; } } } if ($joukkuelista ne "") { print "\t\t\t\t\t\t\n"; print "\t\t\t\t\t\t \n"; foreach $liigajoukkue (sort { lc $a cmp lc $b } @JOUKKUEET) { ($nimi, $sarja, $lohko) = split(/\t/, $liigajoukkue); # muutetaan joukkueen välilyönnit plussiksi $uusi_nimi = $nimi; $uusi_nimi =~ s/ /+/g; $linkki = "$nimi"; if ($sarja =~ /mestis/) { $sarjataso = "Mestaruussarja"; } elsif ($sarja =~ /1divari/) { $sarjataso = "1. divisioona"; } elsif ($sarja =~ /2divari/) { $sarjataso = "2. divisioona"; } else { $sarjataso = " "; } if ($lohko ne "") { $lohkoteksti = " ($lohko-lohko)"; } else { $lohkoteksti = ""; } print "\t\t\t\t\t\t \n"; } print "\t\t\t\t\t\t

Joukkue	Junnubilisliiga	Sarjataso (alkulohko)
$linkki	$LIIGA_KUNTA	$sarjataso $lohkoteksti

"; } else { print "\t\t\t\t\t\t

Joukkuetietoja ei löytynyt. Mikäli kyseessä on tuleva sarjakausi, sen joukkueet julkaistaan lähempänä sarjan alkua.

"; } } elsif ($paikkakunta ne "" && int($kausi) >= 2010 && -e "$paahakemisto/$paikkakunta/asetukset.cgi" && $parametrit =~ /yhteystiedot=1/) # jos skripti ajetaan include virtual -komennolla koko maan joukkuesivulta { # otetaan käyttöön paikkakunnan omat asetukset require "$paahakemisto/$paikkakunta/asetukset.cgi"; print "\n"; print "\t\t\t\t\t\t

$\"\"$ $\"Ylös\"$

\n"; print "\n"; print "\t\t\t\t\t\t

$LIIGA_KUNNAN junnubilisliigan joukkueet $tulostettava_kausi

\n"; print "\n"; $tiedostonimi = $paahakemisto . "/suomi/joukkueet_" . $LIIGA_KUNTAHAKEMISTO . ".htm"; if (-e "$tiedostonimi" && -s "$tiedostonimi" > 0) { open(TIEDOSTO, "$tiedostonimi"); @yhteystiedot = ; close(TIEDOSTO); print "@yhteystiedot"; } else { print "\t\t\t\t\t\t

Mestaruussarjaan ilmoittautuneet joukkueet

\n"; print "\n"; print "\t\t\t\t\t\t

Ei ilmoittautuneita toistaiseksi

"; } if ($parametrit =~ /ilmoittautuminen=1/) { print "\n"; print "\n"; print "\t\t\t\t\t\t

$\"\"$ $\"Ylös\"$

\n"; print "\n"; print "\t\t\t\t\t\t

Katso myös: " . $LIIGA_KUNNAN . " junnubilisliigan ilmoittautumislomake

"; } } elsif ($parametrit ne "") # jos tehtiin haku virheellisellä lomakkeella tms. tai ei löytynyt vaadittua paikkakunnan omaa asetukset.cgi-tiedostoa { print "\n"; print "\t\t\t\t\t\t

$\"\"$ $\"Ylös\"$

\n"; print "\n"; print "\t\t\t\t\t\t

Junnubilisliigan joukkueet

\n"; print "\n"; print "\t\t\t\t\t\t

Joukkuetietoja ei löytynyt. Mikäli kyseessä on tuleva sarjakausi, sen joukkueet julkaistaan lähempänä sarjan alkua.

"; }

Hae tulosarkistosta

Hakusanoiksi voit kirjoittaa esim. pelaajan tai joukkueen nimen. Voit myös hakea tiettyjä ottelutuloksia (esim. "Matti Meikäläinen 2-0").

#!/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