#!/usr/bin/perl
#------------------------------------------------------------------------------
# Copyright (C) 2001 Thomax Kaulmann
# 
# 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, or (at your option)
# any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
use CGI;
use lib '/opt/oma/reboot/perl';
use REBOOT;



##   ##            ##            ######         ##   ##
### ###           ####             ##           ###  ##
#######          ##  ##            ##           #### ##
#######          ##  ##            ##           ## ####
## # ##          ######            ##           ##  ###
##   ##          ##  ##            ##           ##   ##
##   ##          ##  ##          ######         ##   ##

CGI::ReadParse();

print "$REBOOT::REBOOT_BODY";

($u,$p,$i,$g,$gg,$n1,$n2,$path,$s) = getpwnam($ENV{'REMOTE_USER'});
 

print "
<table border=0>
<tr>
<td rowspan=3>
<font size=-1>
<a target=_top href=$REBOOT::CGI_BINS/reboot-prep?access=latest&skrit=department>&lt;&lt;SWITCH</a>
</td>
</tr>
<tr>
<td>
<font size=-1>
<a target=f2 href=$REBOOT::CGI_BINS/.sec/reboot-upload>
        Upload file
</a>
</td>
<td>
<font size=-1>
<a target=f2 href=$REBOOT::CGI_BINS/.sec/reboot-entry>
        Enter a new entry
</a>
</td>
<td>
<font size=-1>
<a target=f2 href=$REBOOT::CGI_BINS/.sec/reboot-page-id>
        Edit exist entries
</a>
</td>
</tr>
<tr>
<td>
<font size=-1>
<a target=f2 href=$REBOOT::CGI_BINS/.sec/reboot-user?username=$ENV{'REMOTE_USER'}>
    Edit user profile
</a>
</td>
<td>
<font size=-1>
<a target=f2 href=/REBOOT/sec/FAQ.html>
    FAQ
</a>
</td>
";
if($ENV{'REMOTE_USER'} eq "admin") {
print "
<td>
<font size=-1>
<a target=f2 href=$REBOOT::CGI_BINS/.sec/reboot-hedit>
    genre admin
</a>
</td>
";
}

print "
</tr>
</table>
";
#<a href=/cgi-bin/REBOOT/.sec/nph-ftp>nftp (test)</a>
