#!/usr/bin/suidperl -w
# /usr/local/bin ip-goingdown-wrapper -ci "-vDm 4750 -g dialout" -- \
# ip-goingdown-wrapper -- This script handles ip-goingdown for ppp
my $revision = '$Revision: 1.9 $'; sub copyleft { print <<"COPYLEFT";
Copyright (C) 2003 by Richard L. Hawes <rhawes\@dma.org>
This is free software; see the GNU General Public License version 2
or later for copying conditions.  There is NO warranty.

latest version: www.dma.org/~rhawes/programs/ip-goingdown-wrapper
COPYLEFT
}

use strict;

sub help { print <<"HELP";
USAGE: ip-goingdown-wrapper  "interface_name" (i.e. ppp0)
secure suid wrapper for /etc/ppp/ip-goingdown
HELP
}
sub version {
	print STDOUT 'ip-goingdown-wrapper ', ( split(' ', $revision ) )[1], "\n" ;
	copyleft;
}


BEGIN {
	$ENV{PATH} = '/bin:/usr/bin';
	$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL};
	delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
}

my $goingdown = "/etc/ppp/ip-goingdown"; 

for ( @ARGV ) {
	if(/--version/) { version(); last; }
	if(/--help/) { help(); last; }
	exec $goingdown, $_;
}