_default_socket_ports

_default_socket_ports

generate_random_string

NAME

SysAdmin - Parent class for SysAdmin wrapper modules.

SYNOPSIS

  ###
  ## Using the Net::SMTP/MIME::Lite wrapper module
  ###
  
  use SysAdmin::SMTP;
        
  my $smtp_object = new SysAdmin::SMTP("localhost");
        
  my $from_address = qq("Test User" <test_user\@test.com>);
  my $subject = "Test Subject";
  my $message_body = "Test Message";
  my $email_recipients = ["test_receiver\@test.com"];
        
  $smtp_object->sendEmail(from    => $from_address,
                          to      => $email_recipients,
                          subject => $subject,
                          body    => $message_body);
  
  ---
        
  ###
  ## Using the Net::SNMP wrapper module
  ###
        
  use SysAdmin::SNMP;
        
  my $ip_address = "192.168.1.1";
  my $community  = "public";
        
  my $snmp_object = new SysAdmin::SNMP(ip        => $ip_address,
                                       community => $community);
                                  
  my $sysName = '.1.3.6.1.2.1.1.5.0';
        
  my $query_result = $snmp_object->snmpget("$sysName");
        
  print "$ip_address\'s System Name is $query_result\n";

  ---
        
  ###
  ## Using the DBD::Pg wrapper module
  ###
        
  use SysAdmin::DB::Pg;
        
  my $db = "dbd_test";
  my $username = "dbd_test";
  my $password = "dbd_test";
  my $host = "localhost";
  my $port = '5432';
        
  ### Database Table
  ##
  # create table status(
  # id serial primary key,
  # description varchar(25) not null);
  ##
  ###
        
  my $dbd_object = new SysAdmin::DB::Pg(db          => $db,
                                        db_username => $username,
                                        db_password => $password,
                                        db_host     => $host,
                                        db_port     => $port);
        
  ## Select Table Data
        
  ## SQL select statement
  my $select_table = qq(select id,description from status);
        
  ## Fetch table data with "fetchTable"
  my $table_results = $dbd_object->fetchTable("$select_table");
        
  ## Extract table data from $table_results array reference
  foreach my $row (@$table_results) {
        
        my ($db_id,$db_description) = @$row;
        
        ## Print Results
        print "DB_ID $db_id, DB_DESCRIPTION $db_description\n";
        
  }

  ### Insert Data
        
  ## SQL Insert statement
  my $insert_table = qq(insert into status (description) values (?));
        
  ## Insert Arguments, to subsitute "?"
  my @insert_table_values = ("Data");
        
  ## Insert data with "insertData"
  $dbd_object->insertData("$insert_table",\@insert_table_values);
  
  ## The insertData Method could also be expressed the following ways
  
  my $insert_table_values = ["Data"];
  $dbd_object->insertData("$insert_table",$insert_table_values);
  
  # or
  
  $dbd_object->insertData("$insert_table",["Data"]);
        
  ### Select Table Row
        
  ## SQL Stament to fetch last insert
  my $fetch_last_insert = qq(select description 
                             from status 
                             where description = 'Data');
        
  ## Fetch table row with "fetchRow"
  my $row_results = $object->fetchRow("$fetch_last_insert");
        
  ## Print Results
  print "Last Insert: $row_results\n";
  
  ---
        
  ###
  ## Using the IO::File wrapper module
  ###
        
  use SysAdmin::File;
        
  ## Declare file object
  my $file_object = new SysAdmin::File(name => "/tmp/test.txt");
        
  ## Read file and dump contents to array reference
  my $array_ref = $file_object->readFile();
        
  foreach my $row (@$array_ref){
        print "Row $row\n";
  }
  
  ## Write to file
  my @file_contents = ("First Line", "Second Line");
  $file_object->writeFile(\@file_contents);
        
  ## Append file
  my @file_contents_append = ("Third Line", "Fourth Line");
  $file_object->appendFile(\@file_contents_append);
        
  ## Check File Exist
  my $file_exist = $file_object->fileExist();
        
  if($file_exist){
        print "File exists\n";
  }
        
  ## Declare directory object
  my $directory_object = new SysAdmin::File(name => "/tmp");
        
  ## Check Directory Exist
  my $directory_exist = $directory_object->directoryExist();
        
  if($directory_exist){
        print "Directory exists\n";
  }

DESCRIPTION

This is a master class for SysAdmin wrapper modules. Example SysAdmin modules are SysAdmin::DB, SysAdmin::Expect, SysAdmin::SMTP, etc.

SEE ALSO

SysAdmin::DB

SysAdmin::Expect

SysAdmin::File

SysAdmin::SMTP

SysAdmin::SNMP

AUTHOR

Miguel A. Rivera

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.