Dexter,
here is the ubb_whos_online_ssi.cgi file again. I posted it in this thread a day or so ago, but i figured i'd toss it in again.
Let me know anything else you'll be needing!
ubb_whos_online_ssi.cgi--------------------
#!/usr/local/bin/perl
### UBB Who's Online SSI CGI
### by qasic (06/07/2001)
# ubb libraries required
use strict;
use CGI::Carp qw(fatalsToBrowser carpout);
use CGI qw(:cgi-lib :standard);
# variables
use vars qw(%vars_config %vars_misc %in $masterCharset @ubber $invisble_pref $username $user_number @Ell_cookie $invisible_pref @people %vars_whos_online);
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
($0 =~ m,(.*)\[^\]+,) && unshift (@INC, "$1"); # Get the script location: Windows
# get variables and wordlets
eval {
require "vars_config.cgi";
require "$vars_config{VariablesPath}/vars_display.cgi";
require "$vars_config{VariablesPath}/vars_misc.cgi";
require "$vars_config{VariablesPath}/vars_whos_online.cgi";
require "$vars_config{VariablesPath}/vars_wordlets_mods.cgi";
require "ubb_lib.cgi";
require "ubb_lib_time.cgi";
};
# print header
print "Content-type: text/htmlnn";
# check files
if ($@) {
print "
Error including required files: $@ $!n";
print "Make sure these files exist, permissions are set properly, and paths are set correctly.
";
exit;
}
# check for UBB closure
if ($vars_misc{BBStatus} ne 'ON') {
exit;
}
# retrieve cookies!
@ubber = cookie("ubber$vars_config{Cookie_Number}");
if ($ubber[0] ne '') { $username = $ubber[0]; }
if ($ubber[4] ne '') { $user_number = $ubber[4]; }
@Ell_cookie = cookie("Ell$vars_config{Cookie_Number}");
if ($Ell_cookie[0] ne '') { $invisible_pref = $Ell_cookie[0]; }
$invisible_pref = "" unless $vars_whos_online{allow_invisible};
#get who's online people
if (-e "$vars_config{MembersPath}/UBB6online.cgi") {
@people = &OpenFileAsArray("$vars_config{MembersPath}/UBB6online.cgi");
}
# now get ssi and output it
$in{ubb} = "whos_online_ssi";
require "$vars_config{CGIPath}/ubb_whos_online.cgi";
&whos_online_ssi($user_number, $invisible_pref);
exit;