#!/usr/local/bin/perl
# Structure layouts and filenames of magic files for perl.

# Sigh, I miss JSYS ODTIM%....
@MONTH = ('Jan','Feb','Mar','Apr','May','Jun',
	  'Jul','Aug','Sep','Oct','Nov','Dec');

@WEEKDAY = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

sub ODTIM {
    local($sec,$min,$hour,$mday,$mon,$year) = localtime(shift);
    sprintf("%2d-%s-%02d %d:%02d:%02d",
	    $mday,$MONTH[$mon],$year,$hour,$min,$sec);
}

# TTY location: ($ttyname, $ttyloc ) = unpack(...);
$ttyloc_template = 'A8A80';
$ttyloc_length = 8+80;
$ttyloc_file = '/etc/ttyloc';
$ttyloc_default_file = '/etc/ttyloc.def';

# Last known login: ($ll_time, $ll_line, $ll_host) = unpack(...)
$lastlog_template = 'lA8A16';
$lastlog_length = 4+8+16;
$lastlog_file = '/usr/adm/lastlog';

# Current logins: ($ut_line, $ut_name, $ut_host, $ut_time) = unpack(...)
$utmp_template = 'A8A8A16l';
$utmp_length = 8+8+16+4;
$utmp_file = '/etc/utmp';

# INQUIR database.
# The quoting protocol use to delimit fields was inspired by the
# escape character mechanism in SLIP (see RFC-1055).
$inquir_rawdel = "\377";		# raw delimiter character
$inquir_encdel = $inquir_rawdel . "1";	# encoded form of delimiter character
$inquir_delim  = $inquir_rawdel . "2";	# field delimiter sequence
$inquir_file   = 'DBDIR/inquire.bin';

# Finger File
$finger_file   = 'DBDIR/fingerbase';

# Look up an INQUIR entry.  Assumes database open as %INQUIR.
sub inquir_lookup {
    local($uname) = @_;
    $uname =~ tr/a-z/A-Z/;
    local(@entry) = split(/$inquir_delim/, $INQUIR{$uname});
    foreach (@entry) {
	s/$inquir_encdel/$inquir_rawdel/g;
    }
    return @entry;
}

# Local Variables:
# mode:c
# comment-start: "# "
# comment-start-skip: "#+[ ]*"
# comment-end: ""
# End: