Perl file parse fstab get set properties file

#!/usr/bin/perl
use Switch;

sub parsefstabline
{
  my $counter = -1;
  foreach my $word ( @_ )
  {
    $counter++;
    switch( $counter )
    {
      case "0"
      {
        print "<file system> $word\n";
        break;
      }
      case "1"
      {
        print "<mount point> $word\n";
        break;
      }
      case "2"
      {
        print "<type> $word\n";
        break;
      }
      case "3"
      {
        print "<options> $word\n";
        break;
      }
      case "4"
      {
        print "<dump> $word\n";
        break;
      }
      case "5"
      {
        print "<pass> $word\n";
        break;
      }
      else
      {  break;
      }
    } # end switch

  } # end foreach
} # end parsefstabline()


# -- main ---------------------------#

my $data_file = "/etc/fstab";


open( FILE , "$data_file" ) or die "can't open $data_file ";
foreach my $line ( <FILE> )
{
  $ishash = $line =~ m/^#/ ;   # skip comments (begin with a # hash symbol)
  if( $ishash != 1 )
  {
    my $isdoubleslash = $line =~ m/^\/\// ;  # network shares begin with a double slash
    if( $isdoubleslash )
    {
      my @line_array = split( " " , $line );
      parsefstabline( @line_array );
    }
  }
}
close( FILE );



- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
#!/usr/bin/perl

use Switch;
use File::Copy;
use strict;


my $target = "\#//";
my $newstring = "//";

open( SOURCE , "</home/ubuntu/test-fstab-source" ) or die "can't open source ";
open( TARGET , ">/home/ubuntu/test-fstab" ) or die "can't open target ";

foreach my $line ( <SOURCE> )
{
  my $matchresult = $line =~ m/^($target)/ ;
  if( $matchresult )
  {
    print "\n FOUND \n";
    print "$line\n";
    $line =~ s/$target/$newstring/g;
    print "$line\n";
    print TARGET "$line";
  }else
  {
    print TARGET "$line";
  }

} # end foreach line in the SOURCE file

close( SOURCE );
close( TARGET );



- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

#!/usr/bin/perl
use strict;
use warnings;
use Switch;

# 2012-12-14 johnpfeiffer
# todo more defensive trim chomp statements

use constant PYTHONPROPERTIESFILE => "/tmp/test.py";

# Require Parameters: string=command , string=arguments
sub systemcommand( $$ )
{
  my $command = $_[0] ;
  my @args = split( " " , $_[1] ) ;
  my $result = system $command,@args;
  return $result;
}


sub getTimestamp()
{
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
  $sec = sprintf( "%2.2d" , $sec );
  $min = sprintf( "%2.2d" , $min );
  $hour = sprintf( "%2.2d" , $hour );
  $mday = sprintf( "%2.2d" , $mday );
  $mon = sprintf( "%2.2d" , $mon );
  $mon = $mon + 1;  # to account for the fact that January starts at 0
  $year = $year + 1900;
  my $timestamp = "$year-$mon-$mday--$hour-$min-$sec" ;
  return $timestamp;
}

sub systemCopySourceToTarget( ;$$ )
{
  my( $source,
      $target ) = @_;
  defined $source or die 'Required parameter "source" not defined';
  defined $target or die 'Required parameter "target" not defined';
  systemcommand( "/bin/cp" , "-a $source $target" );
}

sub backupFile( ;$ )
{
  my( $sourceFile ) = @_;    defined $sourceFile or die 'Required parameter "sourceFile" not defined';
  my $backupFile = "";
  if( ! -e $sourceFile )
  {   print "Cannot create a backup, file does not exist.\n";
  }else
  { my $timestamp = getTimestamp();
    $backupFile = "$sourceFile.$timestamp" ;
    systemCopySourceToTarget( $sourceFile , $backupFile );
  }
  return $backupFile;
}

sub fileExists( ;$ )
{
  my( $targetFile ) = @_;    defined $targetFile or die 'Required parameter "targetFile" not defined';
  my $result = 0;
  if( -s $targetFile > 0 )
  {  $result = 1;
  }
  return $result;
}

sub trim( ;$ )
{
  my( $string ) = @_;    defined $string or die 'Required parameter "string" not defined';
  $string =~ s/^\s+//;
  $string =~ s/\s+$//;
  return $string;
}

sub stripTrailingSingleQuoteWhiteSpaceNewlines( ;$ )
{
  my( $string ) = @_;
  defined $string or die 'Required parameter "String" not defined';
  chomp( $string );
  $string = trim( $string );
  if( length( $string ) > 0 )
  {
    print $string . " " . length( $string ) . "\n";
    my $lastCharacter =  substr( $string , -1 , 1 );
    print "DEBUG LAST: " . $lastCharacter . "\n";
    if( $lastCharacter eq "'" )
    {
      $string = substr( $string , 0 , -1 );
    }
  }
  return $string;
}


