#
# $Id: Access.pm,v 1.31 2003/03/02 11:12:09 dsw Exp $
#
# COPYRIGHT AND LICENSE
# Copyright (c) 2001-2003, Juniper Networks, Inc.  
# All rights reserved.  
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are
# met:
# 	1.	Redistributions of source code must retain the above
# copyright notice, this list of conditions and the following
# disclaimer. 
# 	2.	Redistributions in binary form must reproduce the above
# copyright notice, this list of conditions and the following disclaimer
# in the documentation and/or other materials provided with the
# distribution. 
# 	3.	The name of the copyright owner may not be used to 
# endorse or promote products derived from this software without specific 
# prior written permission. 
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# The JUNOS::Access package is meant to isolate the various access
# methods from the rest of the code.
#

package JUNOS::Access;

use strict;
use JUNOS::Trace;
use IO::Socket;
use IO::Pty;

#
# POSIX::Termios is an odd API; we need to create a 'termios'
# controller to pass all the requests thru. A single controller
# can be used against a number of handles, so we'll go ahead and
# make one up front.
#
use POSIX qw(:termios_h setsid);
use vars qw($termios);

BEGIN {
    $termios = new POSIX::Termios;
}

sub new
{
    my($class, $args) = @_;
    my %args = %$args;
    my $self = { %args };
    $self->{JUNOS_Device} = $args;

    $class = ref $class || $class;
    my $access = $args{access};
    if ($args{access}) {
	$access =~ s/-/_/g;
    }

    $class .= "::" . $access if $access;

    bless $self, $class;
}

sub start
{
    my($self) = @_;
    $self->{JUNOS_Device}->report_error("no " . ref $_[0] . "::start defined");
    undef;
}

sub connect
{
    my($self, %args) = @_;

    tracept("IO");
    $self->start(%args);
}

sub disconnect
{
    my($self) = @_;
    my($dead, $deadline);
    my $kid = $self->{PID};

    if( $self->{INPUT} ) { close($self->{INPUT}); }
    if( $self->{OUTPUT} ) { close($self->{OUTPUT}); }
    $self->{INPUT} = undef;
    $self->{OUTPUT} = undef;

    # Wait 5 seconds for the child to die a natural death.