parent
5bb290796b
commit
4d2fab21e0
2 changed files with 24 additions and 0 deletions
@ -0,0 +1,20 @@ |
||||
#!/usr/bin/perl -w |
||||
|
||||
use strict; |
||||
use warnings; |
||||
use esmith::AccountsDB; |
||||
|
||||
my $a = esmith::AccountsDB->open or die "Couldn't open AccountsDB\n"; |
||||
|
||||
my $peudo = $a->get('listreports'); |
||||
|
||||
if (!$pseudo){ |
||||
$a->new_record('listreports',{ |
||||
type => 'pseudonym', |
||||
Account => 'admin' |
||||
}); |
||||
unless ( system("/sbin/e-smith/signal-event", "pseudonym-createe", "listreports") == 0 ){ |
||||
die "Failed to create pseudonym listreports\n"; |
||||
} |
||||
} |
||||
|
Loading…
Reference in new issue