Alphamonk IT Systems

Mailing from Perl

Wed, 18 Mar 2009 16:50:00

I use this as a function in many of my scripts and thought it could be useful to some of you.



use strict;

use warnings;



my $mailfrom      = "sender@yourdomain.com";

my $path = $ENV{PATH};

my $user = $ENV{USER};





my $mailto  = "receiver1@yourdomain.com, receiver2@yourdomain.com";

my $message = <<MESSAGE;

This is mail sent from Sender to notify you of success or 

failure of suchandsuch build script in this path

MESSAGE

my $subject = "Build Info";



notify($subject, $message, $mailfrom);



sub notify{

  ($subject, $message, $mailfrom) = @_;

  if($mailto && $mailfrom && $subject){

    open(MAIL, "|/usr/sbin/sendmail -t");

    ## Mail Header

    print MAIL "To: $mailton";

    print MAIL "From: $mailfromn";

    print MAIL "Subject: $subjectnn";

    ## Mail Body

    print MAIL "$messagen";

  }

  close(MAIL);

  exit;

}

hex2binary script

Wed, 18 Mar 2009 16:40:00

I am really not sure when I wrote this. If you are looking for script to change a file full of hex data to another file full of binary data this script will do it.

I obviously did not find a formula to use for the conversion, so I am using a matrix. I would prefer using a formula. I don't feel like looking for one now, If you know a formula for converting hex to binary email me and I will incorporate it into this script.

The script works just fine the way it is.



use strict;

use warnings;

use Getopt::Long;



my $ver = "1.0";



my (

    $char,@chars,$line,@lines,$continous,

);



my (

    $hex,$bin,$endian,$version,

) = Arguments();



if($version){

  print "Version is $vern";

  exit;

}



#open output bin file

open(BINFILE, ">$bin") or die "ERROR: Cannot open $bin filen";



#open input hex file

open(HEXFILE, $hex) or die "ERROR: Can not open $hex filen";