sub getPythonConfigFileProperty( ;$$ )
{
  my( $identifier,
      $sourceFile ) = @_;
  defined $identifier or die 'Required parameter "Identifier" not defined';
  defined $sourceFile or die 'Required parameter "sourceFile" not defined';
  my $property = "UNDEFINED";
  my $isHash = "UNDEFINED";

  if( ! fileExists( $sourceFile ) )
  {
    $property = "ERROR: $sourceFile not found";
  }elsif( $identifier eq "" ){
     $property = "ERROR: cannot replace an empty string \n";
  }else{
    $identifier = $identifier . "'";  # python config file specific single quote

    open( FILE , "$sourceFile" ) or die "can't open $sourceFile ";
    foreach my $line ( <FILE> )
    {
      $isHash = $line =~ m/^#/ ;   # skip comments (begin with a # hash symbol)
      if( $isHash != 1 )
      {
        my $matchResult = $line =~ m/^($identifier)/ ;
        if( $matchResult )
        {
          my @tokens = split( $identifier , $line ) ;
          shift( @tokens );     # remove the identifier
          $property = shift( @tokens );
        }
      }
    }
    close( FILE );
  }
  print "before strip DEBUG: " . $property . "\n";
  $property = stripTrailingSingleQuoteWhiteSpaceNewlines( $property );
  print "after strip DEBUG2: " . $property . "\n";
  return $property;
}


sub setPythonConfigFileProperty( ;$$$ )
{
  my( $identifier,
      $newValue,
      $sourceFile ) = @_;
  defined $identifier or die 'Required parameter "Identifier" not defined';
  defined $newValue or die 'Required parameter "newValue" not defined';
  defined $sourceFile or die 'Required parameter "sourceFile" not defined';

  my $result = "ERROR";

  chomp( $sourceFile );
  if( ! fileExists( $sourceFile ) )
  {
     $result = "ERROR: $sourceFile not found";
  }elsif( $identifier eq "" ){
     $result = "ERROR: cannot replace an empty string \n";
  }else{
    chomp( $identifier );
    chomp( $newValue );
    $identifier = $identifier . "'";  # python config file specific single quote
    $newValue = $newValue . "'";      # python config file specific single quote

    my $backup = backupFile( $sourceFile );
    open( SOURCE , "<$backup" ) or die "can't open $backup";
    open( TARGET , ">$sourceFile" ) or die "can't open $sourceFile ";
    foreach my $line ( <SOURCE> )
    {
      my $match = $line =~ m/^$identifier/ ;  # this line starts with the identifier
      if( $match )
      {  print TARGET $identifier . $newValue . "\n";  #this assumes the old line had a trailing newline
      }else
      {  print TARGET $line;
      }
    }
    close( SOURCE );
    close( TARGET );
    $result = "SUCCESS";
  }
  return $result
}

# TESTING #


# MAIN #

my $password = getPythonConfigFileProperty( "password=" , PYTHONPROPERTIESFILE );
print length( $password ) . " characters = " . $password . "\n";
print "Testing last quote " . stripTrailingSingleQuoteWhiteSpaceNewlines( $password ) . "\n" ;
print "Testing last quote " . stripTrailingSingleQuoteWhiteSpaceNewlines( $password ) . "\n" ;


print "\n\n";

my $result = setPythonConfigFileProperty( "password=" , "'~!@#%^&*()_+" , PYTHONPROPERTIESFILE );
print $result . "\n";
$password = getPythonConfigFileProperty( "password=" , PYTHONPROPERTIESFILE );

print "Testing last quote " . stripTrailingSingleQuoteWhiteSpaceNewlines( $password ) . "\n" ;
print "Testing last quote " . stripTrailingSingleQuoteWhiteSpaceNewlines( $password ) . "\n" ;

print "\n\n";





# TODO: don't require configuring NTP twice
sub auditMenu()
{
  print "\nCurrently configured User: " .  getPythonConfigFileProperty( "oxygen_id='" , PYTHONPROPERTIESFILE );
  print "\n\n 1. Configure Remote RSYSLOG Hostname or IP Address \n";
  print " 2. Set the NTP Server to be used with Auditing\n";
  print " 3. Configure the Auditing Login Username (must be an Oxygen Administrator) \n";
  print " 4. Configure the Auditing Login Password  \n";
  print " 5. Configure the Auditing API Key  \n";

  print "\n 9. Return to the main menu \n\n";
  print ": ";


  my $userInput = "";
  my $exitChoice = "9";

  while( $userInput ne $exitChoice )
  {
    $userInput = getUserInput();
    switch( $userInput )
    {
      case "1"
      {   configureRemoteRyslog();
          last;
      }
      case "2"
      {  configurePythonNTP();
         last;
      }
      case "3"
      {  setAuditUserPrompt();
         last;
      }
      case "4"
      {  setAuditPasswordPrompt();
         last;
      }
      case "5"
      {  setAuditAPIKeyPrompt();
         last;
      }
      case "9"
      {  system( "clear" );
         last;
      }
      else
      {  displayMenuInputError( $userInput );
         last;
      }
    } # end switch
  } # end while loop

} #end AuditMenu()