Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/perl -w

# set of libraries to be used by these modules

# clean up the output of a command. Removes delimiter from text

sub cleanUp {

   my ($delimiter, $text) = @_;

   chomp $text;

   return $text unless $delimiter;

   $text =~ m/[^$delimiter]*$delimiter\s*(.*)/;

   return $1;

}

# checks if a command is valid on this system. If so, returns the full path to it

# else, returns empty string.

sub validCommandOnSystem {

   my $command = shift;

   $command = `which $command 2> /dev/null`;

   chomp $command;

   return -x $command ? $command : '';

}

1;