forked from osmocom/wireshark
63 lines
1.7 KiB
Raku
Executable File
63 lines
1.7 KiB
Raku
Executable File
#!/usr/bin/env perl
|
|
#
|
|
# Copyright 2011 Dirk Jagdmann <doj@cubic.org>
|
|
#
|
|
# Wireshark - Network traffic analyzer
|
|
# By Gerald Combs <gerald@wireshark.org>
|
|
# 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
|
|
# perl program to convert a Wireshark color scheme to javascript
|
|
# code. The javascript function should then be inserted into the
|
|
# pdml2html.xsl file.
|
|
#
|
|
# run this as: perl tools/colorfilters2js.pl colorfilters
|
|
|
|
print<<'EOF';
|
|
function set_node_color(node,colorname)
|
|
{
|
|
if(dojo.isString(node))
|
|
node = dojo.byId(node);
|
|
if(!node) return;
|
|
var fg;
|
|
var bg;
|
|
EOF
|
|
|
|
my $elseflow = "";
|
|
|
|
while(<>)
|
|
{
|
|
if(/\@(.+?)\@.+\[(\d+),(\d+),(\d+)\]\[(\d+),(\d+),(\d+)\]/)
|
|
{
|
|
print " " . $elseflow . "if (colorname == '$1') {\n";
|
|
printf(" bg='#%02x%02x%02x';\n", $2/256, $3/256, $4/256);
|
|
printf(" fg='#%02x%02x%02x';\n", $5/256, $6/256, $7/256);
|
|
print " }\n";
|
|
}
|
|
$elseflow = "else ";
|
|
}
|
|
|
|
print<<'EOF';
|
|
if(fg.length > 0)
|
|
node.style.color = fg;
|
|
if(bg.length > 0)
|
|
node.style.background = bg;
|
|
}
|
|
EOF
|
|
|
|
exit 0;
|