while(<HEXFILE>){

$line = $_;

#convert hex to bin                                     

   chomp $line;

   @chars = split(//,$line);

      foreach $char (@chars){

         if ($char eq "0"){

            print BINFILE "0000";

         }

         elsif ($char eq "1"){

            ($endian == 1)

               ?

               (print BINFILE "0001")

               :

               (print BINFILE "1000");

         }

         elsif ($char eq "2"){

            ($endian == 1)

               ?

               (print BINFILE "0010")

               :

               (print BINFILE "0100");

         }

         elsif ($char eq "3"){

            ($endian == 1)

               ?

               (print BINFILE "0011")

               :

               (print BINFILE "1100");

         }

         elsif ($char eq "4"){

            ($endian == 1)

               ?

               (print BINFILE "0100")

               :

               (print BINFILE "0010");

         }

         elsif ($char eq "5"){

            ($endian == 1)

               ?

               (print BINFILE "0101")

               :

               (print BINFILE "1010");

         }

         elsif ($char eq "6"){

               print BINFILE "0110";



         }

         elsif ($char eq "7"){

            ($endian == 1)

               ?

               (print BINFILE "0111")

               :

               (print BINFILE "1110");

         }

         elsif ($char eq "8"){

            ($endian == 1)

               ?

               (print BINFILE "1000")

               :

               (print BINFILE "0001");

         }

         elsif ($char eq "9"){

               print BINFILE "1001";

         }         

         elsif (($char eq "a")|| ($char eq "A")){

            ($endian == 1)

               ?

               (print BINFILE "1010")

               :

               (print BINFILE "0101");

         }      

         elsif ($char eq "b" || $char eq "B"){

            ($endian == 1)

               ?

               (print BINFILE "1011")

               :

               (print BINFILE "1101");

         }      

         elsif ($char eq "c" || $char eq "C"){

            ($endian == 1)

               ?

               (print BINFILE "1100")

               :

               (print BINFILE "0011");

         }      

         elsif ($char eq "d" || $char eq "D"){

            ($endian == 1)

               ?

               (print BINFILE "1101")

               :

               (print BINFILE "1011");

         }      

         elsif ($char eq "e" || $char eq "E"){

            ($endian == 1)

               ?

               (print BINFILE "1110")

               :

               (print BINFILE "0111");

         }      

         elsif ($char eq "f" || $char eq "F"){

            print BINFILE "1111";

         }   

         #other charactor will be replaced by a space

         else {

            print BINFILE " ";

         }      

      }

      print BINFILE "n";

}



close(HEXFILE);

close(BINFILE);



sub Arguments {

    my ( 

        $hex,$bin, $endian, $version, $help,

        );

    GetOptions(

        "hexfile=s"  => $hex,

        "binfile=s"  => $bin,

        "endian=s"   => $endian,

        "version"  => $version,

        "help"     => $help,

    );



    Usage() unless ($hex && $bin) or $version;

    Usage() if ($help);

    if($endian){

        Usage() unless (($endian eq "l") or ($endian eq "b"));

    }

    if($endian){

        if($endian eq "l"){

            $endian = 0;

        } else {

            $endian = 1;

        }

    } else {

        $endian = 1;

    }



    return (

        $hex,$bin,$endian, $version,

    );

}





sub Usage {

    my $usageoutput = <<USAGE;

Syntax: <hex2bin.pl> [options] 

--hexfile        : hexfile file name

--binfile        : binfile file name

--endian        : arguments are b and l only default is b

--version       : Print version number

--help          : Print usage information



NOTE:            : Conversion goes in one direction only hex to binary

Example         : <hex2bin.pl> --hexfile myinputfile --binfile myoutputfile

                : <hex2bin.pl> --hexfile myinputfile --binfile myoutputfile --endian b

                : <hex2bin.pl> --hexfile myinputfile --binfile myoutputfile --endian l

USAGE

    print "$usageoutput";

    exit;

}

Perl Automation Script using a config file

Sun, 22 Feb 2009 02:10:00

This is a perl script I wrote a while back to use a config file as the way to add arguments to the program. I like this idea a lot. I could not sell this to anyone.



#!/usr/bin/perl



use Getopt::Long;        # Core

use Cwd;                 # Core

use File::Copy;          # Core

use Config::IniFiles;    # Extra

use IPC::Run3;           # Extra

use warnings;            # Core Pragma

use strict;              # Core Pragma



# Variable declaration

my (

    $input,  $sandboxdir,  $cfgfile, $cfg, $svn,   $command,

    $rundir, $run_sim_cfg, $logdir,  $design, $gosim, $dir,

    $ver,    $ConfigFile,  @text,    $cfgdir,

);

########## Main ##########



Config();

my (

    $mksb,      $sandboxname, $releasename, $update_sb,

    $simprep,   $buildlibs,   $dosim,       $doregress,

    $version,

) = Arguments();



# Version Information

$ver = "1.0.0";



if ($version) {

    print "$vern";

    exit;

}



if ($mksb) {

    if (   ( -f ".bld_dir_locator" )

        || ( -d "../design" )

        || ( -d "../../$sandboxname" ) )

    {

        print "This directory seems to be a working sandboxn";

    }

    else {

        print "Running mksbn";

        if ( -d $sandboxname ) {

            print <<MESSAGE;

Warning: sandbox $sandboxname already exists in current working directory

Continuing may cause undesireable behavior if the sandbox was not

generated using this script. The script will make a best effort to

update/relink the directories. Relinking will result in all changes

in the link paths to be deleted!!!



Continue

1 = Yes   2 = No

MESSAGE



            $input = <STDIN>;

            if ( $input == 1 ) {

                print "nWe're moving on...nn";

            }

            elsif ( $input == 2 ) {

                print "nAborting update per user requestnn";

                exit;

            }

            else {

                print "nProper respones are "1" or "2" - Abortingnn";

                exit;

            }

            run3(`date`);

            if ( !$releasename ) {

                print

"Creating sandbox $sandboxname with files from tip...n";

            }

            else {

                print

"Creating sandbox $sandboxname with files from $releasename...n";

            }

        }

        else {

            mkdir("$sandboxname");

        }



        $dir        = getcwd();

        $sandboxdir = "$dir/$sandboxname";

        chdir("$sandboxdir") == 1 or die "Could not chdir to $sandboxdirn";

        print "Sandbox path is $dirn";

        if ( !-d "design" ) {

            mkdir("design");

        }



        chdir("design");

        $design = getcwd();

        chomp($design);



        copy( "$dir/.dosim.cfg", "$dir/$sandboxname/design" );

        unlink("$dir/.dosim.cfg");

        unlink("$dir/.tempfile ");



        if ( !-f ".bld_dir_locator" ) {

            run3("touch .bld_dir_locator");

            die "Could not create .bld_dir_locatorn" if $? != 0;

        }



        if ( !-d "$design/log" ) {

            mkdir("log");

            $logdir = `/bin/pwd`;

            chomp($logdir);

            $logdir = "$logdir/log";

        }

        else {

            $command = "rm -rf $logdir/*";

            run3($command);

        }



        if ($releasename) {

            print "Link directories to project $releasename)n";

            }

            else {

                print "Release $releasename does not eixstn";

            }

        }

        else {

            print "Checkout from svnserver1n";



            do_svn( $cfg, $logdir );



        }

    }

}

