批量生成SecureCRT的Session文件

#!/usr/bin/perl -w
#Batch Create SecureCRT Session 
#write by luox
#2010-04-11
#MAIL:fine102#163.com
#OICQ:79810841

use strict;
use Getopt::Long;
use Cwd;
use vars qw/$port $user $password/;

my $PROGRAM_NAME =  "cre_sess.pl";
my $VERSION =  "0.1";

my $type =  "lan";
my $port =  "9922";
my $user =  "root";
my $password =  "ea4324f911e4210ab76cf50276d54725";
my $list_file =  "list";
my $help;
my $debug = 0;


my $status = GetOptions (
     "type=s"  =>  \$type,
     "port=i"  =>  \$port,
     "user=s"  =>  \$user,
     "password=s"  =>  \$password,
     "list_file=s"  =>  \$list_file,
     "help"    =>  \$help,
     "debug=i"  =>  \$debug,
    );

#conver decval to hexval with $port
$port = &convert_dec($port);
my $local = cwd;
chdir $local;


print  "DEBUG MODE\n"  if $debug;
print  "\$type is: " . $type .  "\n"  if $debug;
print  "\$port is: " . $port .  "\n"  if $debug;
print  "\$user is: " . $user .  "\n"  if $debug;
print  "\$password is: " . $password .  "\n"  if $debug;
print  "\$list_file is: " . $list_file .  "\n"  if $debug;

if ($status == 0) {
  &print_help;
  exit 0;
}

if ($help) {
  &print_help;
  exit 0;
}

my $session_path =  "$local/session_dir";
my $contents = `cat $local/source.ini`;
my $list = `cat $list_file`;
$list =~ s/^#.*\n //g;
my @list = split(/\n/,$list);
print $contents .  "\n"  if $debug;

if ( ! -d $session_path ) {
  mkdir $session_path;
  print  "$session_path not found,now mkdir \n";
}

foreach my $line (@list) {
  print $line .  "\n"  if $debug;

  my $file_name = "";
  my $hostname = "";
  my $lan_ip = "";
  my $wan_ip = "";

   if ( $line =~ m{hostname:(\w+\d+)}i ) {
    $hostname = $1;
    print $hostname .  "\n"  if $debug;
    last  if $debug;
  }

   if ( $line =~ m{lan:(\d+\.\d+\.\d+\.\d+)}i ) {
    $lan_ip = $1;
  }

   if ( $line =~ m{wan:(\d+\.\d+\.\d+\.\d+)}i ) {
    $wan_ip = $1;
  }

  #如果主机名长度，进行补0（便于SecureCrt的排序）
   if ( $hostname =~ m{(\w+)(\d{4})}i ) {

  } elsif ( $hostname =~ m{(\w+)(\d{3})}i ) {
    $hostname =  "$1" .  "0" .  "$2";
  } elsif ( $hostname =~ m{(\w+)(\d{2})}i ) {
    $hostname =  "$1" .  "00" .  "$2";
  } elsif ( $hostname =~ m{(\w+)(\d{1})}i ) {
    $hostname =  "$1" .  "000" .  "$2";
  }

   if ($type =~ m{^lan$}i) {
    $file_name =  "($hostname) " . $lan_ip .  ".ini"; 
  } elsif ($type =~ m{^wan$}i) {
    $file_name =  "($hostname) " . $wan_ip .  ".ini"; 
  }  else {
    die  "type unkown please input right type: $!\n"
  }

  print $file_name .  "\n"  if $debug;

   if ($type =~ m{^lan$}i) {
    $contents =~ s/\"Hostname\"=\d+\.\d+\.\d+\.\d+/\"Hostname\"=$lan_ip/;
  } elsif ($type =~ m{^wan$}i) {
    $contents =~ s/\"Hostname\"=\d+\.\d+\.\d+\.\d+/\"Hostname\"=$wan_ip/;
  }  else {
    die  "type unkown please input right type: $!\n"
  }
  $contents =~ s/\[SSH2\]\s+Port\"=[\dA-Fa-f]+/\[SSH2\] Port\"=$port/;
  $contents =~ s/\"Username\"=\w+/\"Username\"=$user/;
  $contents =~ s/\"Password\"=\w+/\"Password\"=$password/;

  chdir $session_path or die  "can't change directory: $!";
  open FH,  "> $file_name" or die  "Cant open $file_name file: $!";
  printf FH ($contents);
  close FH;
  last  if $debug;
}


sub print_help {
  printf  "\t    (%s) auto create SecureCRT session files,must allocate OPTIONS list/user/port/password \n",$PROGRAM_NAME;
  printf  "\t    VERSION is %s \n",$VERSION;
  printf  "\t--type setting session use lan or wan,default is lan \n";
  printf  "\t--port setting session use port,default is 9922 \n";
  printf  "\t--user setting session use user,default is root \n";
  printf  "\t--password setting ssession use passowrd,default is 111111 \n";
  printf  "\t            passowrd is use secure encrypt \n";
  printf  "\t--list attach to list path \n";
  printf  "\t    default list file in local directory list \n";
  printf  "\t--debug setting debug mode\n";
  printf  "\n";
  printf  "\t    how to use Example as follows \n";
  printf  "\t    perl cre_sess.pl --port 22 --user nagios --password 8d860cf50f78af1a2833433076d288f3 --list list \n"
}

sub convert_dec {

  my $port = shift;
  my $port_total_len = 8;
  
  $port = sprintf( "%x",$port);
  
  my $port_len = length($port);
  my $bad = $port_total_len - $port_len;
  
  my $hex_port .= 0 x $bad . $port;
   return $hex_port;
}