torrus/bin/ttproclist.in

   1 #!@PERL@
   2 #  Copyright (C) 2005  Stanislav Sinyagin
   3 #
   4 #  This program is free software; you can redistribute it and/or modify
   5 #  it under the terms of the GNU General Public License as published by
   6 #  the Free Software Foundation; either version 2 of the License, or
   7 #  (at your option) any later version.
   8 #
   9 #  This program is distributed in the hope that it will be useful,
  10 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 #  GNU General Public License for more details.
  13 #
  14 #  You should have received a copy of the GNU General Public License
  15 #  along with this program; if not, write to the Free Software
  16 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  17
  18 # $Id: ttproclist.in,v 1.1 2010-12-27 00:04:03 ivan Exp $
  19 # Stanislav Sinyagin <ssinyagin@yahoo.com>
  20
  21
  22 use strict;
  23 use Template;
  24 use Getopt::Long;
  25
  26 my $template;
  27 my $outfile;
  28 my $nodelist;
  29 my $parameters;
  30
  31
  32 my $creator = "Torrus version @VERSION@\n" .
  33     "This file was generated by command:\n" .
  34     $0 . " \\\n";
  35 foreach my $arg ( @ARGV )
  36 {
  37     if( $arg =~ /^--/ )
  38     {
  39         $creator .= ' ' . $arg . ' ';
  40     }
  41     else
  42     {
  43         $creator .= "\'" . $arg . "\'\\\n";
  44     }
  45 }
  46 $creator .= "\nOn " . scalar(localtime(time));
  47
  48
  49 my $ok = GetOptions( 'tmpl=s'   => \$template,
  50                      'out=s'    => \$outfile,
  51                      'nodes=s'  => \$nodelist,
  52                      'param=s'  => \$parameters );
  53
  54 if( not $ok or not $template or not $outfile or not $nodelist)
  55 {
  56     print STDERR "Process a template with a nodelist\n\n";
  57
  58     print STDERR "Usage: $0 options...\n",
  59     "Mandatory options:\n",
  60     " --tmpl=filename                 template file name\n",
  61     " --out=filename                  output file\n",
  62     " --nodes=filename                file with nodes\n",
  63     "Options:\n",
  64     " --param=NAME:VALUE,NAME:VALUE...  parameters passed to template\n";
  65     exit 1;
  66 }
  67
  68 my @rawnodes;
  69
  70 if( not open( NODES, $nodelist ) )
  71 {
  72     print STDERR "Cannot open $nodelist: $!\n";
  73     exit 1;
  74 }
  75 while(<NODES>)
  76 {
  77     s/^\s+//;
  78     s/\s+$//;
  79     push( @rawnodes, split( /\s+/ ) );
  80 }
  81 close( NODES );
  82
  83 my %nodes;
  84 foreach my $node ( @rawnodes )
  85 {
  86     my $symname = $node;
  87     if( $node =~ /([^:]+):(.+)/ )
  88     {
  89         $node = $1;
  90         $symname = $2;
  91     }
  92
  93     $nodes{$node} = $symname;
  94 }
  95
  96 my %params;
  97 if( defined( $parameters ) )
  98 {
  99     foreach my $pair ( split( '\s*,\s*', $parameters ) )
 100     {
 101         my ($name, $val) = split( '\s*:\s*', $pair );
 102         $params{$name} = $val;
 103     }
 104 }
 105
 106 my $tt = new Template( INCLUDE_PATH => '@tmpluserdir@',
 107                        ABSOLUTE => 1,
 108                        RELATIVE => 1,
 109                        TRIM => 1 );
 110
 111 my $vars =
 112 {
 113     'nodes'   => \%nodes,
 114     'param'   => \%params,
 115     'nodesfile' => $nodelist,
 116     'creator' => $creator,
 117     'lc' => sub{ return lc $_[0] },
 118     'uc' => sub{ return uc $_[0] }
 119 };
 120
 121 my $result = $tt->process($template, $vars, $outfile);
 122
 123 if( not $result )
 124 {
 125     print STDERR "Error while processing template: ".$tt->error()."\n";
 126 }
 127
 128 exit( $result ? 0:1 );
 129
 130
 131 # Local Variables:
 132 # mode: perl
 133 # indent-tabs-mode: nil
 134 # perl-indent-level: 4
 135 # End: