Changeset 5030 in /cluster/svnroot


Ignore:
Timestamp:
Mar 7, 2015 3:28:18 PM (6 years ago)
Author:
skylar
Message:

set root password using bccd-passwd-wrapper re #912

Location:
bccd-ng/branches/skylar/bccd-3.3.4
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/skylar/bccd-3.3.4/bin/build_livecd.pl

    r4916 r5030  
    12421242
    12431243# User creation
     1244
     1245# Set root password
     1246$Bccd->run_test(
     1247    'system',
     1248    '',
     1249    'Set root password',
     1250    [
     1251        '/usr/sbin/chroot',
     1252        $BUILDDIR,
     1253        '/bin/bccd-passwd-wrapper',
     1254        'root',
     1255        'letmein',
     1256    ],
     1257);
    12441258
    12451259# Manual writes to keep NIS from interfering with static uid/gid
  • bccd-ng/branches/skylar/bccd-3.3.4/trees/bin/bccd-passwd-wrapper

    r3080 r5030  
    1 #!/usr/bin/perl
     1#!/usr/bin/env perl
    22
    33# $Id$
     
    3030
    3131if(!defined($ARGV[0])) {
    32         die "Supply username as first and only argument!\n";
     32        die "Supply username and optionally password\n";
    3333}
    3434
    35 my $Bccd = new Bccd();
    36 my $user = $ARGV[0];
    37 my $passwd = $Bccd->read_passwd();
     35my($Bccd,$user,$passwd);
     36
     37$Bccd = new Bccd();
     38$user = $ARGV[0];
     39if($#ARGV == 1) {
     40    $passwd = $ARGV[1];
     41}
     42else {
     43    $passwd = $Bccd->read_passwd();
     44}
    3845
    3946if($passwd) {
Note: See TracChangeset for help on using the changeset viewer.