#!/bin/sh
setlock /var/qmail/etc/lockfile perl -e '
# accept the input on STDIN and write it to a file, with a timestamp
$data=<STDIN>;
# remove LF
chop $data;
($ip,$username)=split(" ",$data);
open(F,">>/var/qmail/etc/dynamic-relays");
print F "#" . time . " $username\n";
print F "$ip:allow,RELAYCLIENT=\"\"\n";
close(F);
undef $/;
open(M,"|/usr/local/bin/tcprules /var/qmail/etc/tcpserver.smtp.cdb /var/qmail/etc/tcpserver.smtp.tmp");
open(S,"/var/qmail/etc/tcpserver.smtp");
print M <S>;
close(S);
open(D,"/var/qmail/etc/dynamic-relays");
print M <D>;
close(D);
close(M);
'