else {



    $logdir = `/bin/pwd`;

    chomp($logdir);

    $logdir = "$logdir/log";

}



if ($update_sb) {

    print "Updating the sandboxn";



    do_svn( $cfg, $logdir );

}



if ($simprep) {

    print "Run simulation preparation scriptsn";



    $design = getcwd();

    chomp($design);

    $ENV{DESIGN} = $design;



    if(! -d "log"){

       mkdir("log");

    }



    $gosim = $cfg->val( 'CMDS', 'sim.exe' );

    chdir("$design") == 1 or die "Could not chdir to $designn";

    $command = "$gosim --make sg -J";

    print "$commandn";

    run3( $command, undef, "$logdir" . $cfg->val( 'LOG', 'run' ) );

    die "Failed to successfully run make sg" if $? != 0;

}



if ($buildlibs) {

    print "Building unit libsn";

    rotate_config_param("UNITLIBS");

}

if ($dosim) {

    print "Run simulationn";

    rotate_config_param("GOSIM");

}



if ($doregress) {

    print "Run regressionn";

    rotate_config_param("GOREGRESS");

}



#===  FUNCTION  ================================================================

#         NAME:  rotate_config_param

#  DESCRIPTION:  ????

#===============================================================================

sub rotate_config_param {

    unless ( ( -f ".bld_dir_locator" ) || ( -f ".dosim.cfg" ) ) {

        print

"Can not find .bld_dir_locator, Change directory to a working sandboxn";

    }

    my ( $Section, $design, @param, $i, $command );

    ($Section) = @_;

    print "Section is $Sectionn";

    unless ($design) {

        $design = getcwd();

        chomp($design);

        $ENV{DESIGN} = $design;

    }

    @param = $cfg->Parameters("$Section");

    print "Parameters in this section aren@paramn";

    foreach $i (@param) {

        $command = $cfg->val( "$Section", $i );

        print "$commandn";

        run3($command);

        die "$command failedn" if $? != 0;

    }

}



#===  FUNCTION  ================================================================

#         NAME:  do_svn

#  DESCRIPTION:  ????

#===============================================================================

sub do_svn {

    my ( $value, @svnparam );

    my ( $cfg, $logdir ) = @_;

    @svnparam = $cfg->Parameters('SVN');

    my $svnlogfile = $cfg->val( 'LOG', 'svn' );

    foreach my $svndir (@svnparam) {

        $value = $cfg->val( 'SVN', $svndir );

        if ( -d "$svndir" ) {    # do update if the directory is there

            $command = $cfg->val( 'CMDS', 'update' ) . " $svndir";

            print "$commandn";

            run3( $command, undef, "$logdir/" . $cfg->val( 'LOG', 'svn' ) );

            die "$cfg update failed" if $? != 0;

        }

        else {

            $command = $cfg->val( 'CMDS', 'checkout' ) . " $value $svndir";

            print "$commandn";

            run3( $command, undef, "$logdir/" . $cfg->val( 'LOG', 'svn' ) );

            die "$value checkout failed" if $? != 0;

        }

    }

}



#===  FUNCTION  ================================================================

#         NAME:  Config

#  DESCRIPTION:  ????

#===============================================================================

sub Config {

    ## CoofigFile ##

        $cfgdir = getcwd();

    #    print "$rundirn";

    if ( -f ".dosim.cfg" ) {

        $ConfigFile = ".dosim.cfg";

        open( CONFIG, "$ConfigFile" ) or die "Could not open $ConfigFilen";

        @text = <CONFIG>;

    }

    else {

        @text       = <DATA>;

        $ConfigFile = ".dosim.cfg";

        open( CONFIG, ">$ConfigFile" ) or die "Could not open $ConfigFilen";

        print CONFIG "@text";

        close(CONFIG);

    }

    $cfg = Config::IniFiles->new( -file => "$ConfigFile" );

}



