You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
453 B
21 lines
453 B
10 years ago
|
#!/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";
|
||
|
}
|
||
|
}
|
||
|
|