import torrus 1.0.9

[freeside.git] / torrus / bin / ttproclist.in

diff --git a/torrus/bin/ttproclist.in b/torrus/bin/ttproclist.in
new file mode 100644 (file)
index 0000000..614cdd6
--- /dev/null
+++ b/torrus/bin/ttproclist.in
@@ -0,0 +1,135 @@
+#!@PERL@
+#  Copyright (C) 2005  Stanislav Sinyagin
+#
+#  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.
+
+# $Id: ttproclist.in,v 1.1 2010-12-27 00:04:03 ivan Exp $
+# Stanislav Sinyagin <ssinyagin@yahoo.com>
+
+
+use strict;
+use Template;
+use Getopt::Long;
+
+my $template;
+my $outfile;
+my $nodelist;
+my $parameters;
+
+
+my $creator = "Torrus version @VERSION@\n" .
+    "This file was generated by command:\n" .
+    $0 . " \\\n";
+foreach my $arg ( @ARGV )
+{
+    if( $arg =~ /^--/ )
+    {
+        $creator .= ' ' . $arg . ' ';
+    }
+    else
+    {
+        $creator .= "\'" . $arg . "\'\\\n";
+    }
+}
+$creator .= "\nOn " . scalar(localtime(time));
+
+
+my $ok = GetOptions( 'tmpl=s'   => \$template,
+                     'out=s'    => \$outfile,
+                     'nodes=s'  => \$nodelist,
+                     'param=s'  => \$parameters );
+
+if( not $ok or not $template or not $outfile or not $nodelist)
+{
+    print STDERR "Process a template with a nodelist\n\n";
+
+    print STDERR "Usage: $0 options...\n",
+    "Mandatory options:\n",
+    " --tmpl=filename                 template file name\n",
+    " --out=filename                  output file\n",
+    " --nodes=filename                file with nodes\n",
+    "Options:\n",
+    " --param=NAME:VALUE,NAME:VALUE...  parameters passed to template\n";
+    exit 1;
+}
+
+my @rawnodes;
+
+if( not open( NODES, $nodelist ) )
+{
+    print STDERR "Cannot open $nodelist: $!\n";
+    exit 1;
+}
+while(<NODES>)
+{
+    s/^\s+//;
+    s/\s+$//;
+    push( @rawnodes, split( /\s+/ ) );
+}
+close( NODES );
+
+my %nodes;
+foreach my $node ( @rawnodes )
+{
+    my $symname = $node;
+    if( $node =~ /([^:]+):(.+)/ )
+    {
+        $node = $1;
+        $symname = $2;
+    }
+
+    $nodes{$node} = $symname;
+}
+
+my %params;
+if( defined( $parameters ) )
+{
+    foreach my $pair ( split( '\s*,\s*', $parameters ) )
+    {
+        my ($name, $val) = split( '\s*:\s*', $pair );
+        $params{$name} = $val;
+    }
+}
+
+my $tt = new Template( INCLUDE_PATH => '@tmpluserdir@',
+                       ABSOLUTE => 1,
+                       RELATIVE => 1,
+                       TRIM => 1 );
+
+my $vars =
+{
+    'nodes'   => \%nodes,
+    'param'   => \%params,
+    'nodesfile' => $nodelist,
+    'creator' => $creator,
+    'lc' => sub{ return lc $_[0] },
+    'uc' => sub{ return uc $_[0] }
+};
+
+my $result = $tt->process($template, $vars, $outfile);
+
+if( not $result )
+{
+    print STDERR "Error while processing template: ".$tt->error()."\n";
+}
+
+exit( $result ? 0:1 );
+
+
+# Local Variables:
+# mode: perl
+# indent-tabs-mode: nil
+# perl-indent-level: 4
+# End: