moved qdb here because matt is lazy
[public/www-new.git] / pub / qdb / index.cgi
1 #!/usr/bin/perl
2
3 ###############################################################################
4 # Chirpy! 0.3, a quote management system                                      #
5 # Copyright (C) 2005-2007 Tim De Pauw <ceetee@users.sourceforge.net>          #
6 ###############################################################################
7 # This program is free software; you can redistribute it and/or modify it     #
8 # under the terms of the GNU General Public License as published by the Free  #
9 # Software Foundation; either version 2 of the License, or (at your option)   #
10 # any later version.                                                          #
11 #                                                                             #
12 # This program is distributed in the hope that it will be useful, but WITHOUT #
13 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or       #
14 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for   #
15 # more details.                                                               #
16 #                                                                             #
17 # You should have received a copy of the GNU General Public License along     #
18 # with this program; if not, write to the Free Software Foundation, Inc., 51  #
19 # Franklin St, Fifth Floor, Boston, MA  02110-1301  USA                       #
20 ###############################################################################
21
22 ###############################################################################
23 # index.cgi                                                                   #
24 # Initialization script                                                       #
25 ###############################################################################
26 # $Id:: index.cgi 291 2007-02-05 21:24:46Z ceetee                           $ #
27 ###############################################################################
28
29 use strict;
30 use warnings;
31 use CGI::Carp qw(fatalsToBrowser set_message);
32
33 BEGIN {
34         unshift @INC, 'src/modules';
35         set_message(sub {
36                 my $msg = shift;
37                 print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"', $/,
38                         '"http://www.w3.org/TR/html4/strict.dtd">', $/,
39                         '<html>', $/,
40                         '<head>', $/,
41                         '<meta http-equiv="Content-Type"', $/,
42                         'content="text/html; charset=UTF-8">', $/,
43                         '<title>An Error Occurred</title>', $/,
44                         '</head>', $/,
45                         '<body>', $/,
46                         '<h1>An Error Occurred</h1>', $/,
47                         '<blockquote><pre>', $msg, '</pre></blockquote>', $/,
48                         '<p><em>Powered by <a', $/,
49                         'href="http://chirpy.sourceforge.net/">Chirpy!</a></em></p>', $/,
50                         '</body>', $/,
51                         '</html>';
52                 exit;
53         });
54 }
55
56 use Chirpy 0.3;
57
58 chirpy('./chirpy.ini');
59
60 ###############################################################################