#!/bin/perl
############################################################
#
# ONLINE.CGI
# Kulisics, Joseph D.
# 26 October 2004
#
############################################################
##############################
#
# PACKAGES
#
##############################
use strict;
use Socket;
use CGI;
##############################
#
# GLOBAL VARIABLES
#
##############################
my $WWW="www";
my $HOME="/export/home/kulisics";
my $FINGER="/bin/finger";
my $FINGERTARGET="kulisics\@silicon.chem.ucla.edu";
my $DATA1=`$FINGER $FINGERTARGET`;
my $DATA2=`$FINGER -l $FINGERTARGET`;
my $LOCALCGI=new CGI;
my $SILENT;
my $USERCLASS;
##############################
#
# IMMEDIATE DOCUMENTS
#
##############################
my $PREAMBLE= <<'PREAMBLE';
Online Status