|
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\"](\"/ylabannerit/$hakemisto/$tiedostonimi\" "\\"$alt\\"")
";
}
else
{
push @bannerit, "";
}
}
}
}
}
$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
"; }Laadukkaat Liikelahjat ja Yrityslahjat tarjoaa Vanno Oy.
|
ESITTELY | LIIGAINFO | JOUKKUEET | OTTELUOHJELMAT | SARJATAULUKOT | RANKINGLISTAT | TIEDOTTEET | FOORUMI |
|||||||||||||||||||||||
|
|||||||||||||||||||||||
|
ESITTELY | LIIGAINFO | JOUKKUEET | OTTELUOHJELMAT | SARJATAULUKOT | RANKINGLISTAT | TIEDOTTEET | FOORUMI |
|||||||||||||||||||||||
#!/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\"](\"/alabannerit/$hakemisto/$tiedostonimi\" "\\"$alt\\"")
";
}
else
{
push @bannerit, "";
}
}
}
}
}
$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\"](\"/bannerit/$hakemisto/$tiedostonimi\" "\\"$alt\\"")
";
}
else
{
push @lisattavat_bannerit, "";
}
}
}
}
}
# 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! |
#!/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};
$maakuntatiedosto = "maakunnat.dat";
$maakuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $maakuntatiedosto;
$kuntatiedosto = "kunnat.dat";
$kuntatiedosto = "/var/www/customers/junnubilisliigafi/public_html/suomi/" . $kuntatiedosto;
# luetaan maakunnat tietokannasta
@MAAKUNNAT = ();
if (-e "$maakuntatiedosto")
{
open(TIEDOSTO,"$maakuntatiedosto");
@MAAKUNNAT = ;
close(TIEDOSTO);
}
else
{
die;
}
# luetaan kunnat tietokannasta
@KUNNAT = ();
if (-e "$kuntatiedosto")
{
open(TIEDOSTO,"$kuntatiedosto");
@KUNNAT = ;
close(TIEDOSTO);
}
else
{
die;
}
# muodostetaan lopuksi HTML-sivulle tulostettavat maakunta- ja kuntatiedot
$kuntalkm = @KUNNAT;
@TULOSTE = ();
push @TULOSTE, " ";
push @TULOSTE, "\n ";
}
# tulostetaan maakunnat ja niiden kunnat HTML-sivulle
if ($kuntahakemisto !~ /\.cgi/)
{
print "Content-type: text/html\n\n";
}
print "@TULOSTE";
";
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 $kuntalkm kunnan ikioma junnubilisliiga
"; push @TULOSTE, "![\"\"](\"/tiedotteet/logo_suomenbiljardiliitto59x78.gif\"){kind=logo}
";
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.
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, "$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, "
|
Suomen Biljardiliitto ry. » Resulttia Solutions -junnubilisliiga » Suomi |
|
Toteutus: Resulttia Solutions |