CDR maximum duration, RT#81475
[freeside.git] / 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   my @svc_acct = $export->svc_x;
47
48   next unless @svc_acct;
49
50   foreach my $svc_acct ( sort { $a->uid <=> $b->uid } @svc_acct ) {
51
52     my $password = $svc_acct->_password;
53     my $cpassword;
54     #if ( ( length($password) <= 8 )
55     if ( ( length($password) <= 12 )
56          && ( $password ne '*' )
57          && ( $password ne '!!' )
58          && ( $password ne '' )
59     ) {
60       $cpassword=crypt($password,
61                        $saltset[int(rand(64))].$saltset[int(rand(64))]
62       );
63       # MD5 !!!!
64     } else {
65       $cpassword=$password;
66     }
67
68     ###
69     # FORMAT OF THE PASSWD FILE HERE
70     print PASSWD join(":",
71       $svc_acct->username,
72       'x', # "##". $username,
73       $svc_acct->uid,
74       $svc_acct->gid,
75       $svc_acct->finger,
76       $svc_acct->dir,
77       $svc_acct->shell,
78     ), "\n";
79
80     ###
81     # FORMAT OF THE SHADOW FILE HERE
82     print SHADOW join(":",
83       $svc_acct->username,
84       $cpassword,
85       '',
86       '',
87       '',
88       '',
89       '',
90       '',
91       '',
92     ), "\n";
93
94   }
95
96   #!!! flock(SHADOW,LOCK_UN);
97   #!!! flock(PASSWD,LOCK_UN);
98   close SHADOW;
99   close PASSWD;
100
101   $rsync->exec( {
102     src  => "$prefix/shadow",
103     dest => "root\@$machine:/etc/shadow"
104   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
105
106   $rsync->exec( {
107     src  => "$prefix/passwd",
108     dest => "root\@$machine:/etc/passwd"
109   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
110
111   # UNLOCK!!
112 }