3 # $Id: svc_acct_sm.export,v 1.10 2001-05-08 10:44:17 ivan Exp $
5 # Create and export config files for sendmail, qmail
7 # (used to) Create and export VoiceNet_quasar.m4
9 # ivan@voicenet.com late oct 96
11 # change priority (after copies) to 19, not 10
12 # ivan@voicenet.com 97-feb-5
14 # put file in different place and run different script, as per matt and
16 # ivan@voicenet.com 97-mar-10
18 # added exit if stuff is already locked ivan@voicenet.com 97-apr-15
21 # ivan@voicenet.com 97-jul-10
23 # rewrote lots of the bits, now exports qmail "virtualdomain",
24 # "recipientmap" and "rcpthosts" files as well
26 # ivan@voicenet.com 97-sep-4
30 # ivan@voicenet.com 97-sep-29
32 # added ".pp" files, ugh.
34 # ivan@voicenet.com 97-oct-1
36 # rewrite ivan@sisd.com 98-mar-9
38 # now can create .qmail-default files ivan@sisd.com 98-mar-10
40 # put example $my_domain declaration in ivan@sisd.com 98-mar-23
42 # /var/spool/freeside/conf and sendmail updates ivan@sisd.com 98-aug-14
44 # $Log: svc_acct_sm.export,v $
45 # Revision 1.10 2001-05-08 10:44:17 ivan
48 # Revision 1.9 2001/04/22 01:56:15 ivan
49 # get rid of FS::SSH.pm (became Net::SSH and Net::SCP on CPAN)
51 # Revision 1.8 2000/07/06 03:37:24 ivan
52 # don't error out on invalid svc_acct_sm.domuid's that can't be matched in
53 # svc_acct.uid - just warn.
55 # Revision 1.7 2000/07/03 09:13:10 ivan
56 # get rid of double sendmailrestart invocation; no need for multiple sessions
58 # Revision 1.6 2000/07/03 09:09:14 ivan
61 # Revision 1.5 2000/07/03 09:03:14 ivan
62 # added sendmailrestart and sendmailconfigpath config files
64 # Revision 1.4 2000/06/29 14:02:29 ivan
65 # add sendmailrestart configuration file
67 # Revision 1.3 2000/06/12 08:37:56 ivan
68 # sendmail fix from Jeff Finucane
70 # Revision 1.2 1998/12/10 07:23:17 ivan
71 # use FS::Conf, need user (for datasrc)
79 use FS::UID qw(adminsuidsetup datasrc);
80 use FS::Record qw(qsearch qsearchs);
85 my $user = shift or die &usage;
90 my($shellmachine, @qmailmachines);
91 if ( $conf->exists('qmailmachines') ) {
92 $shellmachine = $conf->config('shellmachine');
93 @qmailmachines = $conf->config('qmailmachines');
96 my(@sendmailmachines, $sendmailconfigpath, $sendmailrestart);
97 if ( $conf->exists('sendmailmachines') ) {
98 @sendmailmachines = $conf->config('sendmailmachines');
99 $sendmailconfigpath = $conf->config('sendmailconfigpath') || '/etc';
100 $sendmailrestart = $conf->config('sendmailrestart');
103 my $mydomain = $conf->config('domain');
105 my $spooldir = "/usr/local/etc/freeside/export.". datasrc;
106 my $spoollock = "/usr/local/etc/freeside/svc_acct_sm.export.lock.". datasrc;
110 open(EXPORT,"+>>$spoollock") or die "Can't open $spoollock: $!";
111 select(EXPORT); $|=1; select(STDOUT);
112 unless ( flock(EXPORT,LOCK_EX|LOCK_NB) ) {
116 #no reason to start locks of blocking processes
117 die "Is another export process running under pid $pid?\n";
120 print EXPORT $$,"\n";
122 ( open(RCPTHOSTS,">$spooldir/rcpthosts")
123 and flock(RCPTHOSTS,LOCK_EX|LOCK_NB)
124 ) or die "Can't open $spooldir/rcpthosts: $!";
125 ( open(RECIPIENTMAP,">$spooldir/recipientmap")
126 and flock(RECIPIENTMAP,LOCK_EX|LOCK_NB)
127 ) or die "Can't open $spooldir/recipientmap: $!";
128 ( open(VIRTUALDOMAINS,">$spooldir/virtualdomains")
129 and flock(VIRTUALDOMAINS,LOCK_EX|LOCK_NB)
130 ) or die "Can't open $spooldir/virtualdomains: $!";
131 ( open(VIRTUSERTABLE,">$spooldir/virtusertable")
132 and flock(VIRTUSERTABLE,LOCK_EX|LOCK_NB)
133 ) or die "Can't open $spooldir/virtusertable: $!";
134 ( open(SENDMAIL_CW,">$spooldir/sendmail.cw")
135 and flock(SENDMAIL_CW,LOCK_EX|LOCK_NB)
136 ) or die "Can't open $spooldir/sendmail.cw: $!";
140 my($svc_domain,%domain);
141 foreach $svc_domain ( qsearch('svc_domain',{}) ) {
142 my($domain)=$svc_domain->domain;
143 $domain{$svc_domain->svcnum}=$domain;
144 print RCPTHOSTS "$domain\n.$domain\n";
145 print SENDMAIL_CW "$domain\n";
151 foreach $svc_acct_sm ( qsearch('svc_acct_sm') ) {
152 my($domsvc,$domuid,$domuser)=(
153 $svc_acct_sm->domsvc,
154 $svc_acct_sm->domuid,
155 $svc_acct_sm->domuser,
157 my($domain)=$domain{$domsvc};
158 my($svc_acct)=qsearchs('svc_acct',{'uid'=>$domuid});
159 unless ( $svc_acct ) {
160 warn "WARNING: couldn't find svc_acct.uid $domuid (svc_acct_sm.svcnum ".
161 $svc_acct_sm->svcnum. ") - corruped database?\n";
164 my($username,$dir,$uid,$gid)=(
170 next unless $username && $domain && $domuser;
172 if ($domuser eq '*') {
173 push @sendmail, "\@$domain\t$username\n";
174 print VIRTUALDOMAINS "$domain:$username-$domain\n",
175 ".$domain:$username-$domain\n",
179 ssh("root\@$shellmachine",
180 "[ -e $dir/.qmail-default ] || { touch $dir/.qmail-default; chown $uid:$gid $dir/.qmail-default; }"
181 ) if ( $shellmachine && $dir && $uid );
184 print VIRTUSERTABLE "$domuser\@$domain\t$username\n";
185 print RECIPIENTMAP "$domuser\@$domain:$username\@$mydomain\n";
190 print VIRTUSERTABLE @sendmail;
192 chmod 0644, "$spooldir/sendmail.cw",
193 "$spooldir/virtusertable",
194 "$spooldir/rcpthosts",
195 "$spooldir/recipientmap",
196 "$spooldir/virtualdomains",
199 flock(SENDMAIL_CW,LOCK_UN);
200 flock(VIRTUSERTABLE,LOCK_UN);
201 flock(RCPTHOSTS,LOCK_UN);
202 flock(RECIPIENTMAP,LOCK_UN);
203 flock(VIRTUALDOMAINS,LOCK_UN);
209 close VIRTUALDOMAINS;
215 my($sendmailmachine);
216 foreach $sendmailmachine (@sendmailmachines) {
217 my $scp = new Net::SCP;
218 $scp->scp("$spooldir/sendmail.cw","root\@$sendmailmachine:$sendmailconfigpath/sendmail.cw.new")
219 or die "scp error: ". $scp->{errstr};
220 $scp->scp("$spooldir/virtusertable","root\@$sendmailmachine:$sendmailconfigpath/virtusertable.new")
221 or die "scp error: ". $scp->{errstr};
222 ssh("root\@$sendmailmachine",
224 "mv $sendmailconfigpath/sendmail.cw.new $sendmailconfigpath/sendmail.cw; ".
225 "mv $sendmailconfigpath/virtusertable.new $sendmailconfigpath/virtusertable; ".
229 == 0 or die "ssh error: $!";
233 foreach $qmailmachine (@qmailmachines) {
234 my $scp = new Net::SCP;
235 $scp->scp("$spooldir/recipientmap","root\@$qmailmachine:/var/qmail/control/recipientmap")
236 or die "scp error: ". $scp->{errstr};
237 $scp->scp("$spooldir/virtualdomains","root\@$qmailmachine:/var/qmail/control/virtualdomains")
238 or die "scp error: ". $scp->{errstr};
239 $scp->scp("$spooldir/rcpthosts","root\@$qmailmachine:/var/qmail/control/rcpthosts")
240 or die "scp error: ". $scp->{errstr};
241 #ssh("root\@$qmailmachine","/etc/init.d/qmail restart")
242 # == 0 or die "ssh error: $!";
246 flock(EXPORT,LOCK_UN);
252 die "Usage:\n\n svc_acct.export user\n";