Resulttia Solutions -junnubilisliiga | Karstula [Ilmoittautuminen Karstulan junnubilisliigaan]

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

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

"; }

Ilmoittautuminen Karstulan junnubilisliigaan 2015-2016

Alla olevalla lomakkeella voit ilmoittaa joukkueen mukaan Suomen Biljardiliitto ry:n ja Resulttia Solutionsin yhteistyökumppaneineen järjestämälle Karstulan Resulttia Solutions -junnubilisliigan sarjakaudelle 2015-2016. Joukkueiden ilmoittautumisaika päättyy 30.09.2015. Ilmoittautumislomakkeella ei tarvitse ilmoittaa joukkueen pelaajien nimiä vaan ainoastaan joukkueen pelipaikka- ja yhteystiedot.

Karstulan junnubilisliigan kausi 2015-2016 alkaa lokakuussa 2015, mikäli liigakauteen ilmoittautuu vähintään kaksi joukkuetta. Kun kauden alku varmistuu, Suomen Biljardiliitto ry. lähettää kullekin joukkueelle laskun osallistumismaksusta. Osallistuminen Karstulan junnubilisliigaan maksaa 50 €/joukkue.

Varmista ennen lomakkeen täyttöä ja lähetystä, että olet lukenut liigasäännöt.

Lomakkeen täyttöön liittyvissä ongelmissa voit ottaa yhteyttä sivujen ylläpitäjään.

Joukkueen perustiedot

Joukkueen nimi määräytyy paikan mukaan, jossa se pelaa kotiottelunsa (esim. Multisilta 1 ja Multisilta 2). Yhtenäisen nimeämiskäytännön ansiosta jokaisen liigassa pelaavan joukkueen kotipelipaikka on pääteltävissä suoraan joukkuenimestä.

Joukkueen nimi (pakollinen):

Nimen lyhenne (pakollinen, jos nimi yli 18-merkkinen):

Sarjataso (pakollinen):

Karstulan junnubilisliigan mestaruussarja (8-pallo)

Joukkueen kotipelipaikka

Samasta pelipaikasta sallitaan useita joukkueita. Joukkueen kotipelipaikan on sijaittava Karstulassa ja sovelluttava alaikäisille (esim. kunnan nuorisotalo, seurakunnan nuorisotila tai paikallinen biljardisali). Pelaajat ovat alle 18-vuotiaita. Liigakauden aikana 18 vuotta täyttävä pelaaja saa edustaa joukkuettaan kauden loppuun asti, jos hän on pelannut kauden ensimmäisen ottelunsa alle 18-vuotiaana.

Kotipelipaikan nimi (pakollinen):

Osoite (pakollinen):

Postinumero ja -toimipaikka (pakollisia):

Puhelinnumero (pakollinen):

Internet-sivut:

Joukkueen täysi-ikäinen yhteyshenkilö

Joukkueen yhteyshenkilön nimi (pakollinen):

Osoite (pakollinen):

Postinumero ja -toimipaikka (pakollisia):

Puhelinnumero (pakollinen):

Sähköpostiosoite:

Joukkueen otteluajankohtatoiveet

Puolet junnubilisliigan otteluista pelataan kotiotteluina oman joukkueen kotipelipaikassa ja puolet vierasotteluina vastustajoukkueiden pelipaikoissa. Ottelut ovat arki-iltaisin oman kunnan alueella. Pelipäivät ja alkamisajat määräytyvät pitkälti joukkueiden toivomusten pohjalta. Valitse alta joukkueellesi sopivat viikonpäivät ja kellonajat, jotta ottelut saadaan pelattua pelipaikan aukioloaikojen puitteissa.

Ensisijainen pelipäivä- ja kellonaikatoive (pakollinen):

alkaen klo

Toissijainen pelipäivä- ja kellonaikatoive (pakollinen):

alkaen klo

Mahdolliset lisätoivomukset:

Joukkueen osallistumismaksun laskutus

Kun riittävästi joukkueita ilmoittautuu liigaan, Suomen Biljardiliitto ry. lähettää laskun osallistumismaksusta. Ensisijainen laskutustapa on e-lasku, mutta niin haluttaessa laskun toimitus onnistuu myös sähkö- tai kirjepostitse. Valitse laskun toimitustapa, täytä laskutustiedot huolellisesti ja varmista, että annat kaikki tarvittavat tiedot. Tarvittaessa lisätietoja osallistumismaksujen maksamisesta ja laskutuksesta antaa Suomen Biljardiliitto ry:n toiminnanjohtaja Markku Ryytty, puh. 0400 638 706.

Laskun toimitustapa (pakollinen):

Verkkolasku (e-lasku)
Lasku sähköpostitse
Lasku kirjepostitse

Verkkolaskua varten tarvittava OVT-tunnus ja tilaajan viite tai vaihtoehtoisesti laskutettava taho ja osoite, johon lasku lähetetään (pakollinen):

Katso myös: Osanottomaksut ja maksuohjeet

Muut tiedot

Osoite, johon Biljardi-lehti lähetetään (pakollinen):

Osoite, johon liigatiedotteet ja muu kirjeposti lähetetään (pakollinen):

Mahdolliset lisätiedot:

Joukkueen yhteystietoja ja pelaajien nimiä ei saa julkaista Internet-sivuilla

Huomioitavaa

Liigasääntöjen lukeminen ennen ilmoittautumista on ehdottomasti suotavaa.

Karstulan sarjakaudelle 2015-2016 saattaa tulla joitakin sääntömuutoksia, joita liigainfossa ei ole vielä huomioitu. Mahdollisista muutoksista tiedotetaan myöhemmin.

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

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

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

Toteutus: Resulttia Solutions