18 lines
471 B
Plaintext
18 lines
471 B
Plaintext
|
{
|
||
|
|
my $fax = $DB->get('faxmaster')
|
||
|
|
|| $DB->new_record('faxmaster', {type => 'user'});
|
||
|
|
|
||
|
|
my $de = $fax->prop('PasswordSet');
|
||
|
|
return "" if $de;
|
||
|
|
|
||
|
|
$fax->set_prop('PasswordSet', 'no');
|
||
|
|
$fax->set_prop('FirstName', 'Fax');
|
||
|
|
$fax->set_prop('LastName', 'Receiver');
|
||
|
|
$fax->set_prop('EmailForward', 'local');
|
||
|
|
|
||
|
|
unless ( system("/sbin/e-smith/signal-event user-create faxmaster") == 0 )
|
||
|
|
{
|
||
|
|
die "user-create faxmaster failed\n";
|
||
|
|
}
|
||
|
|
}
|