HTML } sub footer { print < HTML } sub show_nummerlista { $lock_file = "$nummerlistafile.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistafile", or die "Kunde inte öppna filen 1.\n"; @nummerlistaarr = ; close(NUMMERLISTA); &clean_up; &header; print "

Uppdateras dagligen

Startnummerlistor för MKR-serien

Här finns startnummer för nedanstående klasser. Här är det tänkt att du som besökare kan själv boka ditt startnummer som är markerat med texten Ledig! fram t.o.m. anmälningstidens utgång för respektive tävling. Därefter låses listan fram till onsdagen efter tävlingen.

OBS! Du kan endast boka numret du vill ha EN gång. Missbrukas detta stängs vederbörande av från denna möjlighet att boka. Komihåg att alla IP-adresser loggas.

\n"; print "

\n"; print "\n"; $farg = "$td_bg2"; $listafound = "1"; $position = "0"; foreach $nummerlista_tmp (@nummerlistaarr) { @nummerlistalinkarr = split /\;/, $nummerlista_tmp; $position = ($position + 1); $up_position = ($position - 1); $down_position = ($position + 2); if ($farg eq "$td_bg1") { $farg = "$td_bg2"; } else { $farg = "$td_bg1"; } print "\n"; print "\n"; print "\n"; $listafound = ($listafound + 1); } if ($listafound eq "1") { print "\n"; print "\n"; print "\n"; } print "

\n"; print "$nummerlistalinkarr[1]

Databasen är tom.

\n"; print "

\n"; print "

Tillbaka till startnummerlistan \n"; &footer; exit; } ############################################################################## sub view_subnummerlista { $farg = "$td_bg2"; &header; $lock_file = "$nummerlistafile.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistafile", or die "Kunde inte öppna filen 1.\n"; @nummerlistaarr = ; close(NUMMERLISTA); &clean_up; foreach $nummerlista_tmp (@nummerlistaarr) { @nummerlistalinkarr = split /\;/, $nummerlista_tmp; if ($nummerlistalinkarr[0] eq "$query{'ID'}") { $kat_namn = "$nummerlistalinkarr[1]"; $locked = "$nummerlistalinkarr[2]"; } } print "Nummerlista: $kat_namn « Tillbaka till listgrupperna

\n"; if ($locked eq "1") { print "OBS!! Ändringar till denna lista kan ej göras för tillfället.

\n"; } else { print "Listan är upplåst och lediga nummer kan nu fyllas i.

\n"; } print "\n"; print "\n"; $lock_file = "$nummerlistadir/$query{'ID'}.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistadir/$query{'ID'}", or die "Kunde inte öppna filen 1.\n"; @imageBANKarr = ; close(NUMMERLISTA); &clean_up; foreach $nummerlistatmp (@imageBANKarr) { @nummerlistaarr = split /\;/, $nummerlistatmp; if ($farg eq "$td_bg1") { $farg = "$td_bg2"; } else { $farg = "$td_bg1"; } print "\n"; } print "

\n"; print "Nr\n"; print "	\n"; print "Namn\n"; print "	\n"; print "Klubb\n"; print "
\n"; print "$nummerlistaarr[0]\n"; print "	\n"; if ($nummerlistaarr[1] eq "") { if ($locked ne "1") { print "Ledig!\n"; } else { print "Ledig!\n"; } } else { print "$nummerlistaarr[1]\n"; } print "	\n"; print "$nummerlistaarr[2]\n"; print "

\n"; &footer; exit; } sub change_subnummerlista { $lock_file = "$nummerlistafile.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistafile", or die "Kunde inte öppna filen 1.\n"; @nummerlistaarr = ; close(NUMMERLISTA); &clean_up; foreach $nummerlista_tmp (@nummerlistaarr) { @nummerlistalinkarr = split /\;/, $nummerlista_tmp; if ($nummerlistalinkarr[0] eq "$query{'ID'}" && $nummerlistalinkarr[2] eq "1") { &header; print "Denna lista är låst och kan ej redigeras.\n"; &footer; exit; } } $lock_file = "$nummerlistadir/$query{'ID'}.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistadir/$query{'ID'}", or die "Kunde inte öppna filen 1.\n"; @imageBANKarr = ; close(NUMMERLISTA); &clean_up; foreach $nummerlistatmp (@imageBANKarr) { @nummerlistaarr = split /\;/, $nummerlistatmp; if ($nummerlistaarr[0] eq "$query{'nummer'}" && $nummerlistaarr[1] ne "") { &header; print "Denna post är upptagen och kan ej redigeras.\n"; &footer; exit; } } &header; $lock_file = "$nummerlistadir/$query{'ID'}.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistadir/$query{'ID'}", or die "Kunde inte öppna filen.\n"; @imageBANKarr = ; close(NUMMERLISTA); &clean_up; foreach $imagetmp (@imageBANKarr) { @nummerarr = split /\;/, $imagetmp; if ($nummerarr[0] eq "$query{'nummer'}") { $found = 1; $nummerarr[2] =~ s/
/\n/g; $found = 1; print "Ändra nummerpost

\n"; print "\n"; } } if ($found ne "1") { print "Det finns ingen sida som matchar länken.\n"; } &footer; exit; } sub write_oldsubnummerlista { if ($query{'ID'} eq "") { &header; print "FEL!

\n"; print "Det finns inget grupp-ID.

\n"; &footer; exit; } if ($query{'nummer'} eq "") { &header; print "FEL!

\n"; print "Det finns inget nummer angivet.

\n"; &footer; exit; } $query{'namn'} =~ s/\"/\'\'/g; $query{'klubb'} =~ s/\"/\'\'/g; $lock_file = "$nummerlistadir/$query{'ID'}.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistadir/$query{'ID'}", or die "Kunde inte öppna filen 1.\n"; @imageBANKarr = ; close(NUMMERLISTA); &clean_up; foreach $nummerlistatmp (@imageBANKarr) { @nummerlistaarr = split /\;/, $nummerlistatmp; if ($nummerlistaarr[0] eq "$query{'nummer'}" && $nummerlistaarr[1] ne "") { &header; print "Denna post är upptagen och kan ej redigeras.\n"; &footer; exit; } } $lock_file = "$nummerlistadir/$query{'ID'}.lock"; &check_lock($lock_sec); open NUMMERLISTA, "$nummerlistadir/$query{'ID'}", or die "Kunde inte öppna filen.\n"; @imageBANKarr = ; close(NUMMERLISTA); open BOX3, ">$nummerlistadir/$query{'ID'}", or die "Kunde inte öppna filen.\n"; foreach $imagetmp (@imageBANKarr) { @nummerarr = split /\;/, $imagetmp; if ($nummerarr[0] eq "$query{'nummer'}") { print BOX3 "$nummerarr[0]\;$query{'namn'}\;$query{'klubb'}\;\;\;\;\;\n"; } else { print BOX3 "$imagetmp"; } } close(BOX3); &clean_up; print "Location: $scriptname?action=view_subnummerlista&ID=$query{'ID'}\n\n"; exit; } 1;