#!/usr/bin/perl -w
#------------------------------------------------------------------------------
# /var/config/www/cgi-bin/script.pl - execute webconf script
#
# Copyright (c) 2004  eisfair webconf team
#
# Creation:     10.10.2004
# Last Update:  $Id$
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#------------------------------------------------------------------------------

use strict;
use CGI::Carp qw(fatalsToBrowser);
use webconf_base;
use navigation;

my @args = split(/&/,$ENV{'QUERY_STRING'});

my ($package, $file) = ("", "");

foreach (0 .. $#args)
{
    if    ($args[$_] =~ /^package=(.*)/)   { $package = decode_string($1); }
    elsif ($args[$_] =~ /^file=(.*)/)      { $file    = decode_string($1); }
}

print_head("Service administration", $package, "class=\"servform\"");
print_caption("Service administration", $package, "class=\"servform\"");
print_navigation("base", "setup.menu", "setup.services.menu");
   
print "Service administartion is not yet implemented.\n<br>";

print_foot("class=\"servform\"");

