Resulttia Solutions -junnubilisliiga | Tampere [Tampereen nuorisotilojen biljardiliiga]

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

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

"; }

Tampereen Resulttia Solutions -junnubilisliiga nuorisotilajoukkueille

Tampereen Resulttia Solutions -junnubilisliiga on Suomen Biljardiliitto ry:n alainen alle 18-vuotiaiden tyttöjen ja poikien biljardijoukkueliiga, jota pelataan oman kunnan nuorisotilojen joukkueiden kesken. Joukkue voi olla mikä tahansa nuorten ryhmä, jolla on Tampereella alaikäisille sopiva kotipelipaikka ja siellä biljardipöytä sekä vähintään kolme pelaajaa ja yksi täysi-ikäinen yhteyshenkilö. Liigassa pelataan 8-palloa.

Kaikki ottelut pelataan arki-iltoina, oman kunnan alueella ja otteluohjelmien mukaisina päivinä. Joukkueet voivat siirtää otteluita. Jokaisella joukkueella on enintään yksi ottelu viikossa. Väliviikkoja on myös. Ottelut pelataan kolmihenkisillä joukkueilla. Pelaajia ei tarvitse nimetä ennen kauden alkua ja uusia voidaan ottaa mukaan kauden jo alettua.

Junnubilisliigaan osallistuvat joukkueet voivat pelata pelinsä esim. nuorisotaloilla tai seurakunnan nuorisotiloilla. Kevääseen ajoittuvat liigafinaalit pyritään mahdollisuuksien mukaan pelaamaan paikallisella biljardisalilla. Parhaat joukkueet ja pelaajat palkitaan.

Resulttia Solutions -junnubilisliiga kehittää alle 18-vuotiaita pelaajiaan monipuolisesti ja tarjoaa heille mielekästä yhteistä tekemistä. Joukkueeseen kuuluminen ja osana ryhmää toimiminen on hyvin opettavaista ja monin tavoin palkitsevaa. Biljardiliiga tuo uudenlaisia kokemuksia, ikimuistoisia elämyksiä ja uusia kavereita. Nuorten ryhmähenki kohoaa, kun pelataan ja kannustetaan yhdessä. Kunnan nuorisotiloille liiga tarjoaa hyvin organisoitua, säännöllistä toimintaa ja oivan tavan tehostaa yhteistyötä.

Tampereen junnubilisliiga kaudella 2015-2016

Tampereen junnubilisliigaa pelataan kunnan nuorisotalojen ja muiden nuorille soveltuvien pelipaikkojen joukkueiden kesken. Liigatoiminta on Suomen Biljardiliitto ry:n alaista ja se sopii kaikille alle 18-vuotiaille nuorille. Kussakin ottelussa joukkueessa pelaa kolme pelaajaa, mutta kauden aikana pelaajia saa olla rajaton määrä.

Tampereen junnubilisliigassa pelataan 8-palloa virallisilla säännöillä. Sarjakausi 2015-2016 alkaa lokakuussa 2015 ja huipentuu kevään liigafinaalitapahtumaan, jossa ratkaistaan liigamestarijoukkue ja jaetaan palkinnot.

Tampereen Resulttia Solutions -junnubilisliigan kausi 2015-2016 pelataan, jos kunnan nuorisotaloista ja muista pelipaikoista ilmoittautuu mukaan vähintään kaksi kolmihenkistä joukkuetta, joiden pelaajat ovat alle 18-vuotiaita. Ylärajaa joukkue- tai pelaajamäärälle ei ole asetettu, joten kaikki halukkaat ovat tervetulleita.

Joukkueiden ilmoittautumisia vastaanotetaan aikavälillä 15.04.-30.09.2015. Joukkuekohtainen osallistumismaksu on 50 €/kausi. Tervetuloa junnubilisliigaan!

Katso myös: Resulttia Solutions -junnubilisliiga muualla Suomessa

Tampereen junnubilisliigan yhteystiedot kaudella 2015-2016

Resulttia Solutions -junnubilisliigaa koskevat tiedustelut sekä Internet-sivustoasiat:

Salonen Mika, liiga- ja Internet-vastaava / Resulttia Solutions
Puhelin: 045 277 8527
Sähköposti: mika.salonen@junnubilisliiga.fi

Joukkueiden osallistumismaksuihin ja niiden laskutukseen liittyvät asiat:

Ryytty Markku, toiminnanjohtaja / Suomen Biljardiliitto ry.
Puhelin: 0400 638 706
Sähköposti: markku.ryytty@sbil.fi

Internet-sivut: http://www.junnubilisliiga.fi/tampere/
Sähköposti: tampere@junnubilisliiga.fi

Ajankohtaista

$pva.$kk.$vuosi klo $tunnit:$min
$aihe

"; } else { last; } } } } # tulostetaan uusimmat tiedotteet HTML-sivulle print "Content-type: text/html\n\n"; $tulostetut = 0; foreach $tiedote (reverse sort @uusimmat) { ($aika, $tuloste) = split(/\t/, $tiedote); $tulostetut++; if ($tulostetut > $lkm) { last; } print "\t\t\t\t\t\t$tuloste\n"; } if ($tulostetut == 0) { print "\t\t\t\t\t\t

Ei uutisia

\n"; }

Kausi 2015-2016:
Osallistumisoikeus on vain Tampereen nuorisotilojen joukkueilla. Liigassa pelataan 8-palloa alle 18-vuotiaiden kolmihenkisillä joukkueilla.

Joukkueiden ilmoittautumiset liigakauteen 2015-2016 on hoidettava viimeistään 30.09.2015 ja joukkueiden osallistumismaksut laskun eräpäivään mennessä. Kausi alkaa lokakuussa 2015.

Kutsu junnubilisliigaan
Liigainfo ja -säännöt
Ilmoittautumislomake
Ilmoittautuneet

Viimeisimmät taulukot

" . $tuloste; } if ($tulostetut == $lkm) { $tuloste = $tuloste . "

"; } else { $tuloste = $tuloste . "
"; } print "\t\t\t\t\t\t$tuloste\n"; } if ($tulostetut == 0) { print "\t\t\t\t\t\t

Mestaruussarja

\n"; } # tulostetaan linkki liigafinaalien tuloksiin, jos kunnan liigafinaalisivu on palvelimella if (-e "finaalit.shtml") { print "\n"; print "\t\t\t\t\t\t

Liigafinaalien tulokset

\n"; }

Hae tulosarkistosta

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

Viimeksi keskustelua herättäneet aiheet

$pva.$kk.$vuosi klo $tunnit:$min
$aihe

"; } else { last; } } } # tulostetaan uusimmat keskustelut HTML-sivulle print "Content-type: text/html\n\n"; $tulostetut = 0; foreach $keskustelu (reverse sort @uusimmat) { ($aika, $tuloste) = split(/\t/, $keskustelu); $tulostetut++; if ($tulostetut > $lkm) { last; } print "\t\t\t\t\t\t$tuloste\n"; } if ($tulostetut == 0) { print "\t\t\t\t\t\t

Ei aiheita

\n"; }

Hae keskusteluista

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

Alle 18-vuotiaiden poikien ja tyttöjen kolmihenkisillä joukkueilla pelattava biljardisarja, jota on mahdollista pelata myös Tampereella!

"; 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 » Tampere

Toteutus: Resulttia Solutions