#!/usr/bin/perl -w use strict; print "Content-type: text/html\n\n"; my $hostname = `cat /etc/hostname`; my $user = $ENV{REMOTE_USER}; my $freespace = `df -h /home`; my $fortune = `/usr/games/fortune`; my $date = `date`; my $dp = "dc=worf,dc=jtheuer,dc=de"; my $directlogin = < Password EOF print < $hostname

server time: $date

Access to console $hostname for starfleet user id $user

Free space

$freespace

MOTD

$fortune

turbolift

deck 1 bridge: phpldapadmin: update your personal information or change your password
deck 2 communication: Squirrelmail: read your daily news!
deck 3: engineering: phpMyAdmin: edit your MySQL Database
deck 4: phpSysInfo: gather some information about the server
deck 5: awstats: view your website statistics

starfleet communication protocols

SSL certificates: Please install this certificate and trust it!
E-Mail: sending and recieving mails is only possible with secure connections! (SSL or TLS)
webspace: download files only via sftp (secure ftp)

EOF