Resulttia Solutions -junnubilisliiga | Suomi [Junnubilisliigatoiminta 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

"; }

Mainoslahjat tuhansien tuotteiden valikoimasta tarjoaa Vanno Oy.

Suomen Biljardiliitto ry:n junnubilisliigatoiminta Suomessa

Suomen Biljardiliiton alainen junnubilisliiga on valtakunnallinen, mutta kuitenkin paikallisesti pelattava biljardisarja. Toimintaa järjestetään koko Suomessa siten, että kullakin paikkakunnalla pelataan omaa junnubilisliigaansa. Oman kunnan joukkueiden kesken pelattava liiga antaa Suomessa tuhansille alle 18-vuotiaille nuorille mahdollisuuden harrastaa biljardia ja olla osa joukkuetta. Samalla tytöt ja pojat voivat kiinnostua muustakin SBiL:n ja sen jäsenseurojen järjestämästä valmennus- ja kilpailutoiminnasta.

Resulttia Solutions -junnubilisliiga kehittää alle 18-vuotiaita pelaajia monipuolisesti. Biljardissa keskittymiskyky ja kehonhallinta harjaantuvat. Mielenmaltti on valttia, kärsivällisyys ja rauhallisuus. Pelatessa tunneskaala on laaja ja erilaiset tunteet on käsiteltävä tavalla tai toisella. Koska pelataan joukkueittain ja jokainen nuori on osa joukkuetta, on osattava ottaa vastuu omista tekemisistä ja siitä, että ollaan ajoissa paikalla ja oma pelivuoro hoidetaan. Biljardi on herrasmieslaji, jossa toimitaan sääntöjen mukaan sekä kunnioitetaan ja arvostetaan pelikavereita, käytössä olevia pelivälineitä ja biljardia lajina. Sosiaaliset taidot vahvistuvat myös. Liigassa opittavat perustaidot ovat osa muutakin elämää. Liigatoiminta on hyvin opettavaista ja monin tavoin palkitsevaa.

Biljardin ja toisilla nuorisotiloilla vierailun myötä tulee runsaasti uusia kavereita, uudenlaisia kokemuksia ja ikimuistoisia elämyksiä. Kaiken lisäksi ryhmähenki kohoaa, kun pelataan ja kannustetaan yhdessä. Junnubilisliiga tarjoaa kunnan nuorisotiloille oivan tavan yhteistoiminnan kehittämiseen. Yhteistyö voi ulottua liigajoukkueisiin saakka, sillä nuorisotilat voivat osallistua liigaan joko omilla tai yhteisillä joukkueillaan.

Valitse junnubilisliiga:

Resulttia Solutions -junnubilisliigaa Suomessa vuodesta 2010 lähtien

Junnubilisliiga sai alkunsa Tampereella biljardiyhdistys Pirkanmaan Pool ry:n juniorijaosto Pirkanmaan Pool Academyn, Resulttia Solutionsin sekä Tampereen kaupungin nuorisopalveluiden yhteistyön tuloksena. Täysin uudenlainen, monipuolisesti Internetiä hyödyntävä nuorten biljardijoukkueliiga vietiin nuorten luokse, nuorisotaloille.

Kaudella 2010-2011 Resulttia Solutions -junnubilisliigaa pelattiin Tampereen nuorisotalojen kesken. Liigakausi oli menestys: Mukana oli kymmenen joukkuetta ja lähes 90 alle 18-vuotiasta pelaajaa. Resulttia Solutionsin toimesta vastaavaa liigatoimintaa päätettiin ruveta järjestämään myös muualla Suomessa.

Kaudeksi 2011-2012 Resulttia Solutions -junnubilisliiga siirtyi Suomen Biljardiliitto ry:n alaisuuteen. Juniorijoukkueiden oma biljardisarja alkoi levitä ympäri Suomea. Organisoitua liigatoimintaa viedään eri paikkakunnille ja yhä useammille nuorisotiloille eli sinne, missä nuoret ovat. Tavoitteena on tarjota mielekästä yhteistä tekemistä, mahdollistaa biljardin harrastaminen ja lisätä lajin harrastajamääriä.

Kaudella 2011-2012 junnubilisliigaa pelattiin jo viidellä paikkakunnalla. Mukana olivat Helsinki, Hyvinkää, Kerava, Tampere ja Vantaa. Kaudella 2012-2013 liiga laajeni entisestään, kun liigakartalle saatiin uusina Espoo, Joensuu ja Turku. Kaudella 2013-2014 liigaa pelattiin Vantaalla. Samalla alkoi laajamittainen liigauudistus, jonka päätavoitteena oli liigatoiminnan laajentaminen Suomen kaikki 317 kuntaa kattavaksi.

Kaudesta 2014-2015 lähtien junnubilisliigaa on mahdollista pelata Suomen jokaisessa kunnassa. Tästedes liigakausi järjestetään, jos kunnasta ilmoittautuu vähintään kaksi kolmihenkistä joukkuetta. Toki joukkueita ja pelaajia saa tulla mukaan enemmänkin.

Liigakausi muodostuu runkosarjasta ja liigafinaaleista

Resulttia Solutions -junnubilisliigaa voidaan pelata kaikilla paikkakunnilla, joiden nuorisotaloilta ja muilta nuorisotiloilta saadaan muodostettua 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. Liigassa pelataan 8-palloa virallisilla säännöillä.

Joukkueet jaetaan alkulohkoihin yhdelle tai useammalle sarjatasolle. Näin ottelumäärät, pelitahti ja pelimatkojen pituus saadaan pidettyä nuorille sopivina. Junnubilisliiga toimii nuorten ehdoilla ja sen pelaamisen on oltava mukavaa. Runkosarjan ottelut ovat arki-iltaisin oman kunnan nuorisotiloilla. Ottelupäivistä ja kellonajoista sovitaan liigakohtaisesti. Liigajärjestäjät laativat otteluohjelmat ja toimittavat ne joukkueille.

Eri paikkakunnilla liigakausi alkaa pääsääntöisesti syksyllä. Tällöin alku- eli runkosarja muodostuu syys- ja kevätkaudesta. On myös mahdollista aloittaa sarja vasta vuodenvaihteen jälkeen, jolloin pelataan vain kevätkausi. Jos joukkueita on enemmän kuin kaksi, kevääseen ajoittuvat liigafinaalit pyritään mahdollisuuksien mukaan pelaamaan paikallisella biljardisalilla. Liigakauden parhaat joukkueet ja pelaajat palkitaan.

Resulttia Solutions -junnubilisliigassa joukkueet pelaavat korkeintaan yhden ottelun viikossa, yhtenä arki-iltana. Joukkueessa pelaa kolme pelaajaa yhdessä ottelussa, mutta kauden aikana joukkueeseen saa kuulua useampiakin pelaajia. Otteluita ei ole joka viikko, ettei liigasta tule liian raskasta vaan otteluohjelmat tehdään niin, että ottelutahti on sopiva. Otteluita on mahdollista siirtää.

Jokaisella liigalla on oma Internet-sivustonsa ja kattava tulospalvelunsa, joka sisältää mm. tilastot ja taulukot jokaisesta ottelusta, joukkueesta ja yksittäisestä pelaajasta. Toki myös perinteiset sarjataulukot ja pelaajien paremmuusjärjestykset eli rankinglistat löytyvät. Verkkopalvelun suunnittelusta ja toteutuksesta sekä tulosten päivityksestä huolehtii junnubilisliigan pääyhteistyökumppani Resulttia Solutions.

Kysyttävää Resulttia Solutions -junnubilisliigaan liittyen?

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

Kausi 2015-2016:
Junnubilisliiga on nuorten valtakunnallinen biljardisarja, jossa toiminta on paikallista. Suomen jokaisessa kunnassa pelataan omaa liigaansa.

Osallistumisoikeus on kaikilla oman kunnan nuorisotilojen joukkueilla. Liigassa pelataan 8-palloa alle 18-vuotiaiden kolmihenkisillä joukkueilla.

Joukkueiden ilmoittautumiset liigakauteen 2015-2016 on tehtävä netissä viimeistään 30.09.2015. Kausi alkaa lokakuussa 2015.

Ajankohtaista infoa

$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"; }

Katso myös

Kaikki tiedotteet

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