Utleie Kalender

#!/usr/bin/perl require("datafunctions.inc"); &getpost_fetch(); if(defined($queryGET{'loggut'})) { if($queryGET{'loggut'} == 1) { unlink("admstat.txt"); } } # Adminsjekk $admin = 0; if(defined($queryFORM{'f_passord'})) { if($queryFORM{'f_passord'} eq "sodefjed1") { open(ADMFIL,">admstat.txt"); print ADMFIL "ladhliunwy3i7dn289n"; close(ADMFIL); $admin = 1; } }elsif(-e "admstat.txt") { open(ADMFIL,"; close(ADMFIL); if($admstr eq "ladhliunwy3i7dn289n") { $admin = 1; } } # Sjekk etter oppdateringer if($admin == 1) { if(defined($queryFORM{'januar_update'})) { # Oppdaterer januar $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'januar' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/januar.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Januar ble oppdatert."; }elsif(defined($queryFORM{'februar_update'})) { # Oppdaterer februar $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'februar' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/februar.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Februar ble oppdatert."; }elsif(defined($queryFORM{'mars_update'})) { # Oppdaterer Mars $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'mars' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/mars.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "mars ble oppdatert."; }elsif(defined($queryFORM{'april_update'})) { # Oppdaterer April $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'april' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/april.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "April ble oppdatert."; }elsif(defined($queryFORM{'mai_update'})) { # Oppdaterer Mai $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'mai' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/mai.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Mai ble oppdatert."; }elsif(defined($queryFORM{'juni_update'})) { # Oppdaterer Juni $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'juni' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/juni.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Juni ble oppdatert."; }elsif(defined($queryFORM{'juli_update'})) { # Oppdaterer Juli $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'juli' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/juli.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Juli ble oppdatert."; }elsif(defined($queryFORM{'august_update'})) { # Oppdaterer August $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'august' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/august.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "August ble oppdatert."; }elsif(defined($queryFORM{'september_update'})) { # Oppdaterer September $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'september' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/september.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "September ble oppdatert."; }elsif(defined($queryFORM{'oktober_update'})) { # Oppdaterer Oktober $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'oktober' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/oktober.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Oktober ble oppdatert."; }elsif(defined($queryFORM{'november_update'})) { # Oppdaterer November $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'november' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/november.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "November ble oppdatert."; }elsif(defined($queryFORM{'desember_update'})) { # Oppdaterer Desember $ny_data = ""; for($x = 1; $x <= 31; $x++) { if(defined($queryFORM{'desember' . $x})) { $ny_data .= $x . "=" . 1 . "\n"; }else{ $ny_data .= $x . "=" . 0 . "\n"; } } open(DATAFIL,">data/desember.dat"); print DATAFIL $ny_data; close(DATAFIL); $report_status = "Desember ble oppdatert."; } } # Henter fargedata %januar = &fetch_januar(); %februar = &fetch_februar(); %mars = &fetch_mars(); %april = &fetch_april(); %mai = &fetch_mai(); %juni = &fetch_juni(); %juli = &fetch_juli(); %august = &fetch_august(); %september = &fetch_september(); %oktober = &fetch_oktober(); %november = &fetch_november(); %desember = &fetch_desember(); print "Content-Type: text/html\n\n"; print qq| Utleie Kalender - 2005 |; if(defined($queryGET{'b_vismaaned'})) { print &vis_maaned($queryGET{'b_vismaaned'}); }elsif(defined($queryGET{'a_vismaaned'})) { print &vis_admin_maaned($queryGET{'a_vismaaned'}); }elsif($admin == 1) { # vis adminmeny print qq| Bla deg igjennom kalenderen for å administrere kalender til utleie.

Reserverte dager:
Ledige dager:

2005
Januar
Februar
Mars
April
Mai
Juni
Juli
August
September
Oktober
November
Desember

