'View customers of all agents' doesn't mean create them, or upload inventory, RT...
[freeside.git] / bin / bsdshell.export
1 #!/usr/bin/perl -w
2
3 # bsdshell 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 @bsd_exports = qsearch('part_export', { 'exporttype' => 'bsdshell' } );
23
24 my $rsync = File::Rsync->new({
25   rsh     => 'ssh',
26 #  dry_run => 1,
27 });
28
29 foreach my $export ( @bsd_exports ) {
30   my $machine = $export->machine;
31   my $prefix = "$spooldir/$machine";
32   mkdir $prefix, 0700 unless -d $prefix;
33
34   #LOCKING!!!
35
36   ( open(MASTER,">$prefix/master.passwd")
37     #!!!  and flock(MASTER,LOCK_EX|LOCK_NB)
38   ) or die "Can't open $prefix/master.passwd: $!";
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/master.passwd";
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 FreeBSD MASTER PASSWD FILE HERE
82     print MASTER join(":",
83       $svc_acct->username,              # User name
84       $cpassword,                       # Encrypted password
85       $svc_acct->uid,                   # User ID
86       $svc_acct->gid,                   # Group ID
87       "",                               # Login Class
88       "0",                              # Password Change Time
89       "0",                              # Password Expiration Time
90       $svc_acct->finger,                # Users name
91       $svc_acct->dir,                   # Users home directory
92       $svc_acct->shell,                 # shell
93     ), "\n" ;
94   
95   }
96
97   #!!! flock(MASTER,LOCK_UN);
98   #!!! flock(PASSWD,LOCK_UN);
99   close MASTER;
100   close PASSWD;
101
102   $rsync->exec( {
103     src  => "$prefix/passwd",
104     dest => "root\@$machine:/etc/passwd"
105   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
106
107   $rsync->exec( {
108     src  => "$prefix/master.passwd",
109     dest => "root\@$machine:/etc/master.passwd.new"
110   } ) or die "rsync to $machine failed: ". join(" / ", $rsync->err);
111   ssh("root\@$machine", "pwd_mkdb /etc/master.passwd.new");
112
113   # UNLOCK!!
114 }