Subversion Repositories camp_sysinfo_client_3

Rev

Rev 144 | Rev 154 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 144 Rev 153
Line 595... Line 595...
595 
sub processParameters {
 595 
sub processParameters {
596 
   while ( my $parameter = shift ) {
 596 
   while ( my $parameter = shift ) {
597 
      if ( $parameter eq '-v' ) {
 597 
      if ( $parameter eq '-v' ) {
598 
         print "$main::VERSION\n";
 598 
         print "$main::VERSION\n";
599 
         exit;
 599 
         exit;
- 
 
 600 
      } elsif ( $parameter eq 'firstrun' ) {
- 
 
 601 
         `touch /tmp/sysinfo.firstrun`;
600 
      }
 602 
      }
601 
   } # while
 603 
   } # while
602 
}
 604 
}
603 
 
 605 
 
604 
&processParameters( @ARGV );
 606 
&processParameters( @ARGV );