HighPerl Version 2.5

generated: Mon Jun 17 16:53:14 2002

1	#!/usr/bin/perl -w
2	
3	require 5.00503;
4	use strict;
5	use warnings;
6	use CGI::Carp 'fatalsToBrowser';
7	use CGI ':standard';
8	use DBI;
9	use Config::IniFiles;
10	
11	 
12	my $config = new Config::IniFiles(-file => "./setup.ini");
13	my $p_name = $config->val('system', 'name');
14	my $p_version = $config->val('system', 'version');
15	my $p_years = $config->val('system', 'years');
16	my $p_developerurl = $config->val('system', 'developerurl');
17	my $p_developername = $config->val('system', 'developername');
18	my $s_system = $config->val('server', 'system');
19	my $s_shebang = $config->val('server', 'shebang');
20	
21	 
22	
23	decide();
24	
25	
26	### sub::decide
27	######## Führt die gewählte Aktion aus
28	###             ::sub
29	
30	sub decide {
31	    my $action = "step_1";
32	
33	    if (param('a')) { $action = param('a'); }
34	
35	    if ($action eq 'step_1') { step_1(); }
36	    elsif ($action eq 'step_2') { step_2(); }
37	    elsif ($action eq 'step_3') { step_3(); }
38	    elsif ($action eq 'step_4') { step_4(); }
39	    elsif ($action eq 'step_5') { step_5(); }
40	    else { step_0(); }
41	}
42	
43	### sub::step_misstake
44	######## Gibt eine Fehlermeldung aus
45	###             ::sub
46	
47	sub step_misstake {
48	
49	    my $message = shift;
50	
51	    my $head = "Setup: Fehler";
52	    my $step = "";
53	    my $headline = "Fehler";
54	    my $content = qq~<b><font color="darkred">$message</font></b><br><br>
55	Bitte gehen Sie zurück und beheben Sie den Fehler!<br><br>
56	<div align="center"><a href="javascript:history.go(-1)">Zurück</a></div>
57	~;
58	
59	    template($head, $step, $headline, $content);
60	}
61