#!/usr/local/bin/perl
############################################################################################
#
# ak_webbpub-s.cgi.
# Askås Webbverktyg.
#
#
# COPYRIGHT (c) ASKÅS INTERNET- & REKLAMBYRÅ AB 1998-2006. ALLA RÄTTIGHETER RESERVERADE.
# FÅR EJ LÄSAS, KOPIERAS, ÄNDRAS, ANVÄNDAS, LAGRAS ELLER DISTRIBUERAS UTAN TILLSTÅND FRÅN ASKÅS INTERNET- & REKLAMBYRÅ AB.
#
#
# Askås Internet- & Reklambyrå AB
# Box 57
# 661 22 Säffle
#
# Telefon: 0533-68 35 46
# Fax    : 0533-68 35 47
# E-post : info@askas.se
# www    : www.askas.se
#
#
# 
#
# ------ senast ändrad 2006-06-22
#
############################################################################################

sub timelocal;
require "timelocal.pl";require("AK_settings.pl");$programNamnLangt = "Askås Webbverktyg";$programVersion   = "2.0.8";$ENV{'PATH'}= '/bin:/usr/bin:/usr/local/bin';$cgidir= "/www/webvol6/my/qzz7js8a3q1psbh/hintal.se/public_html/cgi-bin/webbpub-s";$basedir= "/www/webvol6/my/qzz7js8a3q1psbh/hintal.se/public_html";$cgihref= "http://hintal.se.loopiadns.com/cgi-bin/webbpub-s";$basehref= "http://hintal.se.loopiadns.com";$bildmappDir= "${basedir}/bilder/webbpub-s";$bildmappHref= "${basehref}/bilder/webbpub-s";$mailprog= "/usr/lib/sendmail -t";$copyNotice= "<!-- ${programNamnLangt} v${programVersion}, copyright (c) Askås Internet- & Reklambyrå AB 1998-2006 - www.askas.se -->";$program_lang= "sv";$id= "0";$us= "0";$pa= "0";$pw= "0";$loginOk= 0;$bgFargNormal= "\#FFFFFF";$bgFargUpptagen= "\#DDDDDD";&tolka_formular;&starta_program;sub starta_program(){if ($formvariabel{'Sprak_ID'} eq ""){open(FIL, "<databas_sprak.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);$formvariabel{'Sprak_ID'} = $variabel{'Sprak_ID'};last;}}if ($formvariabel{'funk'} eq "F"){&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "VisaDok"){&skrivut_dokument_enskilt;}elsif ($formvariabel{'funk'} eq "VisaExternLank"){&skrivut_dokument_extern_lank;}elsif ($formvariabel{'funk'} eq "VisaIdent"){local $VisaIdent = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "VisaIdentSlutfor"){&skrivut_dokument_ident_slutfor;}elsif ($formvariabel{'funk'} eq "logout"){&skrivut_logout();}elsif ($formvariabel{'funk'} eq "Nyhet"){local $VisaNyhet = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "KalendariumEns"){local $VisaKalendariumEns = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Gastbok_Ny"){local $VisaGastbok_Ny = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Gastbok_Ny_Slutfor"){local $VisaGastbok_Ny_Slutfor = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Start"){local $VisaStart = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Fraga_Svar"){$fraga_slutfor = "ja";$Fraga_Redan_Rostat = 1;local $VisaStart = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Fraga_Meny"){local $Visa_Fraga_Meny = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Fraga_Enskild"){local $Visa_Fraga_Enskild = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "Form"){local $VisaForm = 1;&skrivut_dokument_singlepage();}elsif ($formvariabel{'funk'} eq "SB"){&skrivut_secure_bild();}elsif (($formvariabel{'funk'} eq "Sok") || (($formvariabel{'funk'} eq "") && ($formvariabel{'q'} ne ""))){local $VisaSok = 1;&skrivut_dokument_singlepage();}}sub tolka_rad(){my ($par, $variabelNamn, $variabelVarde, @variabelPar, %lokalVariabel);chomp $_[0];@variabelPar = split(/\!ny\!/, $_[0]);foreach $par (@variabelPar){($variabelNamn, $variabelVarde) = split(/\!eq\!/, $par);$variabelNamn  =~ s/%([0-9A-F]{2})/chr(hex($1))/egi;$variabelVarde =~ s/%([0-9A-F]{2})/chr(hex($1))/egi;$lokalVariabel{$variabelNamn} = $variabelVarde;}return %lokalVariabel;}sub tolka_formular(){my ($buffer, $namn, $varde, @par);if ($ENV{'REQUEST_METHOD'} eq "GET"){$buffer = $ENV{'QUERY_STRING'};}elsif ($ENV{'REQUEST_METHOD'} eq "POST"){$buffer = "";read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}else{die ("Content-type: text/html\n\n". "REQUEST_METHOD måste vara GET eller POST!");}$buffer =~ tr/+/ /;@par = split(/&/, $buffer);foreach $par (@par){($namn, $varde) = split(/=/, $par);$namn =~ s/%([A-F0-9]{2})/chr(hex($1))/egi;$varde =~ s/%([A-F0-9]{2})/chr(hex($1))/egi;if ($formvariabel{$namn}){$formvariabel{$namn} .= "\n$varde";}else{$formvariabel{$namn} = $varde;}}return scalar(@formvariabel);}sub Kolla_Om_Redan_Rostat(){my (@par, $namn, $varde, $tid);return unless $ENV{'HTTP_COOKIE'};@par = split (/; /,$ENV{'HTTP_COOKIE'});foreach $par (@par){($namn, $varde) = split(/=/, $par);if ($namn eq "Fraga_$_[0]"){open(FIL, "<dokument/snabbfraga\_$_[0]\.dat");@fil = <FIL>;close(FIL);$tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($varde eq $variabel{'Fraga_ID'}) && ($tid > $variabel{'Tid_Start'}) && ($tid < $variabel{'Tid_Stopp'})){$Fraga_Redan_Rostat = 1;}last if $Fraga_Redan_Rostat == 1;}}}}sub accessDokument(){my ($rad, %variabel, %tabellData, $ReturVarde, @fil, @par, $namn, $varde, $Avbryt);$ReturVarde = 0;open(FIL, "<databas_dokument_$_[1].dat");@fil = <FIL>;close(FIL);$Avbryt = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'nr'} eq $_[0]){$Avbryt = 1;if ($variabel{'PW'} eq "J"){%tabellData = %variabel;$ReturVarde = 0;}else{$ReturVarde = 1;}}last if $Avbryt == 1;}if ($Avbryt == 0){$ReturVarde = 1;}if ($ReturVarde == 0){if (($id eq "0") && ($pw eq "0")){@par = split (/; /,$ENV{'HTTP_COOKIE'});foreach $par (@par){($namn, $varde) = split(/=/, $par);if ($namn eq "AKWPS_id"){$id = $varde;}elsif ($namn eq "AKWPS_pw"){$pw = $varde;}}}if (($id ne "0") && ($pw ne "0")){open(FIL, "<databas_anvandare.dat");@fil = <FIL>;close(FIL);$Avbryt = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'id'} eq $id) && ($variabel{'pw'} eq $pw)){$Avbryt = 1;if ($variabel{'Grupp_ID'} eq $tabellData{'ID'}){$ReturVarde = 1;}else{my @Anvandargrupp_Dokument = split(/,/, $tabellData{'ID'});my @Anvandargrupp_Anvandare = split(/,/, $variabel{'Grupp_ID'});foreach $Temp_Dok (@Anvandargrupp_Dokument){foreach $Temp_Anv (@Anvandargrupp_Anvandare){if ($Temp_Dok eq $Temp_Anv){$ReturVarde = 1;}last if $ReturVarde == 1;}last if $ReturVarde == 1;}}}last if $Avbryt == 1;}}}return ($ReturVarde);}sub accessValdMapp(){my ($rad, %variabel, %tabellData, $ReturVarde, @fil, @par, $namn, $varde, $Avbryt);$ReturVarde = 0;open(FIL, "<${cgidir}/databas_mappar_secure.dat");@fil = <FIL>;close(FIL);my $Grupp_ID = "";foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'Mapp'} eq $_[0]){$Grupp_ID = $variabel{'Grupp_ID'};}last if $Grupp_ID ne "";}my @Anvandargrupp_Anvandare = split(/,/, $Grupp_ID);if (($id eq "0") && ($pw eq "0")){@par = split (/; /,$ENV{'HTTP_COOKIE'});foreach $par (@par){($namn, $varde) = split(/=/, $par);if ($namn eq "AKWPS_id"){$id = $varde;}elsif ($namn eq "AKWPS_pw"){$pw = $varde;}}}if (($id ne "0") && ($pw ne "0")){open(FIL, "<databas_anvandare.dat");@fil = <FIL>;close(FIL);$Avbryt = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'id'} eq $id) && ($variabel{'pw'} eq $pw)){$Avbryt = 1;if ($variabel{'Grupp_ID'} eq $Grupp_ID){$ReturVarde = 1;}else{my @Anvandargrupp_Mappar = split(/,/, $Grupp_ID);my @Anvandargrupp_Anvandare = split(/,/, $variabel{'Grupp_ID'});foreach $Temp_Mapp (@Anvandargrupp_Mappar){foreach $Temp_Anv (@Anvandargrupp_Anvandare){if ($Temp_Mapp eq $Temp_Anv){$ReturVarde = 1;}last if $ReturVarde == 1;}last if $ReturVarde == 1;}}}last if $Avbryt == 1;}}return ($ReturVarde);}sub skrivut_dokument_singlepage(){my ($htmlRad, @htmlFil, $rad);local (%installningar, $hittatPost);if ($formvariabel{'Sprak_ID'} ne ""){open(INSTALLNINGAR, "<databas_installningar_$formvariabel{'Sprak_ID'}.dat");my @installningar = <INSTALLNINGAR>;close(INSTALLNINGAR);foreach $inst_rad (@installningar){%installningar = &tolka_rad($inst_rad);last;}}$hittatPost = 0;if (($formvariabel{'nr'} ne "") && ($formvariabel{'Sprak_ID'} ne "")){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){$tabellData{'Mall_Grafik'} = "0";%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}}elsif ($formvariabel{'funk'} eq "Start"){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);my $Avbryt = 0;foreach $rad (@fil){$tabellData{'Mall_Grafik'} = "0";%variabel = &tolka_rad($rad);if ($variabel{'nr'} eq "start_$formvariabel{'Sprak_ID'}"){$tabellData{'Mall_Grafik'} = $variabel{'Mall_Grafik'};$Avbryt = 1;}last if $Avbryt == 1;}}if ($fraga_slutfor eq "ja"){&skrivut_snabbfraga_slutfor;}my $accessOK = 0;if ($formvariabel{'nr'} eq ""){$accessOK = 1;}else{$accessOK = &accessDokument("$formvariabel{'nr'}", "$formvariabel{'Sprak_ID'}");}my (@htmlFil);my $Egen_Mall_Fran_Webbverktyg_Finns = 0;if (($tabellData{'Mall_Grafik'} ne "") && ($tabellData{'Mall_Grafik'} ne "0")){open TEMP, (-e "${cgidir}/mallar/grafiskamallar/$tabellData{'Mall_Grafik'}" ? ($Egen_Mall_Fran_Webbverktyg_Finns=1) : ($Egen_Mall_Fran_Webbverktyg_Finns=0)); close(TEMP);if ($Egen_Mall_Fran_Webbverktyg_Finns == 1){open(HTMLFIL, "<${cgidir}/mallar/grafiskamallar/$tabellData{'Mall_Grafik'}");@htmlFil = <HTMLFIL>;close(HTMLFIL);}}if ($Egen_Mall_Fran_Webbverktyg_Finns == 0){my $Egen_Mall_Finns = 0;open TEMP, (-e "${cgidir}/mallar/arbetsyta_singlepage_egendefinierad\.$formvariabel{'Sprak_ID'}\.html" ? ($Egen_Mall_Finns=1) : ($Egen_Mall_Finns=0)); close(TEMP);if (($Egen_Mall_Finns == 1) && ($installningar{'Mall_Layout'} eq "E")){open(HTMLFIL, "<${cgidir}/mallar/arbetsyta_singlepage\.$formvariabel{'Sprak_ID'}\.html");@htmlFil = <HTMLFIL>;close(HTMLFIL);my $Skriv_Ut_Rad = 1;my (@nyfil);foreach $htmlRad (@htmlFil){if (($htmlRad =~ m/\<body(.*?)\>/igs) && ($Skriv_Ut_Rad == 1)){$Skriv_Ut_Rad = 0;push @nyfil, $htmlRad;open(EGENMALL, "<${cgidir}/mallar/arbetsyta_singlepage_egendefinierad\.$formvariabel{'Sprak_ID'}\.html");my @egenMall = <EGENMALL>;close(EGENMALL);push @nyfil, @egenMall;}elsif (($htmlRad =~ m/\<\/body(.*?)\>/igs) && ($Skriv_Ut_Rad == 0)){$Skriv_Ut_Rad = 1;push @nyfil, $htmlRad;}elsif ($Skriv_Ut_Rad == 1){push @nyfil, $htmlRad;}}@htmlFil = @nyfil;}else{my $Nr_Att_Anvanda = $formvariabel{'nr'};if ($VisaStart == 1){$Nr_Att_Anvanda = "start\_$formvariabel{'Sprak_ID'}";}my $Separat_Mall = 0;open TEMP, (-e "${cgidir}/mallar/arbetsyta_singlepage_${Nr_Att_Anvanda}\.$formvariabel{'Sprak_ID'}\.html" ? ($Separat_Mall=1) : ($Separat_Mall=0)); close(TEMP);if ($Separat_Mall == 1){open(HTMLFIL, "<${cgidir}/mallar/arbetsyta_singlepage_${Nr_Att_Anvanda}\.$formvariabel{'Sprak_ID'}\.html");@htmlFil = <HTMLFIL>;close(HTMLFIL);}else{open(HTMLFIL, "<${cgidir}/mallar/arbetsyta_singlepage\.$formvariabel{'Sprak_ID'}\.html");@htmlFil = <HTMLFIL>;close(HTMLFIL);}}}print "Content-type: text/html\n\n";print "${copyNotice}\n\n\n\n\n";foreach $htmlRad (@htmlFil){$htmlRad =~ s/\.\.\/\.\.\/\.\.\/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\/\.\.\/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\//${basehref}\//igs;if ($htmlRad =~ m/\<\!\-\- AIR\:Nyhetsdatabas - ID="(.*?)" - Sprak_ID="(.*?)" - Antal="(.*?)" - Typ="(.*?)" \-\-\>/igs){my $TEMP1 = $1;my $TEMP2 = $2;my $TEMP3 = $3;my $TEMP4 = $4;$htmlRad =~ s/\<\!\-\- AIR\:Nyhetsdatabas - ID="(.*?)" - Sprak_ID="(.*?)" - Antal="(.*?)" - Typ="(.*?)" \-\-\>//igs;&skrivut_nyheter_tagg_typ1("$TEMP1", "$TEMP2", "$TEMP3", "$TEMP4");}if ($htmlRad =~ m/\<\!\-\- AIR\:Kalendarium - ID="(.*?)" - Sprak_ID="(.*?)" - Antal="(.*?)" - Typ="(.*?)" \-\-\>/igs){my $TEMP1 = $1;my $TEMP2 = $2;my $TEMP3 = $3;my $TEMP4 = $4;$htmlRad =~ s/\<\!\-\- AIR\:Kalendarium - ID="(.*?)" - Sprak_ID="(.*?)" - Antal="(.*?)" - Typ="(.*?)" \-\-\>//igs;if ($TEMP4 eq "2"){&skrivut_kalendarium_typ2("100%", "$TEMP1", "$TEMP3", "N");}elsif ($TEMP4 eq "3"){&skrivut_kalendarium_typ3("100%", "$TEMP1", "$TEMP3", "N");}elsif ($TEMP4 eq "4"){&skrivut_kalendarium_typ4("100%", "$TEMP1", "$TEMP3", "N");}else{&skrivut_kalendarium_typ1("100%", "N", "$TEMP1", "N");}}if ($htmlRad =~ m/\<\!\-\- AIR\:Sida - ID="(.*?)" - Sprak_ID="(.*?)" \-\-\>/igs){my $TEMP1 = $1;my $TEMP2 = $2;$htmlRad =~ s/\<\!\-\- AIR\:Sida - ID="(.*?)" - Sprak_ID="(.*?)" \-\-\>//igs;&skrivut_dokument_enskilt("$TEMP1", "$TEMP2");}if ($htmlRad =~ m/\<input name="nr" type="hidden" value="(.*?)"\>/igs){$htmlRad =~ s/\<input name="nr" type="hidden" value="(.*?)"\>/\<input name="nr" type="hidden" value="$formvariabel{'nr'}"\>/igs;}if (($htmlRad =~ m/\<meta name="keywords" content="(.*?)"\>/igs) && ($tabellData{'sokord'} ne "")){$htmlRad =~ s/\<meta name="keywords" content="(.*?)"\>/\<meta name="keywords" content="$tabellData{'sokord'}"\>/igs;}if ($htmlRad =~ m/\<meta name="description" content="(.*?)"\>/igs){if ($tabellData{'sokbeskr'} ne "") {$htmlRad =~ s/\<meta name="description" content="(.*?)"\>/\<meta name="description" content="$tabellData{'sokbeskr'}"\>/igs;}elsif (($tabellData{'sokbeskr'} eq "") && ($tabellData{'beskr'} ne "")) {$htmlRad =~ s/\<meta name="description" content="(.*?)"\>/\<meta name="description" content="$tabellData{'beskr'}"\>/igs;}}if (($htmlRad =~ m/\<link href="(.*?)"/igs) && (-e "${basedir}/inc/styles_egendefinierad\.$formvariabel{'Sprak_ID'}\.css") && ($installningar{'Mall_CSS'} eq "E")){$htmlRad =~ s/\<link href="(.*?)"/\<link href="${basehref}\/inc\/styles_egendefinierad\.$formvariabel{'Sprak_ID'}\.css"/igs;}if ($htmlRad =~ m/\<\!\-\- AIR\:Titel \-\-\>/igs){if (($formvariabel{'nr'} ne "") && ($hittatPost == 1)){$htmlRad =~ s/\<\!\-\- AIR\:Titel \-\-\>/$tabellData{'beskr'}/igs;}else{$htmlRad =~ s/\<\!\-\- AIR\:Titel \-\-\>/${foretag}/igs;}}if ($htmlRad =~ m/\<\!\-\- AIR\:Navigation \-\-\>/igs){$htmlRad =~ s/\<\!\-\- AIR\:Navigation \-\-\>//igs;if ($installningar{'Menytyp'} eq "2"){&skrivut_navigation_typ2("0");}elsif ($installningar{'Menytyp'} eq "3"){&skrivut_navigation_popdown_ny("vertical", "right", "right");}elsif ($installningar{'Menytyp'} eq "4"){&skrivut_navigation_popdown_ny("horizontal", "left", "right");}elsif ($installningar{'Menytyp'} eq "5"){&skrivut_navigation_typ5("0");}else{&skrivut_navigation_typ1("0");}}if ($htmlRad =~ m/\<\!\-\- AIR\:Navigation - Niva="(.*?)" \-\-\>/igs){my $TEMP1 = $1;$htmlRad =~ s/\<\!\-\- AIR\:Navigation - Niva="(.*?)" \-\-\>//igs;if ($installningar{'Menytyp'} eq "2"){&skrivut_navigation_typ2("$TEMP1");}elsif ($installningar{'Menytyp'} eq "3"){&skrivut_navigation_popdown_ny("vertical", "right", "right");}elsif ($installningar{'Menytyp'} eq "4"){&skrivut_navigation_popdown_ny("horizontal", "left", "right");}elsif ($installningar{'Menytyp'} eq "5"){&skrivut_navigation_typ5("$TEMP1");}else{&skrivut_navigation_typ1("$TEMP1");}}if ($htmlRad =~ m/\<\!\-\- AIR\:Navigation_Underrubriker \-\-\>/igs){$htmlRad =~ s/\<\!\-\- AIR\:Navigation_Underrubriker \-\-\>//igs;if ($installningar{'Menytyp'} eq "5"){&skrivut_navigation_typ1("1");}}if ($htmlRad =~ m/\<\!\-\- AIR\:Arbetsyta \-\-\>/igs){$htmlRad =~ s/\<\!\-\- AIR\:Arbetsyta \-\-\>//igs;if ($accessOK == 0){&skrivut_dokument_ident();}elsif ($accessOK == 1){if ($VisaSok == 1){&skrivut_dokument_sok();}elsif ($VisaNyhet == 1){&skrivut_nyheter_enskild();}elsif ($VisaKalendariumEns == 1){&skrivut_kalendarium_enskild();}elsif ($VisaGastbok_Ny == 1){&skrivut_gastbok_ny();}elsif ($VisaGastbok_Ny_Slutfor == 1){&skrivut_gastbok_ny_slutfor();}elsif ($VisaStart == 1){if ($installningar{'Startsidan_Layoutmall'} eq "2"){&skrivut_start_typ2();}elsif ($installningar{'Startsidan_Layoutmall'} eq "3"){&skrivut_start_typ3();}elsif ($installningar{'Startsidan_Layoutmall'} eq "4"){&skrivut_start_typ4();}else{&skrivut_start_typ1();}}elsif ($VisaForm == 1){&skrivut_formularsvar();}elsif ($Visa_Fraga_Meny == 1){&skrivut_snabbfraga_meny();}elsif ($Visa_Fraga_Enskild == 1){&skrivut_snabbfraga_enskild();}elsif ($VisaIdent == 1){&skrivut_dokument_ident();}elsif ($VisaLogout == 1){&skrivut_dokument_logout();}else{if ($hittatPost == 1){if ($tabellData{'DokTyp'} eq "L"){if ($tabellData{'Lank'} =~ m/${basehref}/igs){$tabellData{'Lank'} =~ s/${basehref}/${basedir}/igs;&skrivut_dokument_internt($tabellData{'Lank'});}else{&skrivut_dokument_singlepage_extern_lank("$tabellData{'Lank'}");}}elsif ($tabellData{'DokTyp'} eq "N"){if ($tabellData{'Layoutmall'} eq "2"){&skrivut_nyheter_typ2("100%", "$formvariabel{'nr'}", "0");}elsif ($tabellData{'Layoutmall'} eq "3"){&skrivut_nyheter_typ3("100%", "$formvariabel{'nr'}", "0");}elsif ($tabellData{'Layoutmall'} eq "4"){&skrivut_nyheter_typ4("100%", "$formvariabel{'nr'}", "0");}else{&skrivut_nyheter_typ1("100%", "$formvariabel{'nr'}", "0");}}elsif ($tabellData{'DokTyp'} eq "KALENDARIUM"){if ($tabellData{'Layoutmall'} eq "1"){&skrivut_kalendarium_typ1("100%", "J", "$formvariabel{'nr'}", "J");}elsif ($tabellData{'Layoutmall'} eq "2"){&skrivut_kalendarium_typ2("100%", "$formvariabel{'nr'}", "0", "J");}elsif ($tabellData{'Layoutmall'} eq "3"){&skrivut_kalendarium_typ3("100%", "$formvariabel{'nr'}", "0", "J");}else{&skrivut_kalendarium_typ4("100%", "$formvariabel{'nr'}", "0", "J");}}elsif ($tabellData{'DokTyp'} eq "GASTBOK"){&skrivut_gastbok();}elsif ($tabellData{'DokTyp'} eq "SNABBFRAGA"){&skrivut_snabbfraga_meny();}elsif (($tabellData{'DokTyp'} eq "W") || ($tabellData{'DokTyp'} eq "B")){&skrivut_dokument_enskilt();}}else{print "Error.<br><br>Sidan saknas / Page missing.<br>";}}}else{print "Error.";}}print "$htmlRad\n\n\n\n";}}sub skrivut_skript_swapImage(){print "<script language=\"JavaScript\">\n";print "<!--\n";print "function MM_preloadImages() { //v3.0\n";print "  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();\n";print "    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)\n";print "    if (a[i].indexOf(\"\#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}\n";print "}\n";print "function MM_swapImgRestore() { //v3.0\n";print "  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;\n";print "}\n";print "function MM_findObj(n, d) { //v3.0\n";print "  var p,i,x;  if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {\n";print "    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}\n";print "  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];\n";print "  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;\n";print "}\n";print "function MM_swapImage() { //v3.0\n";print "  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)\n";print "   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}\n";print "}\n";print "//-->\n";print "</script>\n\n";}sub skrivut_navigation_typ1(){my (@dokument, $NavRad, $DokRad);local (@Nivaer);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@dokument = <DOKUMENT>;close(DOKUMENT);if (($formvariabel{'nr'} ne "") && ($hittatPost == 1)){my $AvbrytSnurra = 0;my $NrAttKollaEfter = $formvariabel{'nr'};while ($AvbrytSnurra == 0){my $Avbryt = 0;foreach $DokRad (@dokument){my %variabel = &tolka_rad($DokRad);if ($variabel{'nr'} eq $NrAttKollaEfter){my $Niva = $variabel{'niva'}+1;$Nivaer[$Niva] = $variabel{'nr'};$NrAttKollaEfter = $variabel{'ugrpnamn'};$Avbryt = 1;if ($variabel{'niva'} eq "0"){$AvbrytSnurra = 1;}}last if $Avbryt == 1;}}}else{$Nivaer[0] = "";}print "<!-- NAV_START -->\n\n\n\n\n";print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";&skrivut_navigation_typ1_utskrift("", "$_[0]");print "      </table>\n\n\n\n\n";print "<!-- NAV_STOPP -->\n\n\n\n\n";}sub skrivut_navigation_typ1_utskrift(){my @SorteradFil = &skrivut_navigation_laddadata($_[0]);foreach $NavRad (@SorteradFil){my %NavVar = &tolka_rad($NavRad);if ($NavVar{'niva'} >= $_[1]){my $Lank = "";my $Klass = "";my $Indrag = "";my $NivaRaknare = $NavVar{'niva'} + 1;if (($NavVar{'DokTyp'} eq "L") && ($NavVar{'LankMal'} eq "AKWebPubArbetsyta")){$Lank = "<a href=\"$NavVar{'Lank'}\">";}elsif (($NavVar{'DokTyp'} eq "L") && ($NavVar{'LankMal'} ne "AKWebPubArbetsyta")){$Lank = "<a href=\"$NavVar{'Lank'}\" target=\"$NavVar{'LankMal'}\">";}else{$Lank = "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$NavVar{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\" target=\"_top\">";}if (($NavVar{'nr'} eq $formvariabel{'nr'}) || ($NavVar{'nr'} eq $Nivaer[$NivaRaknare])){$Klass = "menyTyp1Rubrik";}else{$Klass = "menyTyp1";}if ($NavVar{'niva'} > $_[1]){for ($i = $_[1]; $i < $NavVar{'niva'}; $i++){$Indrag .= "&nbsp;&nbsp;&nbsp;";}}print "        <tr>\n\n\n\n\n";print "          <td class=\"${Klass}\">${Lank}${Indrag}&raquo; $NavVar{'beskr'}</a></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";}foreach $VariabelSomSkaKollasKorasOchSkrivas (@Nivaer){if ($NavVar{'nr'} eq $VariabelSomSkaKollasKorasOchSkrivas){&skrivut_navigation_typ1_utskrift($VariabelSomSkaKollasKorasOchSkrivas, "$_[1]");}}}}sub skrivut_navigation_typ2(){my (@dokument, @Nivaer, $NavRad, $DokRad);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@dokument = <DOKUMENT>;close(DOKUMENT);if (($formvariabel{'nr'} ne "") && ($hittatPost == 1)){my $AvbrytSnurra = 0;my $NrAttKollaEfter = $formvariabel{'nr'};while ($AvbrytSnurra == 0){my $Avbryt = 0;foreach $DokRad (@dokument){my %variabel = &tolka_rad($DokRad);if ($variabel{'nr'} eq $NrAttKollaEfter){my $Niva = $variabel{'niva'}+1;$Nivaer[$Niva] = $variabel{'nr'};$NrAttKollaEfter = $variabel{'ugrpnamn'};$Avbryt = 1;if ($variabel{'niva'} eq "0"){$AvbrytSnurra = 1;}}last if $Avbryt == 1;}}}else{$Nivaer[0] = "";}print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";my $NivaRaknare = 0;foreach $VariabelSomSkaKollasKorasOchSkrivas (@Nivaer){$NivaRaknare++;if ($NivaRaknare > 1){print "        <tr>\n\n\n\n\n";print "          <td width=\"100%\" height=\"1\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"1\" height=\"1\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";}my @SorteradFil = &skrivut_navigation_laddadata($VariabelSomSkaKollasKorasOchSkrivas);my $PaborjaUtskrift = 0;foreach $NavRad (@SorteradFil){if ($PaborjaUtskrift == 0){$PaborjaUtskrift = 1;print "        <tr>\n\n\n\n\n";print "          <td width=\"100%\" class=\"menyTyp2Niva${NivaRaknare}\">";}my %NavVar = &tolka_rad($NavRad);my $NivaAttAnvanda = $NavVar{'niva'}+1;if (($NavVar{'DokTyp'} eq "L") && ($NavVar{'LankMal'} eq "AKWebPubArbetsyta")){$Lank = "<a href=\"$NavVar{'Lank'}\"";}elsif (($NavVar{'DokTyp'} eq "L") && ($NavVar{'LankMal'} ne "AKWebPubArbetsyta")){$Lank = "<a href=\"$NavVar{'Lank'}\" target=\"$NavVar{'LankMal'}\"";}else{$Lank = "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$NavVar{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\" target=\"_top\"";}if (($NavVar{'nr'} eq $formvariabel{'nr'}) || ($NavVar{'nr'} eq $Nivaer[$NivaRaknare])){$Lank .= " class=\"menyTyp2Niva${NivaAttAnvanda}Markerad\">";print "${Lank}$NavVar{'beskr'}</a>";}else{$Lank .= ">";print "${Lank}$NavVar{'beskr'}</a>";}}if ($PaborjaUtskrift == 1){print "</td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";}}print "      </table>\n\n\n\n\n";}sub skrivut_navigation_laddadata(){my (@dokument, $nyRad, @filAttSortera, @returVarde, $DokRad);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@dokument = <DOKUMENT>;close(DOKUMENT);foreach $DokRad (@dokument){%variabel = &tolka_rad($DokRad);if (($variabel{'ugrpnamn'} eq $_[0]) && ($variabel{'visa_nav'} ne "0")){$nyRad = "$variabel{'Sortering'}!eq!Sortering";$nyRad .= "!ny!beskr!eq!$variabel{'beskr'}";$nyRad .= "!ny!nr!eq!$variabel{'nr'}";$nyRad .= "!ny!DokTyp!eq!$variabel{'DokTyp'}";$nyRad .= "!ny!Lank!eq!$variabel{'Lank'}";$nyRad .= "!ny!LankMal!eq!$variabel{'LankMal'}";$nyRad .= "!ny!visa_nav!eq!$variabel{'visa_nav'}";$nyRad .= "!ny!niva!eq!$variabel{'niva'}";$nyRad .= "!ny!ugrp!eq!$variabel{'ugrp'}";$nyRad .= "!ny!ugrpnamn!eq!$variabel{'ugrpnamn'}";$nyRad .= "!ny!ID!eq!$variabel{'ID'}";$nyRad .= "!ny!PW!eq!$variabel{'PW'}";push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach $DokRad (@filAttSortera){%variabel = &tolka_rad($DokRad);$nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "Sortering") {$nyRad .= "!ny!${varde}!eq!${index}";}else {$nyRad .= "!ny!${index}!eq!${varde}";}}push @returVarde, $nyRad;}return (@returVarde);}sub skrivut_navigation_popdown_ny(){my (@Nivaer);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");my @dokument = <DOKUMENT>;close(DOKUMENT);if (($formvariabel{'nr'} ne "") && ($hittatPost == 1)){my $AvbrytSnurra = 0;my $NrAttKollaEfter = $formvariabel{'nr'};while ($AvbrytSnurra == 0){my $Avbryt = 0;foreach my $DokRad (@dokument){my %variabel = &tolka_rad($DokRad);if ($variabel{'nr'} eq $NrAttKollaEfter){my $Niva = $variabel{'niva'}+1;$Nivaer[$Niva] = $variabel{'nr'};$NrAttKollaEfter = $variabel{'ugrpnamn'};$Avbryt = 1;if ($variabel{'niva'} eq "0"){$AvbrytSnurra = 1;}}last if $Avbryt == 1;}}}else{$Nivaer[0] = "";}local (@Rader_Att_Skriva, $Raknare);$Raknare = 0;&skrivut_navigation_popdown_ny_navobjekt("", "$formvariabel{'Sprak_ID'}", "0");print "<script language=\"JavaScript1.2\" src=\"${basehref}/inc/api.js\" type=\"text/javascript\"></script>\n";print "<script language=\"JavaScript1.2\" src=\"${basehref}/inc/menucode.js\" type=\"text/javascript\"></script>\n";print "<script language=\"JavaScript1.2\" type=\"text/javascript\">\n";print "<!--\n";print "sniffBrowsers();\n";print "costanzaMeny = new menuBar('costanzaMeny', 0, '$_[0]', '', '');\n";print "costanzaMeny.height = 14;\n";foreach $Rad (@Rader_Att_Skriva){my ($ID, $Agare, $Beskr, $Lank, $Niva, $Nr) = split(/\t/, $Rad);if ($Agare eq "0"){my $NivaRaknare = $Niva + 1;my $Klass = "menyTypPopDown";if (($Nr eq $formvariabel{'nr'}) || ($Nr eq $Nivaer[$NivaRaknare])){$Klass = "menyTypPopDown_Markerad";}print "costanzaMeny.addLabel('$Beskr', $ID, '', '', '$Klass', '$Lank', 'left');\n";}}foreach $Rad (@Rader_Att_Skriva){my ($ID, $Agare, $Beskr, $Lank, $Niva, $Nr) = split(/\t/, $Rad);print "menus[$ID] = new menu(120, 'vertical', '', '');\n";print "menus[$ID].height=1;\n";foreach $Rad2 (@Rader_Att_Skriva){my ($ID2, $Agare2, $Beskr2, $Lank2, $Niva2, $Nr2) = split(/\t/, $Rad2);if ($Agare2 eq $ID){print "menus[$ID].addItem('$Beskr2', $ID2, 100, '', '', '$Lank2','left');\n";}}print "menus[$ID].writeMenu();\n";if ($Niva > 0){print "menus[$ID].align='$_[2]';\n";}else{print "menus[$ID].align='$_[1]';\n";}}print "//-->\n";print "</script>\n";print "<div style=\"position: relative; top: 0px;\">\n";print "<script language=\"JavaScript1.2\" type=\"text/javascript\">\n";print "<!--\n";print "costanzaMeny.writeMenuBar();\n";print "//-->\n";print "</script>\n";print "</div>\n";}sub skrivut_navigation_popdown_ny_navobjekt(){my ($i, $rad, %variabel, @fil, $nyRad, @filAttSortera, @sorteradFil);open(FIL, "<databas_dokument_$_[1].dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'ugrpnamn'} eq $_[0]) && ($variabel{'visa_nav'} eq "1")){$nyRad = "$variabel{'Sortering'}!eq!Sortering";while (my ($index, $varde) = each %variabel){if ($index ne "Sortering"){$nyRad .= "!ny!${index}!eq!${varde}";}}push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach $rad (@filAttSortera){%variabel = &tolka_rad($rad);$nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "Sortering"){$nyRad .= "!ny!${varde}!eq!${index}";}else{$nyRad .= "!ny!${index}!eq!${varde}";}}push @sorteradFil, $nyRad;}foreach $rad (@sorteradFil){$Raknare++;%variabel = &tolka_rad($rad);my $NIVA = "$variabel{'niva'}";my $BESKR = "$variabel{'beskr'}";my $LANK = "";if (($variabel{'DokTyp'} eq "L") && (($variabel{'LankMal'} eq "_top") || ($variabel{'LankMal'} eq "AKWebPubArbetsyta"))){$LANK = $variabel{'Lank'};}elsif (($variabel{'DokTyp'} eq "L") && ($variabel{'LankMal'} eq "_blank")){$LANK  = "${cgihref}/ak_webbpub-s.cgi?funk=VisaExternLank";$LANK .= "&nr=$variabel{'nr'}";$LANK .= "&Sprak_ID=$_[1]";$LANK .= "&DokTyp=$variabel{'DokTyp'}";$LANK .= "&LankMal=$variabel{'LankMal'}";}else{$LANK = "${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$variabel{'nr'}&Sprak_ID=$_[1]";}$BESKR =~ s/\'/\\'/igs;$BESKR =~ s/\"/\\\"/igs;push @Rader_Att_Skriva, "$Raknare\t$_[2]\t${BESKR}\t${LANK}\t${NIVA}\t$variabel{'nr'}";&skrivut_navigation_popdown_ny_navobjekt($variabel{'nr'}, $_[1], "$Raknare");}}sub skrivut_navigation_typ5(){my (@dokument, @filAttSortera, @SorteradFil, @Nivaer);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@dokument = <DOKUMENT>;close(DOKUMENT);if (($formvariabel{'nr'} ne "") && ($hittatPost == 1)){my $AvbrytSnurra = 0;my $NrAttKollaEfter = $formvariabel{'nr'};while ($AvbrytSnurra == 0){my $Avbryt = 0;foreach my $DokRad (@dokument){my %variabel = &tolka_rad($DokRad);if ($variabel{'nr'} eq $NrAttKollaEfter){my $Niva = $variabel{'niva'};$Nivaer[$Niva] = $variabel{'nr'};$NrAttKollaEfter = $variabel{'ugrpnamn'};$Avbryt = 1;if ($variabel{'niva'} eq "0"){$AvbrytSnurra = 1;}}last if $Avbryt == 1;}}}else{$Nivaer[0] = "";}foreach my $DokRad (@dokument){my %variabel = &tolka_rad($DokRad);if (($variabel{'niva'} eq "0") && ($variabel{'visa_nav'} ne "0")){my $nyRad = "$variabel{'Sortering'}!eq!Sortering";$nyRad .= "!ny!beskr!eq!$variabel{'beskr'}";$nyRad .= "!ny!nr!eq!$variabel{'nr'}";$nyRad .= "!ny!DokTyp!eq!$variabel{'DokTyp'}";$nyRad .= "!ny!Lank!eq!$variabel{'Lank'}";$nyRad .= "!ny!LankMal!eq!$variabel{'LankMal'}";$nyRad .= "!ny!visa_nav!eq!$variabel{'visa_nav'}";$nyRad .= "!ny!niva!eq!$variabel{'niva'}";$nyRad .= "!ny!ugrp!eq!$variabel{'ugrp'}";$nyRad .= "!ny!ugrpnamn!eq!$variabel{'ugrpnamn'}";$nyRad .= "!ny!ID!eq!$variabel{'ID'}";$nyRad .= "!ny!PW!eq!$variabel{'PW'}";push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach my $DokRad (@filAttSortera){my %variabel = &tolka_rad($DokRad);my $nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "Sortering") {$nyRad .= "!ny!${varde}!eq!${index}";}else {$nyRad .= "!ny!${index}!eq!${varde}";}}push @SorteradFil, $nyRad;}print "      <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";foreach my $NavRad (@SorteradFil){my %NavVar = &tolka_rad($NavRad);my $Lank = "";my $Klass = "menyTyp5";if (($NavVar{'DokTyp'} eq "L") && ($NavVar{'LankMal'} eq "AKWebPubArbetsyta")){$Lank = "<a href=\"$NavVar{'Lank'}\">";}elsif (($NavVar{'DokTyp'} eq "L") && ($NavVar{'LankMal'} ne "AKWebPubArbetsyta")){$Lank = "<a href=\"$NavVar{'Lank'}\" target=\"$NavVar{'LankMal'}\">";}else{$Lank = "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$NavVar{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\" target=\"_top\">";}if (($NavVar{'nr'} eq $formvariabel{'nr'}) || ($NavVar{'nr'} eq $Nivaer[0])){$Klass = "menyTyp5Markerad";}print "          <td class=\"${Klass}_Vanster\"></td>\n\n\n\n\n";print "          <td class=\"${Klass}\" nowrap>${Lank}$NavVar{'beskr'}</a></td>\n\n\n\n\n";print "          <td class=\"${Klass}_Hoger\"></td>\n\n\n\n\n";}print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";}sub skrivut_dokument_enskilt(){my ($antalHittade, $rad, %variabel, @fil);my ($hittatPost,$t_nr,$t_tid,$t_tid_uppdat,$t_visa_tid,$t_visa_tid_uppdat,$t_funk,$t_beskr,$t_text,@t_bj,$s,$m,$h,$andradDag,$andradMan,$andradAr,$andradVdag,$yday,$isdst);my $Lokalt_nr = "";my $Lokalt_Sprak_ID = "";if (($_[0] eq "") && ($_[1] eq "")){$Lokalt_nr = $formvariabel{'nr'};$Lokalt_Sprak_ID = $formvariabel{'Sprak_ID'};}else{$Lokalt_nr = $_[0];$Lokalt_Sprak_ID = $_[1];}open(FIL, "<databas_dokument_${Lokalt_Sprak_ID}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'nr'} eq $Lokalt_nr){$hittatPost = 1;}last if $hittatPost == 1;}if ($hittatPost == 1){open(FIL, "<dokument/dokument\_${Lokalt_nr}\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){print "${rad}";}}elsif ($hittatPost == 0){print "<b><font color=\"\#CC0000\">Ett fel uppstod.</b> Det dokument du valt kunde inte hittas. Kontakta administratören.</font><br>\n";}}sub skrivut_dokument_extern_lank(){my ($rad, %variabel, @fil, $tabellData, $avbryt);open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$avbryt = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'nr'} eq $formvariabel{'nr'}){$avbryt = 1;%tabellData = %variabel;}last if $avbryt == 1;}print "Content-type: text/html\n\n";print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";print "<html>\n";print "<head>\n";print "<title></title>\n";print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n";print "</head>\n";print "<body leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" bgcolor=\"\#FFFFFF\">\n";print "<script language=\"JavaScript\">\n";print "<!--\n";print "  function AK_popUp(nyUrl)\n";print "  {\n";print "    remote = window.open(\"\",\"NyttFonster\",\"width=800,height=600,menubar=yes,status=yes,scrollbars=yes,resizable=yes\");\n";print "    remote.location.href = nyUrl;\n";print "  }\n";print "  AK_popUp(\"$tabellData{'Lank'}\");\n";print "// -->\n";print "</script>\n";print "</body>\n";print "</html>\n";}sub skrivut_dokument_ident(){print "<form action=\"${cgihref}/ak_webbpub-s.cgi\" method=\"post\" target=\"_top\">\n";print "<input type=\"hidden\" name=\"Omstyr\" value=\"$formvariabel{'Omstyr'}\">\n";print "<input type=\"hidden\" name=\"Mapp\" value=\"$formvariabel{'Mapp'}\">\n";print "<input type=\"hidden\" name=\"Dok\" value=\"$formvariabel{'Dok'}\">\n";print "<input type=\"hidden\" name=\"nr\" value=\"$formvariabel{'nr'}\">\n";print "<input type=\"hidden\" name=\"typ\" value=\"$formvariabel{'typ'}\">\n";print "<input type=\"hidden\" name=\"Sprak_ID\" value=\"$formvariabel{'Sprak_ID'}\">\n";print "<input type=\"hidden\" name=\"funk\" value=\"VisaIdentSlutfor\">\n";print "Denna sida är lösenordsskyddad. Ange ditt användarnamn och lösenord och klicka på \"Fortsätt\" nedan för att fortsätta.<br>\n";print "<br>\n";if (($formvariabel{'funk'} eq "VisaIdentSlutfor") && ($kontroll_ok == 0)){print "<font color=\"\#CC0000\"><b>Fel användarnamn och/eller lösenord. Försök igen.</b></font><br>\n";print "<br>\n";}print "<table border=\"0\" cellspacing=\"1\" cellpadding=\"1\">\n";print "  <tr>\n";print "    <td valign=\"middle\" bgcolor=\"\#DDDDDD\"><b>Användarnamn:<br></b></font></td>\n";print "    <td valign=\"middle\" bgcolor=\"\#EEEEEE\"><input type=\"text\" name=\"id\" size=\"10\"><br></font></td>\n";print "  </tr>\n";print "  <tr>\n";print "    <td valign=\"middle\" bgcolor=\"\#DDDDDD\"><b>Lösenord:&nbsp;<br></b></font></td>\n";print "    <td valign=\"middle\" bgcolor=\"\#EEEEEE\"><input type=\"password\" name=\"pw\" size=\"10\"><br></font></td>\n";print "  </tr>\n";print "  <tr>\n";print "    <td valign=\"middle\" bgcolor=\"\#DDDDDD\"><b>Spara i minnet?&nbsp;<br></b></font></td>\n";print "    <td valign=\"middle\" bgcolor=\"\#EEEEEE\"><input type=\"radio\" style=\"border:0px;\" name=\"Spara_Losen\" value=\"Y\">Ja&nbsp;&nbsp;&nbsp;<input type=\"radio\" style=\"border:0px;\" name=\"Spara_Losen\" value=\"N\" checked>Nej<br></font></td>\n";print "  </tr>\n";print "  <tr>\n";print "    <td valign=\"middle\" bgcolor=\"\#EEEEEE\" align=\"right\" colspan=\"2\"><input type=\"submit\" value=\"Fortsätt &raquo;\" border=\"0\" style=\"font-weight:bold\"></font></td>\n";print "  </tr>\n";print "</table>\n";print "</form>\n";}sub skrivut_dokument_ident_slutfor(){my ($user, $pass, $userC, $passC, $rad, %variabel, @fil);$kontroll_ok= 0;$user= $formvariabel{'id'};$pass= $formvariabel{'pw'};$userC= crypt $formvariabel{'id'}, $foretag;$passC= crypt $formvariabel{'pw'}, $foretag;open(FIL, "<databas_anvandare.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'id'} eq $user) && ($variabel{'pw'} eq $pass)){$kontroll_ok= 1;$adminAccess= $variabel{'access'};}elsif (($variabel{'id'} eq $userC) && ($variabel{'pw'} eq $passC)){$kontroll_ok= 1;$adminAccess= $variabel{'access'};$user= $userC;$pass= $passC;}last if $kontroll_ok == 1;}if ($kontroll_ok == 1){print "Set-Cookie: AKWPS_id=$user; path=/; expires=Wed, 31-Dec-10 12:00:00 GMT;\n";print "Set-Cookie: AKWPS_pw=$pass; path=/; expires=Wed, 31-Dec-10 12:00:00 GMT;\n";$id   = $user;$pw   = $pass;if ($formvariabel{'funk'} eq "SB"){&skrivut_secure_bild();}else{&skrivut_dokument_singlepage();}}else{local $VisaIdent = 1;&skrivut_dokument_singlepage();}}sub skrivut_logout(){print "Set-Cookie: AKWPS_id=; path=/; expires=Wed, 31-Dec-03 12:00:00 GMT;\n";print "Set-Cookie: AKWPS_pw=; path=/; expires=Wed, 31-Dec-03 12:00:00 GMT;\n";$id = "0";$pw = "0";local $VisaLogout = 1;&skrivut_dokument_singlepage();}sub skrivut_dokument_logout(){print "<h1>Du har loggats ut</h1>\n";print "Du är nu utloggad.<br>\n";print "<br>\n";}sub skrivut_dokument_singlepage_extern_lank(){my (%sprak_text);if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'0001_0001'} = "External link";$sprak_text{'0001_0002'} = "An external link have been opened in a new window.";$sprak_text{'0001_0003'} = "If not, click here &raquo;";}else{$sprak_text{'0001_0001'} = "Extern länk";$sprak_text{'0001_0002'} = "En extern länk har öppnats i ett nytt fönster.";$sprak_text{'0001_0003'} = "Om inte, klicka här &raquo;";}print "      <script language=\"JavaScript\">\n\n\n\n";print "      <!--\n\n\n\n";print "        function AK_popUp(nyUrl)\n\n\n\n";print "        {\n\n\n\n";print "          remote = window.open(\"\",\"NyttFonster\",\"width=800,height=600,menubar=yes,toolbar=yes,status=yes,scrollbars=yes,resizable=yes\");\n\n\n\n";print "          remote.location.href = nyUrl;\n\n\n\n";print "        }\n\n\n\n";print "        AK_popUp(\"$_[0]\");\n\n\n\n";print "      // -->\n\n\n\n";print "      </script>\n\n\n\n";print "      <h1>$sprak_text{'0001_0001'}</h1>\n\n\n\n";print "     $sprak_text{'0001_0002'}<br>\n\n\n\n";print "     <a href=\"$_[0]\" target=\"_blank\">$sprak_text{'0001_0003'}</a><br>\n\n\n\n";print "      <br>\n\n\n\n";}sub skrivut_dokument_internt(){my ($htmlRad, @htmlRad);open(HTMLFIL, "<$_[0]");@htmlFil = <HTMLFIL>;close(HTMLFIL);$SkrivUt = 0;foreach $htmlRad (@htmlFil){$htmlRad =~ s/\.\.\/\.\.\/\.\.\/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\/\.\.\/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\/\.\.\//${basehref}\//igs;$htmlRad =~ s/\.\.\//${basehref}\//igs;if ($htmlRad =~ m/\<body.*?\>/igs){$htmlRad =~ s/\<body.*?\>//igs;$SkrivUt = 1;}if ($htmlRad =~ m/\<\/body\>/igs){$SkrivUt = 0;}if ($SkrivUt == 1){print "$htmlRad\n\n\n\n";}}}sub skrivut_nyheter_typ1(){my ($rad, @fil, %variabel);if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'saknas'} = "Currently there are no information available under this headline.";}else{$sprak_text{'saknas'} = "Just nu finns ingen information under denna rubrik.";}open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";open(FIL, "<dokument/nyheter\_$_[1]\.dat");@fil = <FIL>;close(FIL);my $antal = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }print "            <i>${year}-${month}-${day}, ${hour}:${minute}</i><br>\n\n\n\n\n";print "            <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Nyhet&Nyhet_ID=$variabel{'Nyhet_ID'}&nr=$_[1]&Sprak_ID=$formvariabel{'Sprak_ID'}\"><b>$variabel{'rubrik'}</b></a><br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";$antal++;last if $antal == $_[2] && $_[2] > 0;}if ($antal == 0){print "            $sprak_text{'saknas'}<br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";}else{$antal = 1;}print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";return ($antal);}sub skrivut_nyheter_typ2(){my ($rad, @fil, %variabel);if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'saknas'} = "Currently there are no information available under this headline.";}else{$sprak_text{'saknas'} = "Just nu finns ingen information under denna rubrik.";}open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";open(FIL, "<dokument/nyheter\_$_[1]\.dat");@fil = <FIL>;close(FIL);my $antal = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }print "      <i>${year}-${month}-${day}, ${hour}:${minute}</i><br>\n\n\n\n\n";print "      <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Nyhet&Nyhet_ID=$variabel{'Nyhet_ID'}&nr=$_[1]&Sprak_ID=$formvariabel{'Sprak_ID'}\"><font style=\"font-size:10pt;font-weight:bold\">$variabel{'rubrik'}</font><br>";if ($variabel{'Ingress'} ne ""){print "$variabel{'Ingress'}<br>";}print "</a>\n\n\n\n\n";print "      <br>\n\n\n\n\n";$antal++;last if $antal == $_[2] && $_[2] > 0;}if ($antal == 0){print "            $sprak_text{'saknas'}<br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";}else{$antal = 1;}print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";return ($antal);}sub skrivut_nyheter_typ3(){my ($rad, @fil, %variabel);if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'lasmer'} = "Read more";$sprak_text{'saknas'} = "Currently there are no information available under this headline.";}else{$sprak_text{'lasmer'} = "Läs mer";$sprak_text{'saknas'} = "Just nu finns ingen information under denna rubrik.";}open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";open(FIL, "<dokument/nyheter\_$_[1]\.dat");@fil = <FIL>;close(FIL);my $antal = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            <i>${year}-${month}-${day}, ${hour}:${minute}</i><br>\n\n\n\n\n";print "            <font style=\"font-size:10pt;font-weight:bold\">$variabel{'rubrik'}</font><br>\n\n\n\n\n";if ($variabel{'Ingress'} ne ""){print "            $variabel{'Ingress'}\n\n\n\n\n";}print "            <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Nyhet&Nyhet_ID=$variabel{'Nyhet_ID'}&nr=$_[1]&Sprak_ID=$formvariabel{'Sprak_ID'}\"><strong>$sprak_text{'lasmer'} &raquo;</strong></a>";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr align=\"center\" valign=\"top\">\n\n\n\n\n";print "          <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"15\" height=\"15\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr align=\"left\" valign=\"middle\" bgcolor=\"\#FFFFFF\">\n\n\n\n\n";print "          <td background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr align=\"center\" valign=\"top\">\n\n\n\n\n";print "          <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"15\" height=\"15\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";$antal++;last if $antal == $_[2] && $_[2] > 0;}if ($antal == 0){print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            $sprak_text{'saknas'}<br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";}else{$antal = 1;}print "      </table>\n\n\n\n\n";return ($antal);}sub skrivut_nyheter_typ4(){my ($rad, @fil, %variabel);if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'saknas'} = "Currently there are no information available under this headline.";}else{$sprak_text{'saknas'} = "Just nu finns ingen information under denna rubrik.";}open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";open(FIL, "<dokument/nyheter\_$_[1]\.dat");@fil = <FIL>;close(FIL);my $antal = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            <i>${year}-${month}-${day}, ${hour}:${minute}</i><br>\n\n\n\n\n";print "            <font style=\"font-size:10pt;font-weight:bold\">$variabel{'rubrik'}</font><br>\n\n\n\n\n";if ($variabel{'Ingress'} ne ""){print "            <strong>$variabel{'Ingress'}</strong><br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";}print "            $variabel{'text'}\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr align=\"center\" valign=\"top\">\n\n\n\n\n";print "          <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"15\" height=\"15\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr align=\"left\" valign=\"middle\" bgcolor=\"\#FFFFFF\">\n\n\n\n\n";print "          <td background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr align=\"center\" valign=\"top\">\n\n\n\n\n";print "          <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"15\" height=\"15\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";$antal++;last if $antal == $_[2] && $_[2] > 0;}if ($antal == 0){print "        <tr>\n\n\n\n\n";print "          <td>\n\n\n\n\n";print "            $sprak_text{'saknas'}<br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";}else{$antal = 1;}print "      </table>\n\n\n\n\n";return ($antal);}sub skrivut_nyheter_enskild(){my ($rad, @fil, %variabel);open(FIL, "<dokument/nyheter\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);$avbryt = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'Nyhet_ID'} eq $formvariabel{'Nyhet_ID'}){$avbryt = 1;print "      <h1>$variabel{'rubrik'}</h1>\n\n\n\n\n";if ($variabel{'Ingress'} ne ""){print "      <strong>$variabel{'Ingress'}</strong><br>\n\n\n\n\n";print "      <br>\n\n\n\n\n";}print "      $variabel{'text'}<br>\n\n\n\n\n";print "      <hr width=\"100%\" size=\"1\">\n\n\n\n\n";print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td align=\"left\" valign=\"top\">\n\n\n\n\n";if ($formvariabel{'Sprak_ID'} eq "sv"){print "            <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\" target=\"_top\">&laquo; Visa alla nyheter</a>\n\n\n\n\n";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "            <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\" target=\"_top\">&laquo; Show all news</a>\n\n\n\n\n";}print "          </td>\n\n\n\n\n";print "          <td align=\"right\" valign=\"top\">\n\n\n\n\n";($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }if ($formvariabel{'Sprak_ID'} eq "sv"){print "            Publicerad ${year}-${month}-${day}, ${hour}:${minute}<br>\n\n\n\n\n";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "            Published ${year}-${month}-${day}, ${hour}:${minute}<br>\n\n\n\n\n";}($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tidU'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }if ($formvariabel{'Sprak_ID'} eq "sv"){print "            Uppdaterad ${year}-${month}-${day}, ${hour}:${minute}<br>\n\n\n\n\n";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "            Updated ${year}-${month}-${day}, ${hour}:${minute}<br>\n\n\n\n\n";}print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";}last if $avbryt == 1;}print "      <br>\n\n\n\n\n";}sub skrivut_nyheter_tagg_typ1(){my ($rad, @fil, %variabel);open(FIL, "<dokument/nyheter\_$_[0]\.dat");@fil = <FIL>;close(FIL);my $antal = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }print "            <i>${year}-${month}-${day}, ${hour}:${minute}</i><br>\n\n\n\n\n";print "            <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Nyhet&Nyhet_ID=$variabel{'Nyhet_ID'}&nr=$_[0]&Sprak_ID=$formvariabel{'Sprak_ID'}\"><b>$variabel{'rubrik'}</b></a><br>\n\n\n\n\n";print "            <br>\n\n\n\n\n";$antal++;last if $antal == $_[2] && $_[2] > 0;}if ($antal == 0){if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'saknas'} = "Currently there are no information available under this headline.";}else{$sprak_text{'saknas'} = "Just nu finns ingen information under denna rubrik.";}print "            $sprak_text{'saknas'}<br>\n\n\n\n\n";}}sub skrivut_kalendarium_typ1(){if ($_[3] eq "J"){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[2]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";}my (@veckodagar, @veckodagar_kort, @manader);my ($idagS,$idagM,$idagH,$idagDag,$idagMan,$idagAr,$idagVdag,$yday,$isdst) = localtime(time);if ($formvariabel{'Sprak_ID'} eq "sv"){@veckodagar_kort = ("Sö", "Må", "Ti", "On", "To", "Fr", "Lö");@veckodagar = ("Söndag", "Måndag", "Tisdag", "Onsdag", "Torsdag", "Fredag", "Lördag");@manader = ("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December");}elsif ($formvariabel{'Sprak_ID'} ne "sv"){@veckodagar_kort = ("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa");@veckodagar = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");@manader = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");}my $Tid_Just_Nu = time;my $Time_Start = 0;if (($formvariabel{'Ar'} ne "") && ($formvariabel{'Manad'} ne "") && ($formvariabel{'Dag'} ne "")){$Time_Start = timelocal 0,0,0,$formvariabel{'Dag'},$formvariabel{'Manad'},$formvariabel{'Ar'};}elsif (($formvariabel{'Ar'} ne "") && ($formvariabel{'Manad'} ne "")){$Time_Start = timelocal 0,0,0,1,$formvariabel{'Manad'},$formvariabel{'Ar'};}else{$Time_Start = time;}my ($Start_second,$Start_minute,$Start_hour,$Start_day,$Start_month,$Start_year,$wStart_day,$Start_yday,$Start_isdst) = localtime($Time_Start);if (($formvariabel{'Ar'} eq "") && ($formvariabel{'Manad'} eq "")){$formvariabel{'Manad'} = $Start_month;$formvariabel{'Ar'} = $Start_year;}for ($Ar_Snurra = $Start_year; $Ar_Snurra <= $Start_year; $Ar_Snurra++){for ($Manad_Snurra = $Start_month; $Manad_Snurra <= $Start_month; $Manad_Snurra++){my (@upptagnaDagar);$tidAttStartaMed = timelocal 0,0,0,1,$Manad_Snurra,$Ar_Snurra;my ($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($tidAttStartaMed);$year += 1900;open(FIL, "<dokument/kalendarium\_$_[2]\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if (((($variabel{'start'} >= time) || ($variabel{'slut'} >= time)) && ((($variabel{'visastart'} <= time) || ($variabel{'visastart'} == 0)) && ((($variabel{'visastopp'} > 0) && ($variabel{'visastopp'} >= time)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} == 0)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} <= time)))))){my ($s,$m,$h,$d1,$m1,$a1,$vdag,$adag,$isdst) = localtime($variabel{'start'});my ($s,$m,$h,$d2,$m2,$a2,$vdag,$adag,$isdst) = localtime($variabel{'slut'});if ((($a1 == ($year-1900)) && ($m1 == $month)) && (($a2 == ($year-1900)) && ($m2 == $month))){for ($i = $d1; $i <= $d2; $i++){push @upptagnaDagar, $i;}}elsif ((($a2 == ($year-1900)) && ($m2 == $month)) && ((($a1 == ($year-1900)) && ($m1 <= $month)) || ($a1 <= ($year-1900)))){for ($i = 1; $i <= $d2; $i++){push @upptagnaDagar, $i;}}elsif ((($a1 == ($year-1900)) && ($m1 == $month)) && ((($a2 == ($year-1900)) && ($m2 >= $month)) || ($a2 >= ($year-1900)))){$tidAttStartaMed = timelocal 0,0,0,$d1,$m1,$a1;$m1b = $m1;while ($m1b eq $m1){($s,$m,$h,$d1b,$m1b,$a1b,$vdagb,$adagb,$isdst) = localtime($tidAttStartaMed);if ($m1b eq $m1){push @upptagnaDagar, $d1b;}$tidAttStartaMed += 86400;}}}}@upptagnaDagar = sort {$a <=> $b} @upptagnaDagar;if ($Manad_Snurra == 0){$foregaendeAr    = $Ar_Snurra-1;$foregaendeManad = 11;$nastaAr         = $Ar_Snurra;$nastaManad      = 1;}elsif ($Manad_Snurra == 11){$foregaendeAr    = $Ar_Snurra;$foregaendeManad = 10;$nastaAr         = $Ar_Snurra+1;$nastaManad      = 0;}else{$foregaendeAr    = $Ar_Snurra;$foregaendeManad = $Manad_Snurra-1;$nastaAr         = $Ar_Snurra;$nastaManad      = $Manad_Snurra+1;}print "<table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"1\">";print "<tr>";print "<td valign=\"top\" align=\"center\" colspan=\"7\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"3\" height=\"3\"></td>";print "</tr>";print "<tr>";if ($_[1] eq "J"){print "<td valign=\"middle\" align=\"center\" width=\"14%\"><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$_[2]&Sprak_ID=$formvariabel{'Sprak_ID'}&Ar=${foregaendeAr}&Manad=${foregaendeManad}\">&laquo;</a></td>";print "<td valign=\"middle\" align=\"center\" colspan=\"5\"><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$_[2]&Sprak_ID=$formvariabel{'Sprak_ID'}&Ar=${Ar_Snurra}&Manad=${Manad_Snurra}\" title=\"$manader[$month] ${year}\"><b>$manader[$month] $year</b></a></td>";print "<td valign=\"middle\" align=\"center\" width=\"14%\"><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$_[2]&Sprak_ID=$formvariabel{'Sprak_ID'}&Ar=${nastaAr}&Manad=${nastaManad}\">&raquo;</a></td>";}else{print "<td valign=\"middle\" align=\"center\" width=\"14%\">&nbsp;</td>";print "<td valign=\"middle\" align=\"center\" colspan=\"5\"><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$_[2]&Sprak_ID=$formvariabel{'Sprak_ID'}&Ar=${Ar_Snurra}&Manad=${Manad_Snurra}\" title=\"$manader[$month] ${year}\"><b>$manader[$month] $year</b></a></td>";print "<td valign=\"middle\" align=\"center\" width=\"14%\">&nbsp;</td>";}print "</tr>";print "<tr>";print "<td valign=\"top\" align=\"center\" colspan=\"7\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"3\" height=\"3\"></td>";print "</tr>";print "<tr>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[1]</b></td>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[2]</b></td>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[3]</b></td>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[4]</b></td>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[5]</b></td>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[6]</b></td>";print "<td valign=\"top\" align=\"center\" width=\"14%\"><b>$veckodagar_kort[0]</b></td>";print "</tr>";print "<tr>";print "<td valign=\"top\" align=\"center\" colspan=\"7\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"3\" height=\"3\"></td>";print "</tr>";$stilTyp = "";$tidAttStartaMed = timelocal 1,1,1,1,$month,($year-1900);$man = $month;$foregaendeDag = 0;($s,$m,$h,$dag,$man,$ar,$vdag,$adag,$isdst) = localtime($tidAttStartaMed);while ($man eq $month){if (($dag eq "1") && ($man eq $month) && ($dag ne $foregaendeDag)){if ($vdag eq "0"){$cellerInnan = 6;}else{$cellerInnan = $vdag - 1;}if ($cellerInnan > 0){print "<tr><td valign=\"top\" align=\"center\" colspan=\"$cellerInnan\">&nbsp;</td>";}else{print "<tr>";}}if (($vdag eq "1") && ($dag ne "1")){print "</tr><tr>";}my $AR    = $year;my $MANAD = $man+1;my $DAG   = $dag;if ($MANAD < 10) { $MANAD = "0${MANAD}"; }if ($DAG < 10)   { $DAG = "0${DAG}"; }if (($dag eq $idagDag) && ($man eq $idagMan) && ($ar eq $idagAr)){$stilTyp = "datumNormalIdag";}elsif (($vdag eq "6") || ($vdag eq "0")){$stilTyp = "datumNormalHelg";}else{$stilTyp = "datumNormal";}my $Antal_Aktiviteter = 0;foreach $upptagenDag (@upptagnaDagar){if ($upptagenDag eq $dag){$stilTyp = "datumMarkerad";$Antal_Aktiviteter++;}}my $AKTIV_TEXT = "";if ($Antal_Aktiviteter > 0){if ($formvariabel{'Sprak_ID'} eq "sv"){$AKTIV_TEXT = "$Antal_Aktiviteter aktiviteter finns inlagda ";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){$AKTIV_TEXT = "$Antal_Aktiviteter activities are registered ";}}print "<td valign=\"top\" align=\"center\" width=\"14%\" ID=\"${AR}-${MANAD}-${DAG}\"><div class=\"${stilTyp}\"><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$_[2]&Sprak_ID=$formvariabel{'Sprak_ID'}&Ar=${Ar_Snurra}&Manad=${Manad_Snurra}&Dag=${dag}\" ID=\"${AR}-${MANAD}-${DAG}\" title=\"${AKTIV_TEXT}$veckodagar[$vdag] ${dag} $manader[$man] ${year}\">$dag</a></div></td>";$tidAttStartaMed += 86400;$foregaendeDag  = $dag;($s,$m,$h,$dag,$man,$ar,$vdag,$adag,$isdst) = localtime($tidAttStartaMed);}if ($vdag eq "0"){$cellerEfter = 1;}elsif ($vdag eq "1"){$cellerEfter = 0;}else{$cellerEfter = (7 - $vdag) + 1;}if ($cellerEfter == 0){print "</tr></table>";}else{print "<td valign=\"top\" align=\"center\" colspan=\"$cellerEfter\">&nbsp;</td></tr></table>";}}}if (($formvariabel{'Ar'} ne "") && ($formvariabel{'Manad'} ne "") && ($formvariabel{'Dag'} ne "")){print "<br>";print "<br>";if ($formvariabel{'Sprak_ID'} ne "sv"){$sprakText{'0001_0001'} = "at";$sprakText{'0001_0002'} = "Read more";$sprakText{'0001_0003'} = "No activities have been scheduled in the calendar this day.";$sprakText{'0001_0004'} = "Current date";}elsif ($formvariabel{'Sprak_ID'} eq "sv"){$sprakText{'0001_0001'} = "kl.";$sprakText{'0001_0002'} = "Läs mer";$sprakText{'0001_0003'} = "Inga aktiviteter finns inlagda i kalendariet denna dag.";$sprakText{'0001_0004'} = "Vald dag";}my $AR    = $formvariabel{'Ar'}+1900;my $MANAD = $formvariabel{'Manad'};my $DAG   = $formvariabel{'Dag'};print "  <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#EEEEEE\">";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#EEEEEE\">";print "      <td colspan=\"2\">";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "        &nbsp;<b>$sprakText{'0001_0004'}: ${DAG} $manader[$MANAD] ${AR}</b><br>";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "      </td>";print "    </tr>";print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#EEEEEE\"> ";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"center\" valign=\"top\"> ";print "      <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"10\" height=\"10\"></td>";print "    </tr>";open(FIL, "<dokument/kalendarium\_$_[2]\.dat");@fil = <FIL>;close(FIL);my @raderAttAnvanda;my $antal_rader = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);my $tidAttJamforaMedFran = timelocal 0,0,0,$formvariabel{'Dag'},$formvariabel{'Manad'},$formvariabel{'Ar'};my $tidAttJamforaMedTill = timelocal 59,59,23,$formvariabel{'Dag'},$formvariabel{'Manad'},$formvariabel{'Ar'};if ((($variabel{'start'} >= $tidAttJamforaMedFran) && ($variabel{'start'} <= $tidAttJamforaMedTill)) || (($variabel{'slut'} >= $tidAttJamforaMedFran) && ($variabel{'slut'} <= $tidAttJamforaMedTill)) || (($tidAttJamforaMedFran >= $variabel{'start'}) && ($tidAttJamforaMedFran <= $variabel{'slut'}))){push @raderAttAnvanda, $rad;$antal_rader++;}}if ($antal_rader > 0){foreach $rad (@raderAttAnvanda){%variabel = &tolka_rad($rad);if (((($variabel{'start'} >= time) || ($variabel{'slut'} >= time)) && ((($variabel{'visastart'} <= time) || ($variabel{'visastart'} == 0)) && ((($variabel{'visastopp'} > 0) && ($variabel{'visastopp'} >= time)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} == 0)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} <= time)))))){$nyRad = "$variabel{'start'}!eq!start";while (my ($index, $varde) = each %variabel){if ($index ne "start") {$nyRad .= "!ny!${index}!eq!${varde}";}}push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach $rad (@filAttSortera){%variabel = &tolka_rad($rad);$nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "start") {$nyRad .= "!ny!${varde}!eq!${index}";}else {$nyRad .= "!ny!${index}!eq!${varde}";}}push @sorteradFil, $nyRad;}my $antal = 0;foreach $rad (@sorteradFil){%variabel = &tolka_rad($rad);my ($s1,$min1,$h1,$d1,$m1,$y1,$wday1,$yday1,$isdst1) = localtime($variabel{'start'});$y1 += 1900;$m1 += 1;if (length($m1) < 2)   { $m1   = "0$m1"; }if (length($d1) < 2)   { $d1   = "0$d1"; }if (length($h1) < 2)   { $h1   = "0$h1"; }if (length($min1) < 2) { $min1 = "0$min1"; }my ($s2,$min2,$h2,$d2,$m2,$y2,$wday2,$yday2,$isdst2) = localtime($variabel{'slut'});$y2 += 1900;$m2 += 1;if (length($m2) < 2)   { $m2   = "0$m2"; }if (length($d2) < 2)   { $d2   = "0$d2"; }if (length($h2) < 2)   { $h2   = "0$h2"; }if (length($min2) < 2) { $min2 = "0$min2"; }print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\">";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "        &nbsp;<b>${y1}-${m1}-${d1}, $sprakText{'0001_0001'} ${h1}:${min1} - ${y2}-${m2}-${d2}, $sprakText{'0001_0001'} ${h2}:${min2}</b><br>";print "        &nbsp;$variabel{'aktivitet'} ($variabel{'ort'}) - <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=KalendariumEns&tid=$variabel{'tid'}&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$_[2]\"><i>$sprakText{'0001_0002'} &raquo;</i></a><br>";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "      </td>";print "    </tr>";print "    <tr align=\"center\" valign=\"top\"> ";print "      <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"10\" height=\"10\"></td>";print "    </tr>";$antal++;}}else{print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\">";print "        $sprakText{'0001_0003'}";print "      </td>";print "    </tr>";}print "  </table>";print "<br>\n\n\n\n\n";}if ($_[3] eq "J"){print "<br>\n\n\n\n\n";}}sub skrivut_kalendarium_typ2(){my (%grupper, @fil, @filAttSortera, @sorteradFil, $nyRad);my ($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime(time);if ($month == 0) {$startManad = 11;$startAr    = $year - 1;}elsif ($month > 0) {$startManad = $month - 1;$startAr    = $year;}if ($formvariabel{'Sprak_ID'} eq "en"){$sprakText{'0001_0001'} = "at";$sprakText{'0001_0002'} = "Read more";$sprakText{'0001_0003'} = "Currently no activities have been scheduled in the calendar.";}else{$sprakText{'0001_0001'} = "kl.";$sprakText{'0001_0002'} = "Läs mer";$sprakText{'0001_0003'} = "För tillfället finns inga aktiviteter inlagda i kalendariet.";}open(FIL, "<dokument/kalendarium\_$_[1]\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if (((($variabel{'start'} >= time) || ($variabel{'slut'} >= time)) && ((($variabel{'visastart'} <= time) || ($variabel{'visastart'} == 0)) && ((($variabel{'visastopp'} > 0) && ($variabel{'visastopp'} >= time)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} == 0)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} <= time)))))){$nyRad = "$variabel{'start'}!eq!start";while (my ($index, $varde) = each %variabel){if ($index ne "start") {$nyRad .= "!ny!${index}!eq!${varde}";}}push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach $rad (@filAttSortera){%variabel = &tolka_rad($rad);$nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "start") {$nyRad .= "!ny!${varde}!eq!${index}";}else {$nyRad .= "!ny!${index}!eq!${varde}";}}push @sorteradFil, $nyRad;}if ($_[3] eq "J"){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";}my $antal = 0;print "  <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";foreach $rad (@sorteradFil){%variabel = &tolka_rad($rad);my ($s1,$min1,$h1,$d1,$m1,$y1,$wday1,$yday1,$isdst1) = localtime($variabel{'start'});$y1 += 1900;$m1 += 1;if (length($m1) < 2)   { $m1   = "0$m1"; }if (length($d1) < 2)   { $d1   = "0$d1"; }if (length($h1) < 2)   { $h1   = "0$h1"; }if (length($min1) < 2) { $min1 = "0$min1"; }my ($s2,$min2,$h2,$d2,$m2,$y2,$wday2,$yday2,$isdst2) = localtime($variabel{'slut'});$y2 += 1900;$m2 += 1;if (length($m2) < 2)   { $m2   = "0$m2"; }if (length($d2) < 2)   { $d2   = "0$d2"; }if (length($h2) < 2)   { $h2   = "0$h2"; }if (length($min2) < 2) { $min2 = "0$min2"; }print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\">";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "        &nbsp;<b>${y1}-${m1}-${d1}, $sprakText{'0001_0001'} ${h1}:${min1} - ${y2}-${m2}-${d2}, $sprakText{'0001_0001'} ${h2}:${min2}</b><br>";print "        &nbsp;$variabel{'aktivitet'} ($variabel{'ort'}) - <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=KalendariumEns&tid=$variabel{'tid'}&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$_[1]\"><i>$sprakText{'0001_0002'} &raquo;</i></a><br>";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "      </td>";print "    </tr>";print "    <tr align=\"center\" valign=\"top\"> ";print "      <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"10\" height=\"10\"></td>";print "    </tr>";$antal++;last if $antal == $_[2] && $_[2] > 0;}print "  </table>";if ($antal == 0){print "$sprakText{'0001_0003'}<br>\n";}if ($_[3] eq "J"){print "  <br>";}}sub skrivut_kalendarium_typ3(){my (%grupper, @fil, @filAttSortera, @sorteradFil, $nyRad);my ($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime(time);my (@manader);if ($formvariabel{'Sprak_ID'} eq "sv"){@manader = ("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December");}elsif ($formvariabel{'Sprak_ID'} ne "sv"){@manader = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");}if ($month == 0) {$startManad = 11;$startAr    = $year - 1;}elsif ($month > 0) {$startManad = $month - 1;$startAr    = $year;}if ($formvariabel{'Sprak_ID'} eq "en"){$sprakText{'0001_0001'} = "at";$sprakText{'0001_0002'} = "Read more";$sprakText{'0001_0003'} = "Currently no activities have been scheduled in the calendar.";}else{$sprakText{'0001_0001'} = "kl.";$sprakText{'0001_0002'} = "Läs mer";$sprakText{'0001_0003'} = "För tillfället finns inga aktiviteter inlagda i kalendariet.";}open(FIL, "<dokument/kalendarium\_$_[1]\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if (((($variabel{'start'} >= time) || ($variabel{'slut'} >= time)) && ((($variabel{'visastart'} <= time) || ($variabel{'visastart'} == 0)) && ((($variabel{'visastopp'} > 0) && ($variabel{'visastopp'} >= time)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} == 0)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} <= time)))))){$nyRad = "$variabel{'start'}!eq!start";while (my ($index, $varde) = each %variabel){if ($index ne "start") {$nyRad .= "!ny!${index}!eq!${varde}";}}push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach $rad (@filAttSortera){%variabel = &tolka_rad($rad);$nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "start") {$nyRad .= "!ny!${varde}!eq!${index}";}else {$nyRad .= "!ny!${index}!eq!${varde}";}}push @sorteradFil, $nyRad;}if ($_[3] eq "J"){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";}my $antal = 0;my $Senaste_Manad = -1;print "  <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";foreach $rad (@sorteradFil){%variabel = &tolka_rad($rad);my ($s1,$min1,$h1,$d1,$m1,$y1,$wday1,$yday1,$isdst1) = localtime($variabel{'start'});$y1 += 1900;$m1 += 1;if (length($m1) < 2)   { $m1   = "0$m1"; }if (length($d1) < 2)   { $d1   = "0$d1"; }if (length($h1) < 2)   { $h1   = "0$h1"; }if (length($min1) < 2) { $min1 = "0$min1"; }my ($s2,$min2,$h2,$d2,$m2,$y2,$wday2,$yday2,$isdst2) = localtime($variabel{'slut'});$y2 += 1900;$m2 += 1;if (length($m2) < 2)   { $m2   = "0$m2"; }if (length($d2) < 2)   { $d2   = "0$d2"; }if (length($h2) < 2)   { $h2   = "0$h2"; }if (length($min2) < 2) { $min2 = "0$min2"; }if ($Senaste_Manad != $m1){$Senaste_Manad = $m1;print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\">";print "        &nbsp;<font size=\"3\"><b>$manader[$m1-1]</b></font>";print "      </td>";print "    </tr>";}print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#FFFFFF\">";print "      <td colspan=\"2\">";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "        &nbsp;<b>${y1}-${m1}-${d1}, $sprakText{'0001_0001'} ${h1}:${min1} - ${y2}-${m2}-${d2}, $sprakText{'0001_0001'} ${h2}:${min2}</b><br>";print "        &nbsp;$variabel{'aktivitet'} ($variabel{'ort'}) - <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=KalendariumEns&tid=$variabel{'tid'}&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$_[1]\"><i>$sprakText{'0001_0002'} &raquo;</i></a><br>";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "      </td>";print "    </tr>";print "    <tr align=\"center\" valign=\"top\"> ";print "      <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"10\" height=\"10\"></td>";print "    </tr>";$antal++;last if $antal == $_[2] && $_[2] > 0;}print "  </table>";if ($antal == 0){print "$sprakText{'0001_0003'}<br>\n";}if ($_[3] eq "J"){print "  <br>";}}sub skrivut_kalendarium_typ4(){my (%grupper, @fil, @filAttSortera, @sorteradFil, $nyRad);my ($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime(time);my (@manader);if ($formvariabel{'Sprak_ID'} eq "sv"){@manader = ("Januari", "Februari", "Mars", "April", "Maj", "Juni", "Juli", "Augusti", "September", "Oktober", "November", "December");}elsif ($formvariabel{'Sprak_ID'} ne "sv"){@manader = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");}if ($month == 0) {$startManad = 11;$startAr    = $year - 1;}elsif ($month > 0) {$startManad = $month - 1;$startAr    = $year;}if ($formvariabel{'Sprak_ID'} eq "sv"){$sprakText{'0001_0001'} = "kl.";$sprakText{'0001_0002'} = "Läs mer";$sprakText{'0001_0003'} = "För tillfället finns inga aktiviteter inlagda i kalendariet.";$sprakText{'0001_0004'} = "Från";$sprakText{'0001_0005'} = "Till";$sprakText{'0001_0006'} = "Beskrivning";$sprakText{'0001_0007'} = "Ort/plats";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){$sprakText{'0001_0001'} = "at";$sprakText{'0001_0002'} = "Read more";$sprakText{'0001_0003'} = "Currently no activities have been scheduled in the calendar.";$sprakText{'0001_0004'} = "From";$sprakText{'0001_0005'} = "To";$sprakText{'0001_0006'} = "Description";$sprakText{'0001_0007'} = "Location";}open(FIL, "<dokument/kalendarium\_$_[1]\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if (((($variabel{'start'} >= time) || ($variabel{'slut'} >= time)) && ((($variabel{'visastart'} <= time) || ($variabel{'visastart'} == 0)) && ((($variabel{'visastopp'} > 0) && ($variabel{'visastopp'} >= time)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} == 0)) || (($variabel{'visastopp'} == 0) && ($variabel{'visastart'} <= time)))))){$nyRad = "$variabel{'start'}!eq!start";while (my ($index, $varde) = each %variabel){if ($index ne "start") {$nyRad .= "!ny!${index}!eq!${varde}";}}push @filAttSortera, $nyRad;}}@filAttSortera = sort {$a <=> $b} @filAttSortera;foreach $rad (@filAttSortera){%variabel = &tolka_rad($rad);$nyRad = "";while (my ($index, $varde) = each %variabel){if ($varde eq "start") {$nyRad .= "!ny!${varde}!eq!${index}";}else {$nyRad .= "!ny!${index}!eq!${varde}";}}push @sorteradFil, $nyRad;}if ($_[3] eq "J"){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $_[1]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";}my $antal = 0;my $Senaste_Manad = -1;print "  <table width=\"$_[0]\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";foreach $rad (@sorteradFil){%variabel = &tolka_rad($rad);my ($s1,$min1,$h1,$d1,$m1,$y1,$wday1,$yday1,$isdst1) = localtime($variabel{'start'});$y1 += 1900;$m1 += 1;if (length($m1) < 2)   { $m1   = "0$m1"; }if (length($d1) < 2)   { $d1   = "0$d1"; }if (length($h1) < 2)   { $h1   = "0$h1"; }if (length($min1) < 2) { $min1 = "0$min1"; }my ($s2,$min2,$h2,$d2,$m2,$y2,$wday2,$yday2,$isdst2) = localtime($variabel{'slut'});$y2 += 1900;$m2 += 1;if (length($m2) < 2)   { $m2   = "0$m2"; }if (length($d2) < 2)   { $d2   = "0$d2"; }if (length($h2) < 2)   { $h2   = "0$h2"; }if (length($min2) < 2) { $min2 = "0$min2"; }if ($Senaste_Manad != $m1){$Senaste_Manad = $m1;print "    <tr align=\"center\" valign=\"top\"> ";print "      <td colspan=\"4\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"10\" height=\"10\"></td>";print "    </tr>";print "    <tr>";print "      <td colspan=\"4\"><font size=\"3\"><b>$manader[$m1-1] ${y1}</b></font></td>";print "    </tr>";print "    <tr>";print "      <td colspan=\"4\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr bgcolor=\"\#EEEEEE\">";print "      <td><b>$sprakText{'0001_0004'}</b></td>";print "      <td><b>$sprakText{'0001_0005'}</b></td>";print "      <td><b>$sprakText{'0001_0006'}</b></td>";print "      <td><b>$sprakText{'0001_0007'}</b></td>";print "    </tr>";}print "    <tr>";print "      <td colspan=\"4\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr>";print "      <td>${y1}-${m1}-${d1}</td>";print "      <td>${y2}-${m2}-${d2}</td>";print "      <td><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=KalendariumEns&tid=$variabel{'tid'}&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$_[1]\"><b>$variabel{'aktivitet'}</b></a></td>";print "      <td>$variabel{'ort'}</td>";print "    </tr>";$antal++;last if $antal == $_[2] && $_[2] > 0;}print "  </table>";if ($antal == 0){print "$sprakText{'0001_0003'}<br>\n";}if ($_[3] eq "J"){print "  <br>";print "  <br>";}}sub skrivut_kalendarium_enskild(){my ($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime(time);my $antal = 0;if ($formvariabel{'Sprak_ID'} eq "en"){$sprakText{'0001_0005'} = "Activity";$sprakText{'0001_0006'} = "Location";$sprakText{'0001_0007'} = "From";$sprakText{'0001_0008'} = "To";$sprakText{'0001_0009'} = "An error occured. The chosen activity could not be found.";}else{$sprakText{'0001_0005'} = "Aktivitet";$sprakText{'0001_0006'} = "Ort/plats";$sprakText{'0001_0007'} = "Från";$sprakText{'0001_0008'} = "Till";$sprakText{'0001_0009'} = "Ett fel uppstod. Den valda aktiviteten kunde inte hittas.";}open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";open(FIL, "<dokument/kalendarium\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'tid'} eq $formvariabel{'tid'}){my ($s1,$min1,$h1,$d1,$m1,$y1,$wday1,$yday1,$isdst1) = localtime($variabel{'start'});$y1 += 1900;$m1 += 1;if (length($m1) < 2)   { $m1   = "0$m1"; }if (length($d1) < 2)   { $d1   = "0$d1"; }if (length($h1) < 2)   { $h1   = "0$h1"; }if (length($min1) < 2) { $min1 = "0$min1"; }my ($s2,$min2,$h2,$d2,$m2,$y2,$wday2,$yday2,$isdst2) = localtime($variabel{'slut'});$y2 += 1900;$m2 += 1;if (length($m2) < 2)   { $m2   = "0$m2"; }if (length($d2) < 2)   { $d2   = "0$d2"; }if (length($h2) < 2)   { $h2   = "0$h2"; }if (length($min2) < 2) { $min2 = "0$min2"; }print "<table border=\"0\">\n\n\n\n\n";print "  <tr><td bgcolor=\"\#EEEEEE\"><b>$sprakText{'0001_0005'}:</b> $variabel{'aktivitet'}</td></tr>\n\n\n\n\n";print "  <tr><td bgcolor=\"\#EEEEEE\"><b>$sprakText{'0001_0006'}:</b> $variabel{'ort'}</td></tr>\n\n\n\n\n";print "  <tr><td bgcolor=\"\#EEEEEE\"><b>$sprakText{'0001_0007'}:</b> ${y1}-${m1}-${d1}, kl. ${h1}:${min1}</td></tr>\n\n\n\n\n";print "  <tr><td bgcolor=\"\#EEEEEE\"><b>$sprakText{'0001_0008'}:</b> ${y2}-${m2}-${d2}, kl. ${h2}:${min2}</td></tr>\n\n\n\n\n";print "  <tr><td bgcolor=\"\#FFFFFF\"><br>$variabel{'ovrigt'}<br></td></tr>\n\n\n\n\n";print "</table>\n\n\n\n\n";$antal++;}last if $antal == 1;}if ($antal == 0){print "<b>$sprakText{'0001_0009'}</b>";}}sub konvertera_smileys(){my (@smileys, $smiley, $returVarde, @fil, $rad, %variabel);$returVarde = $_[0];open(FIL, "<databas_gastbok_smileys.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);$sokvarde = $variabel{'Symbol'};$sokvarde =~ s/\:/\\\:/igs;$sokvarde =~ s/\;/\\\;/igs;$sokvarde =~ s/\-/\\\-/igs;$sokvarde =~ s/\)/\\\)/igs;$sokvarde =~ s/\(/\\\(/igs;$sokvarde =~ s/\@/\\\@/igs;$sokvarde =~ s/\|/\\\|/igs;$sokvarde =~ s/\$/\\\$/igs;$sokvarde =~ s/\'/\\\'/igs;$sokvarde =~ s/\[/\\\[/igs;$sokvarde =~ s/\]/\\\]/igs;$sokvarde =~ s/\{/\\\{/igs;$sokvarde =~ s/\}/\\\}/igs;$sokvarde =~ s/\~/\\\~/igs;$sokvarde =~ s/\&/\\\&/igs;$sokvarde =~ s/\*/\\\*/igs;$sokvarde =~ s/\^/\\\^/igs;$returVarde =~ s/${sokvarde}/\<img src\=\"${bildmappHref}\/ikoner\/$variabel{'Ikon'}\" align\=\"absmiddle\" border\=\"0\"\>/igs;}return ($returVarde);}sub skrivut_gastbok(){my (@fil, $rad, %variabel);open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";if ($formvariabel{'visa'} eq ""){$formvariabel{'visa'} = 1;}my $antalPerSida = 40;my $vardeStart = $formvariabel{'visa'};my $vardeStopp = $formvariabel{'visa'} + $antalPerSida - 1;print "  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">";print "    <tr>";print "      <td align=\"left\" valign=\"top\" colspan=\"2\">";print "        <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Gastbok_Ny&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\"><b>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "SKRIV EN KOMMENTAR &raquo;";}elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "WRITE A COMMENT &raquo;";}print "</b></a><br><br><br>";print "        </td>";print "    </tr>";if (($tabellData{'GB_Auto'} eq "N") && ($formvariabel{'funk'} eq "Gastbok_Ny_Slutfor")){print "    <tr>";print "      <td align=\"left\" valign=\"top\" colspan=\"2\">";if ($formvariabel{'Sprak_ID'} eq "sv"){print "          <b>Ditt inlägg har sparats. Det väntar nu på att godkännas av gästbokens administratör innan det visas på sidan.</b><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "          <b>Your comment has been saved and will be shown as soon as the guestbook administrator has approved it.</b><br>";}print "          <br>";print "          <br>";print "        </td>";print "    </tr>";}open(FIL, "<dokument/gastbok\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);my $antal = 0;foreach $rad (@fil){%variabel = &tolka_rad($rad);if ((($tabellData{'GB_Auto'} eq "N") && (($variabel{'Godkand'} eq "J") || ($variabel{'Godkand'} eq ""))) || ($tabellData{'GB_Auto'} eq "J") || ($tabellData{'GB_Auto'} eq "")){$antal++;if (($antal >= $vardeStart) && ($antal <= $vardeStopp)){($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'tid'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($hour < 10)   { $hour   = "0$hour"; }if ($minute < 10) { $minute = "0$minute"; }print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#EEEEEE\">";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"left\" valign=\"top\" bgcolor=\"\#EEEEEE\">";print "      <td colspan=\"2\">";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "        &nbsp;Skriven ${year}-${month}-${day}, kl. ${hour}.${minute} av <b>$variabel{'namn'}</b>";}elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "        &nbsp;Written ${day}-${month}-${year}, ${hour}.${minute} by <b>$variabel{'namn'}</b>";}if ($variabel{'epost'} ne "") {print ", <a href=\"mailto:$variabel{'epost'}\">$variabel{'epost'}</a>";}if (($variabel{'www'} ne "") && ($variabel{'www'} ne "http://")) {print ", <a href=\"$variabel{'www'}\" target=\"_blank\">$variabel{'www'}</a>";}print "        <br>";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"><br>";print "        </td>";print "    </tr>";print "    <tr align=\"left\" valign=\"top\">";print "      <td colspan=\"2\">";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"6\" height=\"6\"><br>";$variabel{'text'} = &konvertera_smileys($variabel{'text'});print "        $variabel{'text'}<br>";print "        <img src=\"${bildmappHref}/_mellanrum.gif\" width=\"6\" height=\"6\"><br>";print "        </td>";print "    </tr>";print "    <tr align=\"left\" valign=\"middle\" bgcolor=\"\#EEEEEE\"> ";print "      <td colspan=\"2\" background=\"${bildmappHref}/avd_streck_horiz_gastbok.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>";print "    </tr>";print "    <tr align=\"center\" valign=\"top\"> ";print "      <td colspan=\"2\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>";print "    </tr>";}}}if ($antal == 0){print "    <tr align=\"left\" valign=\"top\">";print "      <td colspan=\"2\">";if ($formvariabel{'Sprak_ID'} eq "sv") {print "        Det finns ännu inga kommentarer i gästboken.<br><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "        There are no comments in the guest book yet.<br><br>";}print "        </td>";print "    </tr>";}else{my $visaSidaNasta  = 1;my $visaSidaForra  = 0;my $vardeNastaVisa = $vardeStopp + 1;my $vardeForraVisa;if ($vardeStopp > $antal) {$vardeStopp = $antal;$visaSidaNasta = 0;}if ($vardeStart > 1) {$visaSidaForra = 1;$vardeForraVisa = $vardeStart - $antalPerSida;}print "    <tr align=\"left\" valign=\"top\">";print "      <td colspan=\"2\">${gfont}<br>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "        Just nu visas inlägg <b>${vardeStart} - ${vardeStopp}</b> av totalt <b>${antal}</b>.<br>";print "        <br>";if ($visaSidaForra == 1) {print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}&visa=${vardeForraVisa}\"><b>&laquo; Föregående sida</b></a>";}if (($visaSidaForra == 1) && ($visaSidaNasta == 1)) {print "&nbsp; | &nbsp;";}if ($visaSidaNasta == 1) {print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}&visa=${vardeNastaVisa}\"><b>Nästa sida &raquo;</b></a><br><br>";}}elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "        Currently comment <b>${vardeStart} - ${vardeStopp}</b> of totallty <b>${antal}</b> are shown.<br>";print "        <br>";if ($visaSidaForra == 1) {print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}&visa=${vardeForraVisa}\"><b>&laquo Previous page</b></a>";}if (($visaSidaForra == 1) && ($visaSidaNasta == 1)) {print "&nbsp; | &nbsp;";}if ($visaSidaNasta == 1) {print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}&visa=${vardeNastaVisa}\"><b>Next page &raquo;</b></a><br><br>";}}print "        </span></td>";print "    </tr>";}print "  </table>";print "<br>";print "<br>";}sub skrivut_gastbok_ny(){my (@fil, $rad, %variabel);open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";print "  <script language=\"Javascript\">\n";print "  <!--\n";print "  function adderaSmiley(smiley) {\n";print "    doc_content = document.FORM_Gastbok.text.value + smiley;\n";print "    document.FORM_Gastbok.text.value = doc_content;\n";print "    document.FORM_Gastbok.text.focus();\n";print "  }\n";print "  // -->\n";print "  </script>\n";print "  <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">";print "    <tr align=\"left\" valign=\"top\"> ";print "      <td colspan=\"2\">";if ($formvariabel{'Sprak_ID'} eq "sv") {print "Skriv din kommentar nedan.<br><br>"; }elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "Write your comment below.<br><br>"; }print "         <form action=\"${cgihref}/ak_webbpub-s.cgi\" method=\"POST\" name=\"FORM_Gastbok\">";print "         <table border=\"0\" cellspacing=\"1\" cellpadding=\"0\">";print "         <tr>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Ditt namn:&nbsp;</b></td>"; }elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Your name:&nbsp;</b></td>"; }print "           <td valign=\"top\"><input type=\"text\" name=\"namn\" size=\"60\"></td>";print "         </tr>";print "         <tr>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;E-post (valfritt):&nbsp;</b></td>"; }elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;E-mail (optional):&nbsp;</b></td>"; }print "           <td valign=\"top\"><input type=\"text\" name=\"epost\" size=\"60\"></td>";print "         </tr>";print "         <tr>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Hemsida (valfritt):&nbsp;</b></td>"; }elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Homepage (optional):&nbsp;</b></td>"; }print "           <td valign=\"top\"><input type=\"text\" name='www' size='60' value='http://'></td>";print "         </tr>";print "         <tr>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Kommentar:&nbsp;</b></td>"; }elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Comment:&nbsp;</b></td>"; }print "           <td valign=\"top\"><textarea name=\"text\" cols=\"61\" rows=\"8\" wrap=\"virtual\">$formvariabel{'Text'}</textarea></td>";print "         </tr>";print "         <tr>";print "         <tr>";print "           <td colspan=\"2\">&nbsp;</td>";print "         </tr>";print "         <tr>";if ($formvariabel{'Sprak_ID'} eq "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Lägg in symbol:&nbsp;</b></td>"; }elsif ($formvariabel{'Sprak_ID'} ne "sv") {print "           <td valign=\"top\" bgcolor=\"\#DDDDDD\"><b>&nbsp;Add icon:&nbsp;</b></td>"; }print "           <td valign=\"top\" align=\"left\">";open(FIL, "<databas_gastbok_smileys.dat");@fil = <FIL>;close(FIL);my $antal = 0;my $foregaendeVarde = "";foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'Ikon'} ne $foregaendeVarde){$antal++;$foregaendeVarde = $variabel{'Ikon'};print "<a href=\"javascript:adderaSmiley(' $variabel{'Symbol'} ')\"><img src=\"${bildmappHref}/ikoner/$variabel{'Ikon'}\" border=\"0\" alt=\"$variabel{'Beskr'} - $variabel{'Symbol'}\"></a>";if ($antal == 14){$antal = 0;print "<br>";print "<img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\">";print "<br>";}else{print "<img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\">";}}}print "           </td>";print "         </tr>";print "         <tr>";print "           <td colspan=\"2\">&nbsp;</td>";print "         </tr>";print "         <tr>";print "           <td valign=\"middle\" colspan=\"2\" align=\"right\"><b>";print "             <input type=\"hidden\" name=\"funk\" value=\"Gastbok_Ny_Slutfor\">";print "             <input type=\"hidden\" name=\"nr\" value=\"$formvariabel{'nr'}\">";print "             <input type=\"hidden\" name=\"Sprak_ID\" value=\"$formvariabel{'Sprak_ID'}\">";print "             <input type=\"submit\" value=\"Spara &raquo;\">&nbsp;<br>";print "           </td>";print "         </tr>";print "         </table>";print "         </form>";print "      </td>";print "    </tr>";print "  </table>";print "<br>";print "<br>";}sub skrivut_gastbok_ny_slutfor(){my (@fil, $rad, %variabel);$formvariabel{'namn'} =~ s/<.*?>//igs;$formvariabel{'epost'} =~ s/<.*?>//igs;$formvariabel{'www'} =~ s/<.*?>//igs;$formvariabel{'text'} =~ s/<.*?>//igs;$formvariabel{'text'} =~ s/\r/<br>/g;$formvariabel{'text'} =~ s/\n/<br>/g;$formvariabel{'text'} =~ s/<br><br><br>/<br><br>/g;if (($formvariabel{'namn'} eq "") || ($formvariabel{'text'} eq "")){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";if ($formvariabel{'Sprak_ID'} eq "sv"){print "Ditt inlägg har inte sparats.<br>";if ($formvariabel{'namn'} eq ""){print "<b>Du har inte angett ditt namn.</b><br>";}if ($formvariabel{'text'} eq ""){print "<b>Du har inte skrivit någon kommentar.</b><br>";}print "<br>Vänligen <a href=\"javascript:history.go('-1');\">gå tillbaka</a> och komplettera formuläret.<br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Your message has not been saved.<br>";if ($formvariabel{'namn'} eq ""){print "<b>You forgot to write your name.</b><br>";}if ($formvariabel{'text'} eq ""){print "<b>You have bot written any comment.</b><br>";}print "<br>Please <a href=\"javascript:history.go('-1');\">go back</a> and fill in the missing field(s).<br>";}}else{open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}open(XYZ, ">dokument/gastbok\_$formvariabel{'nr'}\.dat\.temp$$");open(FIL, "<dokument/gastbok\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);my $tid = time;my $nyRad;$nyRad  = "id!eq!${tid}";$nyRad .= "!ny!tid!eq!${tid}";$nyRad .= "!ny!namn!eq!$formvariabel{'namn'}";$nyRad .= "!ny!epost!eq!$formvariabel{'epost'}";$nyRad .= "!ny!www!eq!$formvariabel{'www'}";$nyRad .= "!ny!text!eq!$formvariabel{'text'}";if ($tabellData{'GB_Auto'} eq "N"){$nyRad .= "!ny!Godkand!eq!N";}else{$nyRad .= "!ny!Godkand!eq!J";}print XYZ "${nyRad}\n";foreach $rad (@fil) {print XYZ "${rad}";}close(XYZ);rename "dokument/gastbok\_$formvariabel{'nr'}\.dat\.temp$$", "dokument/gastbok\_$formvariabel{'nr'}\.dat";chmod 0777, "dokument/gastbok\_$formvariabel{'nr'}\.dat";if (($tabellData{'GB_Epost'} ne "N") && ($tabellData{'GB_Epost'} ne "")){while (($namn, $varde) = each %formvariabel){if (($varde =~ m/to\:/igs) || ($varde =~ m/from\:/igs) || ($varde =~ m/bcc\:/igs) || ($varde =~ m/subject\:/igs) || ($varde =~ m/content\-type/igs)  || ($varde =~ m/mime-version/igs)){$varde = "";}$formvariabel{$namn} = $varde;}$formvariabel{'text'} =~ s/<br>/\n/igs;open (MAIL, "|$mailprog");print MAIL "To: $tabellData{'GB_Epost'}\n";print MAIL "From: ${foretag} <${epost_foretag}>\n";print MAIL "Subject: Nytt inlägg i gästboken\n\n";print MAIL "Hej,\n\n";print MAIL "Ett nytt inlägg har publicerats i gästboken:\n";print MAIL "$formvariabel{'text'}\n";print MAIL "\n";print MAIL "Namn: $formvariabel{'namn'}\n";print MAIL "E-post: $formvariabel{'epost'}\n";print MAIL "Hemsida: $formvariabel{'www'}\n";print MAIL "\n";if ($tabellData{'GB_Auto'} eq "N"){print MAIL "Innan inlägget publiceras i gästboken på hemsidan måste du logga in i Webbverktyget och godkänna det.\n";print MAIL "Webbverktyget: ${cgihref}/ak_webbpub-s_admin.cgi?funk=login\n";}else{print MAIL "Om du vill se inlägget på hemsidan, använd länken nedan.\n";print MAIL "Gästboken: ${cgihref}/ak_webbpub-s.cgi?funk=F&nr=$formvariabel{'nr'}&Sprak_ID=$formvariabel{'Sprak_ID'}\n";print MAIL "\n";print MAIL "Om du vill radera inlägget, gå till Webbverktyget.\n";print MAIL "Webbverktyget: ${cgihref}/ak_webbpub-s_admin.cgi?funk=login\n";}print MAIL "\n";close(MAIL);}$formvariabel{'visa'} = "1";&skrivut_gastbok();}}sub skrivut_dokument_sok(){my (@SokFiler, @SokTitlar, @SokNr, @dokument, $DokRad);my ($avbryt, $buffer, $term, @tmp, @termer_tmp, @termer_tmp_tva, @LINES, $string, @fillista);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@dokument = <DOKUMENT>;close(DOKUMENT);foreach $DokRad (@dokument){%variabel = &tolka_rad($DokRad);my $TaMed = &accessDokument($variabel{'nr'}, $formvariabel{'Sprak_ID'});if ((($variabel{'DokTyp'} eq "W") || ($variabel{'DokTyp'} eq "B")) && ($TaMed == 1)){push (@SokFiler, "${cgidir}/dokument/dokument\_$variabel{'nr'}\.dat");push (@SokTitlar, "$variabel{'beskr'}");push (@SokNr, "$variabel{'nr'}");}elsif (($variabel{'DokTyp'} eq "L") && ($variabel{'Lank'} =~ m/${basehref}/igs) && ($TaMed == 1)){$variabel{'Lank'} =~ s/${basehref}/${basedir}/igs;push (@SokFiler, "$variabel{'Lank'}");push (@SokTitlar, "$variabel{'beskr'}");push (@SokNr, "$variabel{'nr'}");}elsif (($variabel{'DokTyp'} eq "N") && ($TaMed == 1)){push (@SokFiler, "${cgidir}/dokument/nyheter\_$variabel{'nr'}\.dat");push (@SokTitlar, "$variabel{'beskr'}");push (@SokNr, "$variabel{'nr'}");}elsif (($variabel{'DokTyp'} eq "KALENDARIUM") && ($TaMed == 1)){push (@SokFiler, "${cgidir}/dokument/kalendarium\_$variabel{'nr'}\.dat");push (@SokTitlar, "$variabel{'beskr'}");push (@SokNr, "$variabel{'nr'}");}elsif (($variabel{'DokTyp'} eq "GASTBOK") && ($TaMed == 1)){push (@SokFiler, "${cgidir}/dokument/gastbok\_$variabel{'nr'}\.dat");push (@SokTitlar, "$variabel{'beskr'}");push (@SokNr, "$variabel{'nr'}");}elsif (($variabel{'DokTyp'} eq "SNABBFRAGA") && ($TaMed == 1)){push (@SokFiler, "${cgidir}/dokument/snabbfraga\_$variabel{'nr'}\.dat");push (@SokTitlar, "$variabel{'beskr'}");push (@SokNr, "$variabel{'nr'}");}}$avbryt    = 0;$buffer = $formvariabel{'q'};$buffer =~ s/\+//;$buffer =~ s/\,//;@termer_tmp = split(/,/, $buffer);foreach $term (@termer_tmp){if (($term =~ m/ /) && !($term =~ m/\"/) && ($term ne " ")){@tmp = split(/ /, $term);push @termer_tmp_tva, @tmp;}elsif ($term ne " "){push @termer_tmp_tva, $term;}}foreach $term (@termer_tmp_tva){if ($term =~ m/\"/) { $term =~ s/\"//; }if ($term =~ m/\"/) { $term =~ s/\"//; }push @terms, $term;}my $AntalGenomsokta = 0;my $AntalHittade = 0;foreach $FILE (@SokFiler){open(FILE,"$FILE");@LINES = <FILE>;close(FILE);$string = join(' ',@LINES);$string =~ s/\n//g;$string =~ s/\&aring\;/å/g;$string =~ s/\&auml\;/ä/g;$string =~ s/\&ouml\;/ö/g;$string =~ s/\&Aring\;/Å/g;$string =~ s/\&Auml\;/Ä/g;$string =~ s/\&Ouml\;/Ö/g;$avbryt = 0;foreach $term (@terms){if (($string =~ /$term/igs) || ($SokTitlar[$AntalGenomsokta] =~ /$term/igs)){my $Titel_Lang = &dokument_skapatitel("$SokNr[$AntalGenomsokta]");push @fillista, "${Titel_Lang}\#\#$SokNr[$AntalGenomsokta]";$AntalHittade++;$avbryt = 1;}last if $avbryt == 1;}$AntalGenomsokta++;}if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'0001_0001'} = "Search result";$sprak_text{'0001_0002'} = "Your search for";$sprak_text{'0001_0003'} = "resulted in";$sprak_text{'0001_0004'} = "pages that matched your search words.";$sprak_text{'0001_0005'} = "Try to change your search words and search again.";}else{$sprak_text{'0001_0001'} = "Resultat av sökning";$sprak_text{'0001_0002'} = "Din sökning efter";$sprak_text{'0001_0003'} = "resulterade i";$sprak_text{'0001_0004'} = "hittade sidor som matchade din sökning.";$sprak_text{'0001_0005'} = "Prova att förändra din sökning en aning och sök igen.";}print "      <h1>$sprak_text{'0001_0001'}</h1>\n\n\n\n\n";print "     $sprak_text{'0001_0002'} \"<b>";$i = 0;foreach $term (@terms){print "$term";$i++;if (!($i == @terms)){print ", ";}}print "</b>\" $sprak_text{'0001_0003'} <b>$AntalHittade</b> $sprak_text{'0001_0004'}<br><br>\n";if ($AntalHittade == 0){print "$sprak_text{'0001_0005'}<br><br>\n";}else{print "      <ol>\n\n\n";@fillista = sort {$a cmp $b} @fillista;foreach $rad (@fillista){($Titel, $Nr) = split(/\#\#/, $rad);print "      <li><a href=\"${cgihref}/ak_webbpub-s.cgi?funk=F&nr=${Nr}&Sprak_ID=$formvariabel{'Sprak_ID'}\" target=\"_top\">${Titel}</a></li>\n\n\n";}print "  </ol>\n\n\n\n\n";}print "      <br>\n\n\n\n\n";}sub dokument_skapatitel(){my (@DokFil, $DokRad, %variabel, $returVarde, $AntalGr, $NastaArtgrp, $AvbrytSnurra);open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@DokFil = <DOKUMENT>;close(DOKUMENT);$NastaArtgrp  = "";$AntalGr      = 0;$AvbrytSnurra  = 0;foreach $DokRad (@DokFil){%variabel = &tolka_rad($DokRad);if ($variabel{'nr'} eq $_[0]){$AntalGr      = $variabel{'niva'};$NastaArtgrp  = $variabel{'ugrpnamn'};$returVarde   = $variabel{'beskr'};$AvbrytSnurra = 1;}last if $AvbrytSnurra == 1;}if ($AntalGr > 0){for ($i = $AntalGr; $i >= 0; $i--){$AvbrytSnurra = 0;foreach $DokRad (@DokFil){%variabel = &tolka_rad($DokRad);if ($variabel{'nr'} eq $NastaArtgrp){$NastaArtgrp  = $variabel{'ugrpnamn'};$returVarde   = "$variabel{'beskr'} / ${returVarde}";$AvbrytSnurra = 1;}last if $AvbrytSnurra == 1;}}}return ($returVarde);}sub skrivut_start_typ1(){$formvariabel{'nr'} = "start_$formvariabel{'Sprak_ID'}";&skrivut_dokument_enskilt();}sub skrivut_start_typ2(){my $Fraga_Finns = 0;if ($installningar{'Startsidan_Snabbfraga'} eq "J"){open(FIL, "<dokument/snabbfraga\_$installningar{'Startsidan_Snabbfraga_Nr'}\.dat");@fil = <FIL>;close(FIL);my $Tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'Tid_Start'} <= $Tid) && ($variabel{'Tid_Stopp'} >= $Tid)){$Fraga_Finns = 1;}last if $Fraga_Finns == 1;}}print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td width=\"65%\" valign=\"top\">\n\n\n\n\n";$formvariabel{'nr'} = "start_$formvariabel{'Sprak_ID'}";&skrivut_dokument_enskilt();print "          </td>\n\n\n\n\n";print "          <td width=\"5%\" background=\"${bildmappHref}/_avd_1px_startsida.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>\n\n\n\n\n";print "          <td width=\"30%\" valign=\"top\">\n\n\n\n\n";print "            <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";my $Hittat = 0;if ($installningar{'Startsidan_Nyhetsdatabas'} eq "J"){print "              <tr>\n\n\n\n\n";print "                <td width=\"100%\" valign=\"top\">\n\n\n\n\n";if ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "2"){$Hittat = &skrivut_nyheter_typ2("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}elsif ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "3"){$Hittat = &skrivut_nyheter_typ3("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}elsif ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "4"){$Hittat = &skrivut_nyheter_typ4("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}else{$Hittat = &skrivut_nyheter_typ1("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}print "                </td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";$Hittat = 1;}if ($installningar{'Startsidan_Kalendarium'} eq "J"){if ($Hittat == 1){print "              <tr>\n\n\n\n\n";print "                <td background=\"${bildmappHref}/_avd_1px_startsida2.gif\" height=\"20\" align=\"left\" valign=\"middle\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}print "              <tr>\n\n\n\n\n";print "                <td width=\"100%\" valign=\"top\">\n\n\n\n\n";if ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "2"){&skrivut_kalendarium_typ2("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}elsif ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "3"){&skrivut_kalendarium_typ3("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}elsif ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "4"){&skrivut_kalendarium_typ4("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}else{&skrivut_kalendarium_typ1("100%", "N", "$installningar{'Startsidan_Kalendarium_Nr'}", "J");}print "                </td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}if (($installningar{'Startsidan_Snabbfraga'} eq "J") && ($Fraga_Finns == 1)){if ($Hittat == 1){print "              <tr>\n\n\n\n\n";print "                <td background=\"${bildmappHref}/_avd_1px_startsida2.gif\" height=\"20\" align=\"left\" valign=\"middle\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}print "              <tr>\n\n\n\n\n";print "                <td width=\"100%\" valign=\"top\">\n\n\n\n\n";&Kolla_Om_Redan_Rostat("$installningar{'Startsidan_Snabbfraga_Nr'}");if ($Fraga_Redan_Rostat == 1){&skrivut_snabbfraga_resultat("$installningar{'Startsidan_Snabbfraga_Nr'}", "J");}else{&skrivut_snabbfraga_visa("$installningar{'Startsidan_Snabbfraga_Nr'}", "J");}print "                </td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}print "            </table>\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";print "      <br>\n\n\n\n\n";}sub skrivut_start_typ3(){my $Fraga_Finns = 0;my $Antal_Under_Kolumner = 0;my $Colspan = 0;my $Kolumn_Bredd = 0;if ($installningar{'Startsidan_Nyhetsdatabas'} eq "J"){$Antal_Under_Kolumner++;}if ($installningar{'Startsidan_Kalendarium'} eq "J"){$Antal_Under_Kolumner++;}if ($installningar{'Startsidan_Snabbfraga'} eq "J"){$Antal_Under_Kolumner++;open(FIL, "<dokument/snabbfraga\_$installningar{'Startsidan_Snabbfraga_Nr'}\.dat");@fil = <FIL>;close(FIL);my $Tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'Tid_Start'} <= $Tid) && ($variabel{'Tid_Stopp'} >= $Tid)){$Fraga_Finns = 1;}last if $Fraga_Finns == 1;}}if ($Antal_Under_Kolumner == 0){$Colspan = 1;$Kolumn_Bredd = 100;}elsif ($Antal_Under_Kolumner == 1){$Colspan = 1;$Kolumn_Bredd = 100;}elsif ($Antal_Under_Kolumner == 2){$Colspan = 3;$Kolumn_Bredd = 48;}elsif ($Antal_Under_Kolumner == 3){$Colspan = 5;$Kolumn_Bredd = 30;}print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td width=\"100%\" valign=\"top\" colspan=\"${Colspan}\">\n\n\n\n\n";$formvariabel{'nr'} = "start_$formvariabel{'Sprak_ID'}";&skrivut_dokument_enskilt();print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td colspan=\"${Colspan}\" background=\"${bildmappHref}/_avd_1px_startsida2.gif\" height=\"20\" align=\"left\" valign=\"middle\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr>\n\n\n\n\n";if ($installningar{'Startsidan_Nyhetsdatabas'} eq "J"){print "          <td width=\"${Kolumn_Bredd}%\" valign=\"top\">\n\n\n\n\n";if ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "2"){&skrivut_nyheter_typ2("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}elsif ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "3"){&skrivut_nyheter_typ3("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}elsif ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "4"){&skrivut_nyheter_typ4("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}else{&skrivut_nyheter_typ1("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}print "          </td>\n\n\n\n\n";}if (($installningar{'Startsidan_Nyhetsdatabas'} eq "J") && (($installningar{'Startsidan_Kalendarium'} eq "J") || (($installningar{'Startsidan_Snabbfraga'} eq "J") && ($Fraga_Finns == 1)))){print "          <td width=\"5%\" background=\"${bildmappHref}/_avd_1px_startsida.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>\n\n\n\n\n";}if ($installningar{'Startsidan_Kalendarium'} eq "J"){print "          <td width=\"${Kolumn_Bredd}%\" valign=\"top\">\n\n\n\n\n";if ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "2"){&skrivut_kalendarium_typ2("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}elsif ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "3"){&skrivut_kalendarium_typ3("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}elsif ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "4"){&skrivut_kalendarium_typ4("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}else{&skrivut_kalendarium_typ1("100%", "N", "$installningar{'Startsidan_Kalendarium_Nr'}", "J");}print "          </td>\n\n\n\n\n";}if ((($installningar{'Startsidan_Nyhetsdatabas'} eq "J") || ($installningar{'Startsidan_Kalendarium'} eq "J")) && (($installningar{'Startsidan_Snabbfraga'} eq "J") && ($Fraga_Finns == 1))){print "          <td width=\"5%\" background=\"${bildmappHref}/_avd_1px_startsida.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>\n\n\n\n\n";}if (($installningar{'Startsidan_Snabbfraga'} eq "J") && ($Fraga_Finns == 1)){print "          <td width=\"${Kolumn_Bredd}%\" valign=\"top\">\n\n\n\n\n";&Kolla_Om_Redan_Rostat("$installningar{'Startsidan_Snabbfraga_Nr'}");if ($Fraga_Redan_Rostat == 1){&skrivut_snabbfraga_resultat("$installningar{'Startsidan_Snabbfraga_Nr'}", "J");}else{&skrivut_snabbfraga_visa("$installningar{'Startsidan_Snabbfraga_Nr'}", "J");}print "          </td>\n\n\n\n\n";}print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";print "      <br>\n\n\n\n\n";}sub skrivut_start_typ4(){my $Fraga_Finns = 0;if ($installningar{'Startsidan_Snabbfraga'} eq "J"){open(FIL, "<dokument/snabbfraga\_$installningar{'Startsidan_Snabbfraga_Nr'}\.dat");@fil = <FIL>;close(FIL);my $Tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'Tid_Start'} <= $Tid) && ($variabel{'Tid_Stopp'} >= $Tid)){$Fraga_Finns = 1;}last if $Fraga_Finns == 1;}}print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td width=\"65%\" valign=\"top\">\n\n\n\n\n";$formvariabel{'nr'} = "start_$formvariabel{'Sprak_ID'}";&skrivut_dokument_enskilt();print "          </td>\n\n\n\n\n";print "          <td width=\"5%\" background=\"${bildmappHref}/_avd_1px_startsida.gif\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"5\" height=\"5\"></td>\n\n\n\n\n";print "          <td width=\"30%\" valign=\"top\">\n\n\n\n\n";print "            <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";if ($installningar{'Startsidan_Kalendarium'} eq "J"){print "              <tr>\n\n\n\n\n";print "                <td width=\"100%\" valign=\"top\">\n\n\n\n\n";if ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "2"){&skrivut_kalendarium_typ2("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}elsif ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "3"){&skrivut_kalendarium_typ3("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}elsif ($installningar{'Startsidan_Kalendarium_Layoutmall'} eq "4"){&skrivut_kalendarium_typ4("100%", "$installningar{'Startsidan_Kalendarium_Nr'}", "4", "J");}else{&skrivut_kalendarium_typ1("100%", "N", "$installningar{'Startsidan_Kalendarium_Nr'}", "J");}print "                </td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}if (($installningar{'Startsidan_Snabbfraga'} eq "J") && ($Fraga_Finns == 1)){if ($installningar{'Startsidan_Kalendarium'} eq "J"){print "              <tr>\n\n\n\n\n";print "                <td background=\"${bildmappHref}/_avd_1px_startsida2.gif\" height=\"20\" align=\"left\" valign=\"middle\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}print "              <tr>\n\n\n\n\n";print "                <td width=\"100%\" valign=\"top\">\n\n\n\n\n";&Kolla_Om_Redan_Rostat("$installningar{'Startsidan_Snabbfraga_Nr'}");if ($Fraga_Redan_Rostat == 1){&skrivut_snabbfraga_resultat("$installningar{'Startsidan_Snabbfraga_Nr'}", "J");}else{&skrivut_snabbfraga_visa("$installningar{'Startsidan_Snabbfraga_Nr'}", "J");}print "                </td>\n\n\n\n\n";print "              </tr>\n\n\n\n\n";}print "            </table>\n\n\n\n\n";print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td colspan=\"3\" background=\"${bildmappHref}/_avd_1px_startsida2.gif\" height=\"20\" align=\"left\" valign=\"middle\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td colspan=\"3\" width=\"100%\" valign=\"top\">\n\n\n\n\n";if ($installningar{'Startsidan_Nyhetsdatabas'} eq "J"){if ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "2"){&skrivut_nyheter_typ2("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}elsif ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "3"){&skrivut_nyheter_typ3("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}elsif ($installningar{'Startsidan_Nyhetsdatabas_Layoutmall'} eq "4"){&skrivut_nyheter_typ4("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}else{&skrivut_nyheter_typ1("100%", "$installningar{'Startsidan_Nyhetsdatabas_Nr'}", "4");}}print "          </td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";print "      <br>\n\n\n\n\n";}sub skrivut_secure_bild(){my ($ContentType, $Andelse, @fil, %variabel, $rad);my $accessOK = &accessValdMapp($formvariabel{'Mapp'});if ($accessOK == 1){$ContentType = "application/x-unknown";($Andelse) = $formvariabel{'Dok'} =~ m{\.([^.]*)$};$Andelse = lc $Andelse;open(FIL, "<${cgidir}/databas_mimetyper.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'Ext'} eq $Andelse){$ContentType = $variabel{'Content_Type'};}last if $ContentType ne "application/x-unknown";}print "Content-type: ${ContentType}\n";print "Pragma: no-cache\n\n";open(FIL, "<${cgidir}/dokument/bibliotek$formvariabel{'Mapp'}/$formvariabel{'Dok'}");@fil = <FIL>;close(FIL);foreach $rad (@fil){print "$rad";}}else{print "Location: ${cgihref}/ak_webbpub-s.cgi?funk=VisaIdent&Sprak_ID=$formvariabel{'Sprak_ID'}&Omstyr=SB&Mapp=$formvariabel{'Mapp'}&Dok=$formvariabel{'Dok'}\n\n";}}sub skrivut_formularsvar(){while (($namn, $varde) = each %formvariabel){if (($varde =~ m/to\:/igs) || ($varde =~ m/from\:/igs) || ($varde =~ m/bcc\:/igs) || ($varde =~ m/subject\:/igs) || ($varde =~ m/content\-type/igs)  || ($varde =~ m/mime-version/igs)){$varde = "";}$formvariabel{$namn} = $varde;}if ($formvariabel{'Sprak_ID'} eq "en"){$sprak_text{'0001_0001'} = "Error!";$sprak_text{'0001_0002'} = "Your message have not been delivered yet. We are missing some information which we would appriciate if you would fill in:";$sprak_text{'0001_0003'} = "Company name";$sprak_text{'0001_0004'} = "Your name";$sprak_text{'0001_0005'} = "Your e-mail address";$sprak_text{'0001_0006'} = "Your phone number";$sprak_text{'0001_0007'} = "Thank you for your interest!";$sprak_text{'0001_0008'} = "Your message has been sent to";}else{$sprak_text{'0001_0001'} = "Ett fel uppstod!";$sprak_text{'0001_0002'} = "Ditt meddelande har inte skickats ännu. Vi saknar några uppgifter, som vi skulle uppskatta om du kunde komplettera med:";$sprak_text{'0001_0003'} = "Företagets namn";$sprak_text{'0001_0004'} = "Ditt namn";$sprak_text{'0001_0005'} = "Din e-postadress";$sprak_text{'0001_0006'} = "Ditt telefonnummer";$sprak_text{'0001_0007'} = "Tack för ditt intresse!";$sprak_text{'0001_0008'} = "Ditt meddelande har skickats till";}if (($formvariabel{'namn'} eq "") || ($formvariabel{'epost'} eq "") || ($formvariabel{'telefon'} eq "")){print "<h1>$sprak_text{'0001_0001'}</h1>";print "$sprak_text{'0001_0002'}<br>";if ($formvariabel{'namn'} eq "") {print "<li><font color=\"\#CC0000\"><b>$sprak_text{'0001_0004'}</b></font>.<br>";}if ($formvariabel{'epost'} eq "") {print "<li><font color=\"\#CC0000\"><b>$sprak_text{'0001_0005'}</b></font>.<br>";}if ($formvariabel{'telefon'} eq "") {print "<li><font color=\"\#CC0000\"><b>$sprak_text{'0001_0006'}</b></font>.<br>";}print "<br>";}else{print "<h1>$sprak_text{'0001_0007'}</h1>";print "$sprak_text{'0001_0008'} ${foretag}.<br>";print "<br>";open (MAIL, "|$mailprog");print MAIL "To: ${foretag} <${epost_foretag}>\n";print MAIL "From: E-postformulär <$formvariabel{'epost'}>\n";print MAIL "Subject: $formvariabel{'Amne'}\n\n";print MAIL "Hej,\n\n";print MAIL "Följande e-post skickades via webbplatsens formulär för \"$formvariabel{'Amne'}\":\n\n";for ($i = 1; $i <= 30; $i++){my $Skriv_Radmatning = 0;my $TempVar_Prefix = "Frifalt_Prefix_${i}";my $TempVar = "Frifalt_${i}";my $TempVar_Suffix = "Frifalt_Suffix_${i}";if ($formvariabel{$TempVar_Prefix} ne ""){print MAIL "$formvariabel{$TempVar_Prefix}";$Skriv_Radmatning = 1;}if ($formvariabel{$TempVar} ne ""){print MAIL "$formvariabel{$TempVar}";$Skriv_Radmatning = 1;}if ($formvariabel{$TempVar_Suffix} ne ""){print MAIL "$formvariabel{$TempVar_Suffix}";$Skriv_Radmatning = 1;}if ($Skriv_Radmatning == 1){print MAIL "\n";}}for ($i = 1; $i <= 10; $i++){my $TempVar = "CB_${i}";if ($formvariabel{$TempVar} ne "") {print MAIL "$formvariabel{$TempVar}\n";}}if (($formvariabel{'CB_Extra'} ne "") && ($formvariabel{'CB_Extra_Svar'} ne "")){print MAIL "$formvariabel{'CB_Extra'} $formvariabel{'CB_Extra_Svar'}\n";}print MAIL "\n";if ($formvariabel{'foretag'} ne "") {print MAIL "Företag: $formvariabel{'foretag'}\n";}if ($formvariabel{'namn'} ne "") {print MAIL "Namn: $formvariabel{'namn'}\n";}if (($formvariabel{'adress'} ne "") || ($formvariabel{'postadress'} ne "")) {print MAIL "Adress: $formvariabel{'adress'}, $formvariabel{'postadress'}\n";}if ($formvariabel{'land'} ne "") {print MAIL "Land: $formvariabel{'Land'}\n";}if ($formvariabel{'epost'} ne "") {print MAIL "E-post: $formvariabel{'epost'}\n";}if ($formvariabel{'telefon'} ne "") {print MAIL "Telefon: $formvariabel{'telefon'}\n";}if ($formvariabel{'fax'} ne "") {print MAIL "Fax: $formvariabel{'fax'}\n";}if ($formvariabel{'mobil'} ne "") {print MAIL "Mobiltelefon: $formvariabel{'mobil'}\n";}print MAIL "\n";if ($formvariabel{'meddelande'} ne "") {print MAIL "Meddelande:\n$formvariabel{'meddelande'}\n\n";}close(MAIL);}}sub skrivut_snabbfraga_slutfor(){my ($fragaStopp, $fragaSlutDat, $avbryt, $antal, @fil, $rad, %variabel);open(XYZ, ">dokument/snabbfraga\_$formvariabel{'nr'}\.dat\.temp$$");open(FIL, "<dokument/snabbfraga\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'Fraga_ID'} eq $formvariabel{'Fraga_ID'}){$fragaStopp   = $variabel{'Tid_Stopp'};$fragaSlutDat = $variabel{'Slutdatum'};my @allaRes  = split(/,/, $variabel{'Resultat'});$allaRes[$formvariabel{'Svarsalternativ'}] = $allaRes[$formvariabel{'Svarsalternativ'}] + 1;my $nyRad = "Fraga_ID!eq!$variabel{'Fraga_ID'}!ny!";$nyRad .= "Tid!eq!$variabel{'Tid'}!ny!";$nyRad .= "Tid_Start!eq!$variabel{'Tid_Start'}!ny!";$nyRad .= "Tid_Stopp!eq!$variabel{'Tid_Stopp'}!ny!";$nyRad .= "Slutdatum!eq!$variabel{'Slutdatum'}!ny!";$nyRad .= "Fraga!eq!$variabel{'Fraga'}!ny!";$nyRad .= "Svar!eq!$variabel{'Svar'}!ny!";$nyRad .= "Resultat!eq!";my $start = 0;foreach $resultat (@allaRes){if ($start > 0){$nyRad .= ",";}$nyRad .= "$allaRes[$start]";$start++;}print XYZ "${nyRad}\n";}else{print XYZ "${rad}\n";}}close(XYZ);rename "dokument/snabbfraga\_$formvariabel{'nr'}\.dat\.temp$$", "dokument/snabbfraga\_$formvariabel{'nr'}\.dat";chmod 0777, "dokument/snabbfraga\_$formvariabel{'nr'}\.dat";print "Set-Cookie: Fraga_$formvariabel{'nr'}=$formvariabel{'Fraga_ID'}; path=/; expires=${fragaSlutDat};\n";}sub skrivut_snabbfraga_resultat(){my ($avbryt, $antal, @fil, $rad, %variabel, @allaSvar, @allaRes, @bgColor);$bgColor[0] = "\#FFCC00";$bgColor[1] = "\#FF8C00";$bgColor[2] = "\#CC0000";$bgColor[3] = "\#800080";$bgColor[4] = "\#FF40FF";$bgColor[5] = "\#0000CC";$bgColor[6] = "\#008080";$bgColor[7] = "\#008000";$bgColor[8] = "\#426342";$bgColor[9] = "\#888888";$bgColor[10] = "\#000000";$bgColor[11] = "\#DDDDDD";open(FIL, "<dokument/snabbfraga\_$_[0]\.dat");@fil = <FIL>;close(FIL);$avbryt = 0;my $Tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'Tid_Start'} <= $Tid) && ($variabel{'Tid_Stopp'} >= $Tid)){@allaSvar = split(/,/, $variabel{'Svar'});@allaRes  = split(/,/, $variabel{'Resultat'});$avbryt = 1;}last if $avbryt == 1;}if ($avbryt == 1){if ($_[1] eq "J"){open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");my @dokument = <DOKUMENT>;close(DOKUMENT);$hittatPost = 0;foreach $dokumentrad (@dokument){%tabellData = &tolka_rad($dokumentrad);if ($tabellData{'nr'} eq $_[0]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";}if ($formvariabel{'Sprak_ID'} eq "sv"){print "Just nu är ställningen i frågan ";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Current standings in the poll ";}print "\"<b>$variabel{'Fraga'}</b>\"<br>";print "<img width=\"5\" height=\"5\" src=\"${bildmappHref}/_mellanrum.gif\"><br>";print "<table border=\"0\" cellspacing=\"1\" cellpadding=\"0\">";my $totaltAntal = 0;foreach $resultat (@allaRes){$totaltAntal += $resultat;}my $i = 0;foreach $svar (@allaSvar){my $procent = int(($allaRes[$i] / $totaltAntal * 100) + 0.5);my $bild_bredd = int(($allaRes[$i] / $totaltAntal * 50) + 0.5);print "<tr>";print "<td valign=\"middle\"><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"${bild_bredd}\" bgcolor=\"$bgColor[$i]\"><tr><td><img width=\"${bild_bredd}\" height=\"12\" src=\"${bildmappHref}/_mellanrum.gif\"></td></tr></table></td>";print "<td><img width=\"4\" height=\"4\" src=\"${bildmappHref}/_mellanrum.gif\"></td>";print "<td><b>${procent}%</b> - ${svar}</td>";print "</tr>";$i++;}print "</table>";print "<img width=\"5\" height=\"5\" src=\"${bildmappHref}/_mellanrum.gif\"><br>";if ($formvariabel{'Sprak_ID'} eq "sv"){print "Totalt antal röstande: ";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Total no of votes: ";}print "<b>${totaltAntal}</b><br>";print "<img width=\"5\" height=\"5\" src=\"${bildmappHref}/_mellanrum.gif\"><br>";if ($formvariabel{'Sprak_ID'} eq "sv"){print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Meny&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\">Visa arkivet &raquo;</a><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Meny&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\">Show the archive &raquo;</a><br>";}}return ($avbryt);}sub skrivut_snabbfraga_visa(){my ($Tid, $avbryt, $antal, @fil, $rad, %variabel);open(FIL, "<dokument/snabbfraga\_$_[0]\.dat");@fil = <FIL>;close(FIL);$Tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($variabel{'Tid_Start'} <= $Tid) && ($variabel{'Tid_Stopp'} >= $Tid)){$avbryt = 1;}last if $avbryt == 1;}if ($avbryt == 1){if ($_[1] eq "J"){open(DOKUMENT, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");my @dokument = <DOKUMENT>;close(DOKUMENT);$hittatPost = 0;foreach $dokumentrad (@dokument){%tabellData = &tolka_rad($dokumentrad);if ($tabellData{'nr'} eq $_[0]){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";}print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\">";print "<form method=\"post\" action=\"${cgihref}/ak_webbpub-s.cgi\" name=\"Askas_Snabbfraga\">";print "<tr>";print "<td>";print "<input type=\"hidden\" name=\"funk\" value=\"Fraga_Svar\">";print "<input type=\"hidden\" name=\"Fraga_ID\" value=\"$variabel{'Fraga_ID'}\">";print "<input type=\"hidden\" name=\"Sprak_ID\" value=\"$formvariabel{'Sprak_ID'}\">";print "<input type=\"hidden\" name=\"nr\" value=\"$_[0]\">";print "<b>$variabel{'Fraga'}</b><br>";print "<br>";my @allaSvar = split(/,/, $variabel{'Svar'});my $i = 0;foreach $svar (@allaSvar){print "<input type=\"radio\" name=\"Svarsalternativ\" value=\"$i\"> $svar<br>";$i++;}print "<br>";if ($formvariabel{'Sprak_ID'} eq "sv"){print "<input type=\"submit\" value=\"Rösta &raquo;\">";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "<input type=\"submit\" value=\"Vote &raquo;\">";}print "<img width=\"5\" height=\"5\" src=\"${bildmappHref}/_mellanrum.gif\"><br>";if ($formvariabel{'Sprak_ID'} eq "sv"){print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Meny&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\">Visa arkivet &raquo;</a><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Meny&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\">Show the archive &raquo;</a><br>";}print "</td>";print "</tr>";print "</form>";print "</table>";}return ($avbryt);}sub skrivut_snabbfraga_meny(){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";&Kolla_Om_Redan_Rostat("$formvariabel{'nr'}");my $Fraga_Fanns = 0;if ($Fraga_Redan_Rostat == 1){$Fraga_Fanns = &skrivut_snabbfraga_resultat("$formvariabel{'nr'}");}else{$Fraga_Fanns = &skrivut_snabbfraga_visa("$formvariabel{'nr'}");}open(FIL, "<dokument/snabbfraga\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);$antal = 0;my $Tid = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if (($Tid > $variabel{'Tid_Start'}) && ($Tid > $variabel{'Tid_Stopp'})){if ($antal == 0){if ($Fraga_Fanns == 1){print "      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n\n\n\n\n";print "        <tr>\n\n\n\n\n";print "          <td colspan=\"5\" background=\"${bildmappHref}/_avd_1px_startsida2.gif\" height=\"20\" align=\"left\" valign=\"middle\"><img src=\"${bildmappHref}/_mellanrum.gif\" width=\"20\" height=\"20\"></td>\n\n\n\n\n";print "        </tr>\n\n\n\n\n";print "      </table>\n\n\n\n\n";print "      <br>\n\n\n\n\n";}if ($formvariabel{'Sprak_ID'} eq "sv"){print "Nedan ser du alla tidigare snabbfrågor, i kronologisk ordning. Klicka på en för att se resultatet.<br>\n\n\n\n\n";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Below all closed quick polls are listed in cronological order.<br>\n\n\n\n\n";}print "<br>\n\n\n\n\n";}my $StartDatum = "";my $StoppDatum = "";($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'Tid_Start'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }$StartDatum = "${year}-${month}-${day}";($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'Tid_Stopp'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }$StoppDatum = "${year}-${month}-${day}";print "&raquo; <a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Enskild&Fraga_ID=$variabel{'Fraga_ID'}&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\"><b>$variabel{'Fraga'}</b> ($StartDatum - $StoppDatum)</a><br>\n\n\n\n\n";print "<img width=\"3\" height=\"3\" src=\"${bildmappHref}/_mellanrum.gif\"><br>\n\n\n\n\n";$antal++;}}if (($antal == 0) && ($Fraga_Fanns == 0)){if ($formvariabel{'Sprak_ID'} eq "sv"){print "Inga snabbfrågor kunde hittas i arkivet.<br>\n\n\n\n\n";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Inga quick polls where found in the archive.<br>\n\n\n\n\n";}}print "<br>\n\n\n\n\n";}sub skrivut_snabbfraga_enskild(){open(FIL, "<databas_dokument_$formvariabel{'Sprak_ID'}.dat");@fil = <FIL>;close(FIL);$hittatPost = 0;foreach $rad (@fil){%tabellData = &tolka_rad($rad);if ($tabellData{'nr'} eq $formvariabel{'nr'}){$hittatPost = 1;}last if $hittatPost == 1;}print "      <h1>$tabellData{'beskr'}</h1>\n\n\n\n\n";my ($avbryt, $antal, @fil, $rad, %variabel, @allaSvar, @allaRes, @bgColor);$bgColor[0] = "\#FFCC00";$bgColor[1] = "\#FF8C00";$bgColor[2] = "\#CC0000";$bgColor[3] = "\#800080";$bgColor[4] = "\#FF40FF";$bgColor[5] = "\#0000CC";$bgColor[6] = "\#008080";$bgColor[7] = "\#008000";$bgColor[8] = "\#426342";$bgColor[9] = "\#888888";$bgColor[10] = "\#000000";$bgColor[11] = "\#DDDDDD";open(FIL, "<dokument/snabbfraga\_$formvariabel{'nr'}\.dat");@fil = <FIL>;close(FIL);$avbryt = 0;$tid    = time;foreach $rad (@fil){%variabel = &tolka_rad($rad);if ($variabel{'Fraga_ID'} eq $formvariabel{'Fraga_ID'}){@allaSvar = split(/,/, $variabel{'Svar'});@allaRes  = split(/,/, $variabel{'Resultat'});$avbryt = 1;}last if $avbryt == 1;}if ($avbryt == 1){if ($formvariabel{'Sprak_ID'} eq "sv"){print "Frågeställningen löd ";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "The poll was ";}print "\"<b>$variabel{'Fraga'}\"</b><br>";print "<img width=\"5\" height=\"5\" src=\"${bildmappHref}/_mellanrum.gif\"><br>";print "<table border=\"0\" cellspacing=\"1\" cellpadding=\"0\">";my $totaltAntal = 0;foreach $resultat (@allaRes){$totaltAntal += $resultat;}my $i = 0;foreach $svar (@allaSvar){my $procent = int(($allaRes[$i] / $totaltAntal * 100) + 0.5);print "<tr>";print "<td valign=\"middle\"><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"${procent}\" bgcolor=\"$bgColor[$i]\"><tr><td><img width=\"${procent}\" height=\"12\" src=\"${bildmappHref}/_mellanrum.gif\"></td></tr></table></td>";print "<td><img width=\"4\" height=\"4\" src=\"${bildmappHref}/_mellanrum.gif\"></td>";print "<td><b>${procent}%</b> - ${svar}</td>";print "</tr>";$i++;}print "</table>";print "<img width=\"5\" height=\"5\" src=\"${bildmappHref}/_mellanrum.gif\"><br>";if ($formvariabel{'Sprak_ID'} eq "sv"){print "Totalt antal röstande: ";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Total no of votes: ";}print "<b>$totaltAntal</b><br>";print "<br>";($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'Tid_Start'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($formvariabel{'Sprak_ID'} eq "sv"){print "Startdatum: <b>${year}-${month}-${day}</b><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Start date: <b>${year}-${month}-${day}</b><br>";}($second,$minute,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime($variabel{'Tid_Stopp'});$year += 1900;$month += 1;if ($month < 10)  { $month  = "0$month"; }if ($day < 10)    { $day    = "0$day"; }if ($formvariabel{'Sprak_ID'} eq "sv"){print "Stoppdatum: <b>${year}-${month}-${day}</b><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "Stop date: <b>${year}-${month}-${day}</b><br>";}print "<br>";if ($formvariabel{'Sprak_ID'} eq "sv"){print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Meny&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\">&laquo; Tillbaka</a><br>";}elsif ($formvariabel{'Sprak_ID'} ne "sv"){print "<a href=\"${cgihref}/ak_webbpub-s.cgi?funk=Fraga_Meny&Sprak_ID=$formvariabel{'Sprak_ID'}&nr=$formvariabel{'nr'}\">&laquo; Back</a><br>";}print "<br>";}else{print "Error!<br><br>";}}