Changeset 466


Ignore:
Timestamp:
03/18/14 17:15:40 (10 years ago)
Author:
nanardon
Message:

allow to pass password using ENV variable

Location:
tools/trunk/bin
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • tools/trunk/bin/sophie_dump

    r406 r466  
    1212); 
    1313 
    14 ReadMode('noecho'); 
    15 print "Enter password: "; 
    16 my $password = ReadLine(0); 
    17 ReadMode 0; 
    18 print "\n"; 
    19 chomp($password); 
     14my $password; 
     15 
     16if ($ENV{SOPHIE_PASSWD}) { 
     17    $password  = $ENV{SOPHIE_PASSWD}; 
     18} else { 
     19    ReadMode('noecho'); 
     20    print "Enter password: "; 
     21    $password = ReadLine(0); 
     22    ReadMode 0; 
     23    print "\n"; 
     24    chomp($password); 
     25} 
    2026 
    2127require Data::Dumper; 
  • tools/trunk/bin/sophie_load

    r406 r466  
    1111); 
    1212 
    13 ReadMode('noecho'); 
    14 print "Enter password: "; 
    15 my $password = ReadLine(0); 
    16 ReadMode 0; 
    17 print "\n"; 
    18 chomp($password); 
     13my $password; 
     14 
     15if ($ENV{SOPHIE_PASSWD}) { 
     16    $password  = $ENV{SOPHIE_PASSWD}; 
     17} else { 
     18    ReadMode('noecho'); 
     19    print "Enter password: "; 
     20    $password = ReadLine(0); 
     21    ReadMode 0; 
     22    print "\n"; 
     23    chomp($password); 
     24} 
    1925 
    2026require Data::Dumper; 
Note: See TracChangeset for help on using the changeset viewer.