WYAE - FWTOOLS Mailing List Archive


Service Objects
From:"WISNIEWSKI, DANIEL (SBCSI)"
Date: Wed, 5 Oct 2005 15:38:29 -0400

This is a multi-part message in MIME format.

------_=_NextPart_001_01C5C9E4.5C82131D
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

=20
Can anybody point me / write a Perl fix that will accomplish the
following for Service Objects...
=20
My  Normal output for services template dump is as follows:
=20
----------------------------------------------------------------
title=3DSERVICES.PSS - all services pipe-sign separated
separator=3D
------------------------------------------------------------------
Name|Type|Destination Port|Source Port (low)|Source Port
(high)|pre-Match|Prolog|Members|Comment
<<<<>>>><<>>|<<>>|<<>>|<<>>|<<>>|<<>>|<<>>|<<>>|<<>>
=20
What I'm looking for is a fix that will enable the output to split on
the ranges ( low|high)  and/or duplicate the port if there is no range:
=20
=20
example:
=20
current
X11|tcp|6000:6063||||||X Window System
=20
would become:
X11|tcp|6000|6063||||||X Window System
=20
and a "no-range" port like:
=20
http|tcp|80||||||Hypertext Transfer Protocol
=20
would become:
http|tcp|80|80||||||Hypertext Transfer Protocol
=20
=20
=20
 This would allow for better/easier insertion into a database.
=20
 Currently, I'm using a shell script to accomplish=20
=20
=20
 In advance, I thank you
=20
 dan wisniewski
=20
=20
=20

------_=_NextPart_001_01C5C9E4.5C82131D
Content-Type: text/html;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable


Message



 
Can = anybody point me=20 / write a Perl fix that will accomplish the following for Service=20 Objects...
 
My =  Normal=20 output for services template dump is as follows:
 
----------------------------------------------------------------=
title=3DSERVICES.PSS=20 - all services pipe-sign=20 separated
separator=3D<SPACE>
-------------------------------= -----------------------------------
Name|Type|Destination=20 Port|Source Port (low)|Source Port=20 (high)|pre-Match|Prolog|Members|Comment
<<<<<services&g= t;>>>><<<name>>>|<<<type>>&g= t;|<<<port>>>|<<<sportfrom>>>|<<= ;<sportto>>>|<<<match>>>|<<<prolog= >>>|<<<members>>>|<<<comment>>&= gt;
 
What = I'm looking for=20 is a fix that will enable the output to split on the ranges ( = low|high) =20 and/or duplicate the port if there is no range:
 
 
example:
 
current
X11|tcp|6000:6063||||||X=20 Window System
 
would=20 become:
X11|tcp|6000|6063||||||X Window=20 System
 
and a "no-range" port = like:
 
http|tcp|80||||||Hypertext Transfer=20 Protocol
 
would become:
http|tcp|80|80||||||Hypertext = Transfer=20 Protocol
&nbs= p;
&nbs= p;
 
 This would=20 allow for better/easier insertion into a database.
 
 Currently, I'm=20 using a shell script to accomplish
 
 
 In advance, I = thank=20 you
 
 dan=20 wisniewski
 
 
 
------_=_NextPart_001_01C5C9E4.5C82131D--