3 # Create and export VoiceNet_quasar.m4
5 # ivan@voicenet.com late oct 96
7 # change priority (after copies) to 19, not 10
8 # ivan@voicenet.com 97-feb-5
10 # put file in different place and run different script, as per matt and
12 # ivan@voicenet.com 97-mar-10
14 # added exit if stuff is already locked ivan@voicenet.com 97-apr-15
17 # ivan@voicenet.com 97-jul-10
19 # rewrote lots of the bits, now exports qmail "virtualdomain",
20 # "recipientmap" and "rcpthosts" files as well
22 # ivan@voicenet.com 97-sep-4
26 # ivan@voicenet.com 97-sep-29
28 # added ".pp" files, ugh.
30 # ivan@voicenet.com 97-oct-1
32 # rewrite ivan@sisd.com 98-mar-9
34 # now can create .qmail-default files ivan@sisd.com 98-mar-10
36 # put example $my_domain declaration in ivan@sisd.com 98-mar-23
38 # /var/spool/freeside/conf and sendmail updates ivan@sisd.com 98-aug-14
42 use FS::SSH qw(ssh scp);
43 use FS::UID qw(adminsuidsetup);
44 use FS::Record qw(qsearch qsearchs);
46 my($conf_shellm)="/var/spool/freeside/conf/shellmachine";
47 my($fqmailmachines)="/var/spool/freeside/conf/qmailmachines";
50 if ( -e $fqmailmachines ) {
51 open(SHELLMACHINE,$conf_shellm) or die "Can't open $conf_shellm: $!";
52 <SHELLMACHINE> =~ /^([\w\.\-]+)$/ or die "Illegal $conf_shellm";
55 open(QMAILMACHINES,$fqmailmachines);
57 /^(.*)$/ or die "Illegal line in conf/qmailmachines"; #we trust the file
59 } grep $_ !~ /^(#|$)/, <QMAILMACHINES>;
63 my($fsendmailmachines)="/var/spool/freeside/conf/sendmailmachines";
64 my(@sendmailmachines);
65 if ( -e $fsendmailmachines ) {
66 open(SENDMAILMACHINES,$fsendmailmachines);
67 @sendmailmachines=map {
68 /^(.*)$/ or die "Illegal line in conf/sendmailmachines"; #we trust the file
70 } grep $_ !~ /^(#|$)/, <SENDMAILMACHINES>;
71 close SENDMAILMACHINES;
74 my($conf_domain)="/var/spool/freeside/conf/domain";
75 open(DOMAIN,$conf_domain) or die "Can't open $conf_domain: $!";
77 /^(.*)$/ or die "Illegal line in $conf_domain!"; #yes, we trust the file
79 } grep $_ !~ /^(#|$)/, <DOMAIN>;
82 my($spooldir)="/var/spool/freeside/export";
83 my($spoollock)="/var/spool/freeside/svc_acct_sm.export.lock";
88 open(EXPORT,"+>>$spoollock") or die "Can't open $spoollock: $!";
89 select(EXPORT); $|=1; select(STDOUT);
90 unless ( flock(EXPORT,LOCK_EX|LOCK_NB) ) {
94 #no reason to start locks of blocking processes
95 die "Is another export process running under pid $pid?\n";
100 my(@svc_acct_sm)=qsearch('svc_acct_sm',{});
102 ( open(RCPTHOSTS,">$spooldir/rcpthosts")
103 and flock(RCPTHOSTS,LOCK_EX|LOCK_NB)
104 ) or die "Can't open $spooldir/rcpthosts: $!";
105 ( open(RECIPIENTMAP,">$spooldir/recipientmap")
106 and flock(RECIPIENTMAP,LOCK_EX|LOCK_NB)
107 ) or die "Can't open $spooldir/recipientmap: $!";
108 ( open(VIRTUALDOMAINS,">$spooldir/virtualdomains")
109 and flock(VIRTUALDOMAINS,LOCK_EX|LOCK_NB)
110 ) or die "Can't open $spooldir/virtualdomains: $!";
111 ( open(VIRTUSERTABLE,">$spooldir/virtusertable")
112 and flock(VIRTUSERTABLE,LOCK_EX|LOCK_NB)
113 ) or die "Can't open $spooldir/virtusertable: $!";
114 ( open(SENDMAIL_CW,">$spooldir/sendmail.cw")
115 and flock(SENDMAIL_CW,LOCK_EX|LOCK_NB)
116 ) or die "Can't open $spooldir/sendmail.cw: $!";
120 my($svc_domain,%domain);
121 foreach $svc_domain ( qsearch('svc_domain',{}) ) {
122 my($domain)=$svc_domain->domain;
123 $domain{$svc_domain->svcnum}=$domain;
124 print RCPTHOSTS "$domain\n.$domain\n";
125 print SENDMAIL_CW "$domain\n";
131 foreach $svc_acct_sm ( qsearch('svc_acct_sm') ) {
132 my($domsvc,$domuid,$domuser)=(
133 $svc_acct_sm->domsvc,
134 $svc_acct_sm->domuid,
135 $svc_acct_sm->domuser,
137 my($domain)=$domain{$domsvc};
138 my($svc_acct)=qsearchs('svc_acct',{'uid'=>$domuid});
139 my($username,$dir,$uid,$gid)=(
145 next unless $username && $domain && $domuser;
147 if ($domuser eq '*') {
148 push @sendmail, "\@$domain\t$username\n";
149 print VIRTUALDOMAINS "$domain:$username-$domain\n",
150 ".$domain:$username-$domain\n",
154 ssh("root\@$shellmachine",
155 "[ -e $dir/.qmail-default ] || { touch $dir/.qmail-default; chown $uid:$gid $dir/.qmail-default; }"
156 ) if ( $shellmachine && $dir && $uid );
159 print VIRTUSERTABLE "$domuser\@$domain\t$username\n";
160 print RECIPIENTMAP "$domuser\@$domain:$username\@$mydomain\n";
163 print VIRTUSERTABLE @sendmail;
167 chmod 0644, "$spooldir/sendmail.cw",
168 "$spooldir/virtusertable",
169 "$spooldir/rcpthosts",
170 "$spooldir/recipientmap",
171 "$spooldir/virtualdomains",
174 flock(SENDMAIL_CW,LOCK_UN);
175 flock(VIRTUSERTABLE,LOCK_UN);
176 flock(RCPTHOSTS,LOCK_UN);
177 flock(RECIPIENTMAP,LOCK_UN);
178 flock(VIRTUALDOMAINS,LOCK_UN);
184 close VIRTUALDOMAINS;
190 my($sendmailmachine);
191 foreach $sendmailmachine (@sendmailmachines) {
192 scp("$spooldir/sendmail.cw","root\@$sendmailmachine:/etc/sendmail.cw.new")
193 == 0 or die "scp error: $!";
194 scp("$spooldir/virtusertable","root\@$sendmailmachine:/etc/virtusertable.new")
195 == 0 or die "scp error: $!";
196 ssh("root\@$sendmailmachine",
198 "mv /etc/sendmail.cw.new /etc/sendmail.cw; ".
199 "mv /etc/virtusertable.new /etc/virtusertable; ".
200 #"/etc/init.d/sendmail restart; ".
203 == 0 or die "ssh error: $!";
207 foreach $qmailmachine (@qmailmachines) {
208 scp("$spooldir/recipientmap","root\@$qmailmachine:/var/qmail/control/recipientmap")
209 == 0 or die "scp error: $!";
210 scp("$spooldir/virtualdomains","root\@$qmailmachine:/var/qmail/control/virtualdomains")
211 == 0 or die "scp error: $!";
212 scp("$spooldir/rcpthosts","root\@$qmailmachine:/var/qmail/control/rcpthosts")
213 == 0 or die "scp error: $!";
214 #ssh("root\@$qmailmachine","/etc/init.d/qmail restart")
215 # == 0 or die "ssh error: $!";
219 flock(EXPORT,LOCK_UN);