#===  FUNCTION  ================================================================

#         NAME:  Arguments

#  DESCRIPTION:  This are the possible argument that can be called from the

#                command line or gui

#===============================================================================

sub Arguments {

    my ( $ok, $mksb, $sandboxname, $releasename, $dosim, $doregress, $debug,

        $help );

    $ok = GetOptions(

        "mksb"          => $mksb,

        "sandboxname=s" => $sandboxname,

        "releasename=s" => $releasename,

        "update_sb"     => $update_sb,

        "simprep"       => $simprep,

        "buildlibs"     => $buildlibs,

        "dosim"         => $dosim,

        "doregress"     => $doregress,

        "version"       => $version,

        "help"          => $help

    );



    Usage()

      unless ( ($mksb)

        || ($update_sb)

        || ($simprep)

        || ($buildlibs)

        || ($dosim)

        || ($doregress)

        || ($version) );

    Usage() if ($help);

    Usage() if ( $dosim && $doregress );

    Usage() if ( ($mksb) && ( !$sandboxname ) );



    return (

        $mksb,      $sandboxname,    $releasename,    $update_sb, 

        $simprep,   $buildlibs,      $dosim,          $doregress, 

        $version,  

    );

}



#===  FUNCTION  ================================================================

#         NAME:  Usage

#  DESCRIPTION:  Show users how to use this program

#===============================================================================

sub Usage {

    my $usageoutput = <<USAGE;

Syntax: run_sim.pl [options] 

--mksb          : Checkout Repository

--update_sb     : Update Repository

--simprep       : Compile libraries, and run make sg

--buildlibs     : Build unit libraries

--sandboxname   : Sandbox or Working Copy name

--releasenaem   : Name of the release build to link to NOTE: Must be run with --mksb

--dosim         : Run simulations NOTE: Cna not be run with --doregress

--doregress     : Run regressions NOTE: Can not be run with --dosim

--version       : Shows current version number

--help          : Prints this help message



Example         : run_sim.pl --mksb --sandboxname tip

                : run_sim.pl --mksb --sandboxname tip --releasename be2_2.0.55.0

                : run_sim.pl --update_sb

                : run_sim.pl --simprep

                : run_sim.pl --buildlibs

                : run_sim.pl --dosim

                : run_sim.pl --doregress

                : run_sim.pl --mksb --sandboxname MySandbox --simprep --dosim

                : run_sim.pl --version

USAGE

    print "$usageoutput";

    exit;

}



__DATA__

[SVN]

rtl=http://svnserver.mydomain:8080/svnroot/V1/trunk/rtl

sg=http://svnserver.mydomain:8080/svnroot/V1/trunk/sg

tb=http://svnserver.mydomain:8080/svnroot/V1/trunk/tb

models=http://svnserver.mydomain:8080/svnroot/V1/trunk/models

sw=http://svnserver.yourdomain:8080/svnroot/V1/trunk/sw

fw=http://svnserver.yourdomain:8080/svnroot/V1/trunk/fw



[LOG]

svn=svn.log

buildtcsh=buildtcsh.log

run=run.log



[CMDS]

checkout=svn co

update=svn update

revert=svn revert

sim.exe=gosim

regress.exe=go_regress



[UNITLIBS]



[GOSIM]



[GOREGRESS]

Perl Modules and My Functions that I use over and over again

Sat, 21 Feb 2009 23:50:00

I use a certain modules on most of the scripts that I write for automation. I will name those modules and explain why and how I use them. I will show you templates of some of my most often used subroutines in this article too.

Very simple automation template

Sat, 21 Feb 2009 22:40:00

I use this template to quickly automate a process that only I, will need to run. Typically someone will want me to preform an svn checkout and build base libraries and run certain simulations and send emails to them and their bosses about the pass and fail status of that run when I use a script as simple as this one. This script is only utilized when I am automating a process for a set amount or runs and I want to get the process up and running in less than an hour.



use strict;    # This is a standard pragma I always use to keep variables local

use warnings;  # Help with debugging

use Cwd;       # current working directory



my $svninfo = "/path_to_svndir/bin/svn info";

my $svnco   = "/path_to_svndir/bin/svn co";

# In case I dont want to checkout the entire repository

