bin/sysvshell.export

   1 #!/usr/bin/perl -w
   2
   3 # sysvshell export
   4
   5 use strict;
   6 use File::Rsync;
   7 use Net::SSH qw(ssh);
   8 use FS::UID qw(adminsuidsetup datasrc);
   9 use FS::Record qw(qsearch qsearchs);
  10 use FS::part_export;
  11 use FS::cust_svc;
  12 use FS::svc_acct;
  13
  14 my @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
  15
  16 my $user = shift or die &usage;
  17 adminsuidsetup $user;
  18
  19 my $spooldir = "/usr/local/etc/freeside/export.". datasrc;
  20 #my $spooldir = "/usr/local/etc/freeside/export.". datasrc. "/shell";
  21
  22 my @sysv_exports = qsearch('part_export', { 'exporttype' => 'sysvshell' } );
  23
  24 my $rsync = File::Rsync->new({
  25   rsh     => 'ssh',
  26 #  dry_run => 1,
  27 });
  28
  29 foreach my $export ( @sysv_exports ) {
  30   my $machine = $export->machine;
  31   my $prefix = "$spooldir/$machine";
  32   mkdir $prefix, 0700 unless -d $prefix;
  33
  34   #LOCKING!!!
  35
  36   ( open(SHADOW,">$prefix/shadow")
  37     #!!!  and flock(SHADOW,LOCK_EX|LOCK_NB)
  38   ) or die "Can't open $prefix/shadow: $!";
  39   ( open(PASSWD,">$prefix/passwd")
  40     #!!!  and flock(PASSWD,LOCK_EX|LOCK_NB)
  41   ) or die "Can't open $prefix/passwd: $!";
  42
  43   chmod 0644, "$prefix/passwd";
  44   chmod 0600, "$prefix/shadow";
  45
  46   #false laziness with  freeside-sqlradius-reset and bind.export
  47   my @svc_acct =
  48     map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
  49       map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  50         grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  51           $export->export_svc;
  52
  53   next unless @svc_acct;
  54
  55   foreach my $svc_acct ( sort { $a->uid <=> $b->uid } @svc_acct ) {
  56
  57     my $password = $svc_acct->_password;
  58     my $cpassword;
  59     #if ( ( length($password) <= 8 )
  60     if ( ( length($password) <= 12 )
  61          && ( $password ne '*' )
  62          && ( $password ne '!!' )
  63          && ( $password ne '' )
  64     ) {
  65       $cpassword=crypt($password,
  66                        $saltset[int(rand(64))].$saltset[int(rand(64))]
  67       );
  68       # MD5 !!!!
  69     } else {
  70       $cpassword=$password;
  71     }
  72
  73     ###
  74     # FORMAT OF THE PASSWD FILE HERE
  75     print PASSWD join(":",
  76       $svc_acct->username,
  77       'x', # "##". $username,
  78       $svc_acct->uid,
  79       $svc_acct->gid,
  80       $svc_acct->finger,
  81       $svc_acct->dir,
  82       $svc_acct->shell,
  83     ), "\n";
  84
  85     ###
  86     # FORMAT OF THE SHADOW FILE HERE
  87     print SHADOW join(":",
  88       $svc_acct->username,
  89       $cpassword,
  90       '',
  91       '',
  92       '',
  93       '',
  94       '',
  95       '',
  96       '',
  97     ), "\n";
  98
  99   }
 100
 101   #!!! flock(SHADOW,LOCK_UN);
 102   #!!! flock(PASSWD,LOCK_UN);
 103   close SHADOW;
 104   close PASSWD;
 105
 106   $rsync->exec( {
 107     src  => "$prefix/shadow",
 108     dest => "root\@$machine:/etc/shadow"
 109   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
 110
 111   $rsync->exec( {
 112     src  => "$prefix/passwd",
 113     dest => "root\@$machine:/etc/passwd"
 114   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
 115
 116   # UNLOCK!!
 117 }