sub bob_setup {

# Sets up the variables $error, $warning, $processid, $|,
# and those associated with the time stamps, $time_stamp and
# $time_stamp_string

# February 21, 2003  R. Groman

$| = 1;
$error = "&x";
$warning = "#";

$date = scalar localtime;
$day_today = (localtime)[3];
if ($day_today < 10 ) {$day_today = "0" . $day_today}
$month_today = (localtime)[4];
$month_today++;
if ($month_today < 10 ) {$month_today = "0" . $month_today}
$year_today = (localtime)[5];
if ($year_today < 1000) {$year_today = $year_today + 1900;}
$hour_today = (localtime)[2];
if ($hour_today < 10 ) {$hour_today = "0" . $hour_today;}
$minute_today = (localtime)[1];
if ($minute_today < 10 ) {$minute_today = "0" . $minute_today;}
$time_today = $hour_today . $minute_today;
$time_stamp = $year_today . $month_today . $day_today . $time_today;
$time_stamp_string = $year_today . '/' . $month_today . '/' . $day_today . 
			'/' . $time_today;
$processid = getppid;
}
1;