my $sw   = "http://url_svn_repository/trunk/sw";

my $fw   = "http://url_svn_repository/trunk/fw";

my $dir1   = "http://url_svn_repository/trunk/dir1";

my $dir2   = "http://url_svn_repository/trunk/dir2";

my $dir3   = "http://url_svn_repository/trunk/dir3";

my $blddir = "/home/alphamonk/build/test1";

my $mailto  = "alphamonk@mydomain.com, jim@mydomain.com, jan@mydomain.com, joe@mydomain.com";

my $mailfrom = "buildguy@mydomain.com";





my ($command, @results, @cmdresult, @grepresults, @revinfo, $dir, $fwrevinfo,

    $message,$subject,

   );



$command = "$svninfo $sw";

@cmdresult  = `$command`;

@grepresults = grep(/Revision/, @cmdresult);

@revinfo = split(/s+/, $grepresults[0]);

$swrevinfo = $revinfo[1];

$message = <<MESSAGE;

This is daily mail sent from Buildguy user to notify you of success or

failure of build script in $design

MESSAGE



chdir("$blddir") or die "Could not chdir to $blddir directoryn";



$dir = getcwd;

if ($dir eq "$blddir"){

    mkdir("sw_rel_$revinfo") or die "Could not make firmware release directoryn";



    chdir("sw_rel_$revinfo") or die "Could not chdir to sw_rel_$revinfon";    



    $command = "$svnco $fw";

    system("$command") == 0 or notify("$fw checkout Failed",$message, $mailto, $mailfrom);



    $command = "$svnco $sw";

    system("$command") == 0 or notify("$sw checkout Failed",$message, $mailto, $mailfrom);



    $command = "$svnco $dir1";

    system("$command") == 0 or notify("$dir1 checkout Failed",$message, $mailto, $mailfrom);



    $command = "$svnco $dir2";

    system("$command") == 0 or notify("$dir2 checkout Failed",$message, $mailto, $mailfrom);



    $command = "$svnco $dir3";

    system("$command") == 0 or notify("$dir3 checkout Failed",$message, $mailto, $mailfrom);



    chdir("$sw") or notify("Chdir to $sw Failed",$message, $mailto, $mailfrom);



    $command ="./build.sh";

    system("$command") == 0 or notify("Build Failed",$message, $mailto, $mailfrom);



    chdir("$blddir/sw_rel_$revinfo") or notify("chdir to $dsn Failed",$message, $mailto, $mailfrom);



    $command ="/path_to/commercial_simulation_software --arg1 --arg2 73";

    system("$command") == 0 or notify("Make libraries Failed",$message, $mailto, $mailfrom);



    $command = "./run";

    system("$command") == 0 or notify("Dot Run Failed",$message, $mailto, $mailfrom);



    $command = "/path_to/commercial_simulation_software --arg1 --arg2 104 --arg3 testbench2";

    system("$command") == 0 or notify("make 104 failed",$message, $mailto, $mailfrom);



    $command = "/path_to/commercial_simulation_software --arg1 --arg2 104 --arg3 testbench2 --arg4 --arg5 "special variables" ";

    system("$command") == 0 or notify("Smoke Test Failed", $message, $mailto, $mailfrom);



    notify("Build Success", $message, $mailto, $mailfrom);

} else {

    print "$dir is not the proper directory to run this script inn";

}



sub notify{

  ($subject, $message, $mailto, $mailfrom) = @_;

  if($mailto && $mailfrom && $subject && $message){

    open(MAIL, "|/usr/sbin/sendmail -t");

    ## Mail Header

    print MAIL "To: $mailton";

    print MAIL "From: $mailfromn";

    print MAIL "Subject: $subjectnn";

    ## Mail Body

    print MAIL "$messagen";

  } else {

    print "Did not send mail messagen";

  }

  close(MAIL);

  exit;

}

What is a Infrastructure automation?

Sat, 21 Feb 2009 21:40:00

I have not meet many folks who carry the job title Infrastructure Automation Engineer. I have seen the jobs postings on the major national resume banks and here in the local tech hub where I live. I have meet only one other person who had this exact title. I will give my own definition as per my own job description.

Nagios Configuration Basics

Sun, 21 Dec 2008 22:50:00

Nagios Config File Basics

Nagios notifications

Thu, 13 Nov 2008 21:20:00

Are you receiving to many Nagios notifications