#!/usr/bin/perl
#
# $Id: out-ls.pl,v 4.3 2001/01/04 20:03:43 mj Exp $
#
# This script lists the outbound of a FIDOGATE system
#

require 5.000;

my $PROGRAM = "out-ls";
 
use strict;
use Getopt::Std;
use FileHandle;

##############################################################################
#
# $Id: config.pl,v 4.4 2001/01/04 20:03:42 mj Exp $
#
# Perl functions to read FIDOGATE config file,
# included by <INCLUDE config.pl> when running subst.pl
#

my %CONFIG;

# specials for DosDrive and Zone
my %CONFIG_dosdrive;
my %CONFIG_zone;



my %CONFIG_default =
    (
##Automatically generated by subst.pl, DO NOT EDIT!!!##
	"seq_split", "%V/seq/split",
	"uuinbound", "/var/spool/bt/uuin",
	"toss_toss", "%S/toss/toss",
	"passwd", "%C/passwd",
	"tick_hold", "%B/tick",
	"vardir", "/var/lib/fido",
	"lockdir", "/var/lock/fido",
	"inbound", "/var/spool/bt/in",
	"toss_route", "%S/toss/route",
	"btbasedir", "/var/spool/bt",
	"ftpinbound", "/var/spool/bt/ftpin",
	"outpkt_mail", "%S/outpkt/mail",
	"lock_history", "history",
	"newsvardir", "/var/lib/news",
	"aliases", "%C/aliases",
	"toss_bad", "%S/toss/bad",
	"seq_news", "%V/seq/news",
	"hosts", "%C/hosts",
	"seq_tick", "%V/seq/tick",
	"outrfc_news", "%S/outrfc/news",
	"ifmaildir", "/usr/lib/ifcico",
	"pinbound", "/var/spool/bt/pin",
	"config_ffx", "%C/fidogate.conf",
	"outrfc_mail", "%S/outrfc/mail",
	"spooldir", "/var/spool/fido",
	"newsetcdir", "/etc/news",
	"libdir", "/usr/lib/fidogate",
	"outpkt", "%S/outpkt",
	"history", "%V/history",
	"logdir", "/var/log/fido",
	"packing", "%C/packing",
	"toss_pack", "%S/toss/pack",
	"seq_ff", "%V/seq/ff",
	"bindir", "/usr/lib/fidogate/bin",
	"configdir", "/etc/fido",
	"newslibdir", "/usr/lib/news",
	"charsetmap", "%L/charset.bin",
	"config_gate", "%C/fidogate.conf",
	"seq_mail", "%V/seq/mail",
	"seq_msgid", "%V/seq/msgid",
	"seq_pack", "%V/seq/pack",
	"outpkt_news", "%S/outpkt/news",
	"seq_pkt", "%V/seq/pkt",
	"acl", "%C/acl",
	"logfile", "%G/log",
	"seq_toss", "%V/seq/toss",
	"config_main", "%C/fidogate.conf",
	"areas", "%C/areas",
	"routing", "%C/routing",
	"newsspooldir", "/var/spool/news/articles",
     );
my %CONFIG_abbrev =
    (
##Automatically generated by subst.pl, DO NOT EDIT!!!##
	"U", "uuinbound",
	"L", "libdir",
	"G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
	"P", "pinbound",
	"I", "inbound",
	"C", "configdir",
	"N", "bindir",
	"S", "spooldir",
	"B", "btbasedir",
     );



sub CONFIG_read {
    my($file) = @_;
    my($key, $arg);
    local *C;

    $file = nts\n",G", "logdir",
	"V", "vardir",
	"K", "lockdir",
