_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.