pf-tools commit: r611 [ccaillet-guest] - /trunk/filters/filter_systemmap

[parmelan-guest at users.alioth.debian.org]

Author: ccaillet-guest
Date: Mon Jul 21 14:25:30 2008
New Revision: 611

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=611
Log:
adding filter_systemmap

Added:
    trunk/filters/filter_systemmap   (with props)

Added: trunk/filters/filter_systemmap
URL: http://svn.debian.org/wsvn/pf-tools/trunk/filters/filter_systemmap?rev=611&op=file
==============================================================================
--- trunk/filters/filter_systemmap (added)
+++ trunk/filters/filter_systemmap Mon Jul 21 14:25:30 2008
@@ -1,0 +1,39 @@
+#!/usr/bin/perl
+##
+##  $Id: filter_filename 539 2007-08-27 14:48:03Z parmelan-guest $
+##
+##  Copyright (C) 2004 Damien Clermonte <damien at sitadelle.com>
+##
+##  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
+##
+
+use strict;
+use warnings;
+
+use PFTools::Net;
+use PFTools::Update;
+
+my ( $src, $host, $dst ) = @ARGV;
+unless ( $src and $host and $dst ) {
+    die "Usage: $0 src host dst\n";
+}
+
+my $Z = Init_lib_net( Get_source($src) );
+open DEST, ">$dst" or die "open: $dst: $!\n";
+
+my $filename = Get_Active_Systemmap( $Z, $host ) || '';
+print DEST "$filename\n";
+close DEST;
+

Propchange: trunk/filters/filter_systemmap
------------------------------------------------------------------------------
    svn:executable = *