$report_status
Logg ut |; }else { # vis brukermeny print qq| Bla deg igjennom kalenderen for å se hvilke dager vi har ledig utleie.

Reserverte dager:
Ledige dager:

2005
Januar
Februar
Mars
April
Mai
Juni
Juli
August
September
Oktober
November
Desember

|; } print qq| |; sub vis_maaned { my $mvalg = $_[0]; my $mview = ""; if($mvalg eq "januar") { $mview = qq| Januar 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
53						1	2
1	3	4	5	6	7	8	9
2	10	11	12	13	14	15	16
3	17	18	19	20	21	22	23
4	24	25	26	27	28	29	30
5	31

Tilbake til kalenderoversikt |; }elsif($mvalg eq "februar") { $mview = qq| Februar 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
5		1	2	3	4	5	6
6	7	8	9	10	11	12	13
7	14	15	16	17	18	19	20
8	21	22	23	24	25	26	27
9	28

Tilbake til kalenderoversikt |; }elsif($mvalg eq "mars") { $mview = qq| Mars 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
9		1	2	3	4	5	6
10	7	8	9	10	11	12	13
11	14	15	16	17	18	19	20
12	21	22	23	24	25	26	27
13	28	29	30	31

Tilbake til kalenderoversikt |; }elsif($mvalg eq "april") { $mview = qq| April 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
13					1	2	3
14	4	5	6	7	8	9	10
15	11	12	13	14	15	16	17
16	18	19	20	21	22	23	24
17	25	26	27	28	29	30

Tilbake til kalenderoversikt |; }elsif($mvalg eq "mai") { $mview = qq| Mai 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
17							1
18	2	3	4	5	6	7	8
19	9	10	11	12	13	14	15
20	16	17	18	19	20	21	22
21	23	24	25	26	27	28	29
22	30	31

Tilbake til kalenderoversikt |; }elsif($mvalg eq "juni") { $mview = qq| Juni 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
22			1	2	3	4	5
23	6	7	8	9	10	11	12
24	13	14	15	16	17	18	19
25	20	21	22	23	24	25	26
26	27	28	29	30

Tilbake til kalenderoversikt |; }elsif($mvalg eq "juli") { $mview = qq| Juli 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
26					1	2	3
27	4	5	6	7	8	9	10
28	11	12	13	14	15	16	17
29	18	19	20	21	22	23	24
30	25	26	27	28	29	30	31

Tilbake til kalenderoversikt |; }elsif($mvalg eq "august") { $mview = qq| August 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
31	1	2	3	4	5	6	7
32	8	9	10	11	12	13	14
33	15	16	17	18	19	20	21
34	22	23	24	25	26	27	28
35	29	30	31

Tilbake til kalenderoversikt |; }elsif($mvalg eq "september") { $mview = qq| September 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
35				1	2	3	4
36	5	6	7	8	9	10	11
37	12	13	14	15	16	17	18
38	19	20	21	22	23	24	25
39	26	27	28	29	30

Tilbake til kalenderoversikt |; }elsif($mvalg eq "oktober") { $mview = qq| Oktober 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
39						1	2
40	3	4	5	6	7	8	9
41	10	11	12	13	14	15	16
42	17	18	19	20	21	22	23
43	24	25	26	27	28	29	30
44	31

Tilbake til kalenderoversikt |; }elsif($mvalg eq "november") { $mview = qq| November 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
44		1	2	3	4	5	6
45	7	8	9	10	11	12	13
46	14	15	16	17	18	19	20
47	21	22	23	24	25	26	27
48	28	29	30

Tilbake til kalenderoversikt |; }elsif($mvalg eq "desember") { $mview = qq| Desember 2005

Uke	Mandag	Tirsdag	Onsdag	Torsdag	Fredag	Lørdag	Søndag
48				1	2	3	4
49	5	6	7	8	9	10	11
50	12	13	14	15	16	17	18
51	19	20	21	22	23	24	25
52	26	27	28	29	30	31

Tilbake til kalenderoversikt |; } return $mview; } sub vis_admin_maaned { my $mvalg = $_[0]; my $mview = ""; if($mvalg eq "januar") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "februar") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "mars") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "april") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "mai") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "juni") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "juli") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "august") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "september") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "oktober") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "november") { $mview = qq|
Tilbake til kalenderoversikt |; }elsif($mvalg eq "desember") { $mview = qq|
Tilbake til kalenderoversikt |; } return $mview; } sub getpost_fetch { #GET variables @values = split(/&/,$ENV{'QUERY_STRING'}); foreach $i (@values) { ($varname, $mydata) = split(/=/,$i); $queryGET{$varname} = $mydata; } #POST variables read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $queryFORM{$name} = $value; } }