Move init.lua and family to plugins/lua
svn path=/trunk/; revision=17600
This commit is contained in:
parent
5ca4b68272
commit
25ff5cd787
|
@ -680,10 +680,7 @@ EXTRA_DIST = \
|
|||
text2pcap-scanner.l \
|
||||
text2pcap.c \
|
||||
text2pcap.h \
|
||||
wka.tmpl \
|
||||
template-init.lua \
|
||||
make-init-lua.pl \
|
||||
init.lua
|
||||
wka.tmpl
|
||||
|
||||
if SETUID_INSTALL
|
||||
install-exec-hook:
|
||||
|
@ -834,6 +831,3 @@ debian-package: debian/rules
|
|||
clean-local:
|
||||
rm -rf $(top_stagedir)
|
||||
|
||||
init.lua: template-init.lua make-init-lua.pl epan/ftypes/ftypes.h wiretap/wtap.h
|
||||
$(PERL) make-init-lua.pl template-init.lua > init.lua
|
||||
|
||||
|
|
|
@ -681,8 +681,3 @@ clean-deps:
|
|||
$(MAKE) /$(MAKEFLAGS) -f Makefile.nmake clean-deps
|
||||
cd ..
|
||||
|
||||
init.lua: template-init.lua make-init-lua.pl epan/ftypes/ftypes.h wiretap/wtap.h
|
||||
$(PERL) make-init-lua.pl template-init.lua > init.lua
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -1,94 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
# create the init.lua file based on a template (stdin)
|
||||
#
|
||||
# $Id: $
|
||||
#
|
||||
# Ethereal - Network traffic analyzer
|
||||
# By Gerald Combs <gerald@ethereal.com>
|
||||
# Copyright 2004 Gerald Combs
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or
|
||||
# modify it under the terms of the GNU General Public License
|
||||
# as published by the Free Software Foundation; either version 2
|
||||
# of the License, or (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program; if not, write to the Free Software
|
||||
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
|
||||
use strict;
|
||||
|
||||
my $wtap_encaps_table = '';
|
||||
my $ft_types_table = '';
|
||||
|
||||
|
||||
my %replacements = %{{
|
||||
WTAP_ENCAPS => \$wtap_encaps_table,
|
||||
FT_TYPES => \$ft_types_table,
|
||||
}};
|
||||
|
||||
|
||||
#
|
||||
# load template
|
||||
#
|
||||
my $template = '';
|
||||
$template .= $_ while(<>);
|
||||
|
||||
|
||||
#
|
||||
# make wiretap encapusulation table
|
||||
#
|
||||
|
||||
$wtap_encaps_table = "-- Wiretap encapsulations\nwtap = {\n";
|
||||
|
||||
open WTAP_H, "< wiretap/wtap.h";
|
||||
|
||||
while(<WTAP_H>) {
|
||||
if ( /^#define WTAP_ENCAP_([A-Z0-9_]+)\s+(\d+)/ ) {
|
||||
$wtap_encaps_table .= "\t[\"$1\"] = $2,\n";
|
||||
}
|
||||
}
|
||||
|
||||
$wtap_encaps_table =~ s/,\n$/\n}\n/msi;
|
||||
|
||||
#
|
||||
# enum fttype
|
||||
#
|
||||
|
||||
$ft_types_table = " -- Field Types\nftypes = {\n";
|
||||
|
||||
my $ftype_num = 0;
|
||||
|
||||
open FTYPES_H, "< ./epan/ftypes/ftypes.h";
|
||||
while(<FTYPES_H>) {
|
||||
if ( /^\s+(FT_[A-Z0-9a-z_]+)\s*,/ ) {
|
||||
$ft_types_table .= "\t[\"$1\"] = $ftype_num,\n";
|
||||
$ftype_num++;
|
||||
}
|
||||
}
|
||||
close FTYPES_H;
|
||||
|
||||
$ft_types_table =~ s/,\n$/\n}\n/msi;
|
||||
|
||||
|
||||
|
||||
#
|
||||
#
|
||||
#
|
||||
|
||||
|
||||
#
|
||||
# replace macros
|
||||
#
|
||||
|
||||
for my $key (keys %replacements) {
|
||||
$template =~ s/%$key%/${$replacements{$key}}/msig;
|
||||
}
|
||||
|
||||
|
||||
print $template;
|
|
@ -1,58 +0,0 @@
|
|||
-- init.lua
|
||||
--
|
||||
-- initilaize ethereal's lua
|
||||
--
|
||||
-- This file is going to be executed before any other lua script.
|
||||
-- It can be used to load libraries, disable functions and more.
|
||||
--
|
||||
-- $Id: $
|
||||
--
|
||||
-- Ethereal - Network traffic analyzer
|
||||
-- By Gerald Combs <gerald@ethereal.com>
|
||||
-- Copyright 1998 Gerald Combs
|
||||
--
|
||||
-- This program is free software; you can redistribute it and/or
|
||||
-- modify it under the terms of the GNU General Public License
|
||||
-- as published by the Free Software Foundation; either version 2
|
||||
-- of the License, or (at your option) any later version.
|
||||
--
|
||||
-- This program is distributed in the hope that it will be useful,
|
||||
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
-- GNU General Public License for more details.
|
||||
--
|
||||
-- You should have received a copy of the GNU General Public License
|
||||
-- along with this program; if not, write to the Free Software
|
||||
-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
|
||||
|
||||
-- If lua is to be disabled even if it was installed uncomment the following
|
||||
-- line.
|
||||
-- disable_lua = true; do return end;
|
||||
|
||||
|
||||
-- If set and we are running with special privileges this setting
|
||||
-- tells whether scripts other than this one are to be run.
|
||||
run_user_scripts_when_superuser = false
|
||||
|
||||
-- disable potentialy harmful lua functions when running superuser
|
||||
if running_superuser then
|
||||
dofile = function() error("dofile has been disabled") end
|
||||
loadfile = function() error("loadfile has been disabled") end
|
||||
loadlib = function() error("loadlib has been disabled") end
|
||||
require = function() error("require has been disabled") end
|
||||
os = {}
|
||||
io = {}
|
||||
file = {}
|
||||
end
|
||||
|
||||
-- to avoid output to stdout which can caause problems lua's print ()
|
||||
-- has been suppresed so that it yields an error.
|
||||
-- have print() call info() instead.
|
||||
print = info
|
||||
|
||||
-- %WTAP_ENCAPS%
|
||||
|
||||
-- %FT_TYPES%
|
||||
|
||||
|
Loading…
Reference in New Issue