# freeport.pl -- freeport server gateway
#
# @(#)freeport.pl	1.3 6/5/94 NCF ID
#
# by mcr@ccs.carleton.ca
#
# freeport.pl,v
# Revision 1.6  1994/08/26  01:23:42  xx714
# Updates to 'nr' match patcher.
#
# Revision 1.5  1994/06/25  19:19:22  xx714
# "Can't convert" stuff made more descriptive.
#
# Revision 1.4  1994/06/25  19:10:32  xx714
# Better %t support.
#
# Revision 1.3  1994/06/23  04:02:18  xx714
# Added CVS log keyword and "*" to strip spaces after %p p
#
#

$map{'freeport'} = '&do_freeport($rest, $query)';

package freeport;

require "freeport.pl";

sub main'do_freeport {
    local($spec, $query) = @_;

    $email_host = $server_name if $email_host eq '';

    $spec = $default_spec if $spec eq '';
    $file="$root_dir/$spec";
    &translate_freeport($file);
}

1;