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