ip-packet.pl

来自「一个rst守护程序」· PL 代码 · 共 43 行

#!/usr/bin/perl
# IP-Packet A TCP Packet Generator written in Perl
#
# The Wrapper around shell and GUI mode
#
###################################################################
#
# Last Update 26.11.2002
#
# Programmed by Bastian Ballmann [ [e-mail] ]
# http://www.crazydj.de 
#
# Perl is phun!!! =)
#
# This code is licensed under the GPL

###[ Read in parameter and load modules ]###

require "ip-packet-main.pl";

if($ARGV[0] eq "--gui")
{
    require "ip-packet-gui.pl";
}
elsif(($ARGV[0] eq "-?") || ($ARGV[0] eq "--help"))
{
    print "Usage $0: [--shell] [--conf]\n\n";
    print "Use --shell to load the shell version and --conf to load a config file.\n\n";
}
else
{
    $load = "n";

    if($ARGV[1] eq "--conf")
    {
	$load = "y";
	$configfile = $ARGV[2];
    }

    require "ip-packet-shell.pl";
}