|
|
@ -6,14 +6,14 @@ use esmith::AccountsDB; |
|
|
|
|
|
|
|
|
|
|
|
my $a = esmith::AccountsDB->open or die "Couldn't open AccountsDB\n"; |
|
|
|
my $a = esmith::AccountsDB->open or die "Couldn't open AccountsDB\n"; |
|
|
|
|
|
|
|
|
|
|
|
my $peudo = $a->get('listreports'); |
|
|
|
my $pseudo = $a->get('listreports'); |
|
|
|
|
|
|
|
|
|
|
|
if (!$pseudo){ |
|
|
|
if (!$pseudo){ |
|
|
|
$a->new_record('listreports',{ |
|
|
|
$a->new_record('listreports',{ |
|
|
|
type => 'pseudonym', |
|
|
|
type => 'pseudonym', |
|
|
|
Account => 'admin' |
|
|
|
Account => 'admin' |
|
|
|
}); |
|
|
|
}); |
|
|
|
unless ( system("/sbin/e-smith/signal-event", "pseudonym-createe", "listreports") == 0 ){ |
|
|
|
unless ( system("/sbin/e-smith/signal-event", "pseudonym-create", "listreports") == 0 ){ |
|
|
|
die "Failed to create pseudonym listreports\n"; |
|
|
|
die "Failed to create pseudonym listreports\n"; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|