#!/usr/bin/perl

#############################
## Temporal Vortex         ##
## Enter Message Engine    ##
## Version 1.0             ##
## By: Jeff Ledger         ##
#############################

#######################
# CONFIGURE VARIABLES #
#######################

my $user = $ARGV[0];

$path="/bbs/General";
$counter = '0';

##############################################################
## Open the counter and find out what the last message was. ##
##############################################################

open(FILE,"$path/number");
flock (FILE, 2);
$max = <FILE>;
flock (FILE, 8);
close (FILE);

open(FILE,"$path/first");
flock (FILE, 2);
$count = <FILE>;
flock (FILE, 8);
close (FILE);
chomp($count);

while(1) {

## UPDATE USERLIST ##
system("touch /bbs/ramdrive/$user");
#####################
$counter++;
if ($counter > $max ) { $counter -=1; }
print "\n\n\n";
print " \033[1;36;40m*General*\n";
print " \033[1;34;40mRead Messages:";
print " \033[1;37;40m$count\033[1;34;40m-\033[1;37;40m$max";
print " \033[1;34;40m [\033[1;37;40m#\033[1;34;40m]=";
print "\033[1;37;40mMessage number";
print "\033[1;34;40m [\033[1;37;40mENTER\033[1;34;40m]=";
print "\033[1;37;40mMsg#$counter";
print "\033[1;34;40m [\033[1;37;40mQ\033[1;34;40m]=";
print "\033[1;37;40mQuit: ";

chomp($read = <STDIN>);

#if ($read < $max ) { $read -=1; }
if ($read eq '') { $read=$counter }
if ($read eq 'q' || $read eq 'Q') { exit; }

	if (open(MYFILE, "$path/clear.ans")) {
		while (<MYFILE>) {
		print ;
		}
		}
		close(MYFILE);
print "\033[1;34;40m Reading Message #\033[1;37;40m$read\n";
        $counter=$read;
        system("more -f $path/$read.msg");

## OLD CODE ##
#	if (open(PICK, "$path/$read.msg")) {
#		while (<PICK>) {
#		print ;
#		}
#		}
#		close(PICK);
################################################

}


