11 lines
266 B
Perl
11 lines
266 B
Perl
#!/usr/bin/perl -w
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
panel_link("remoteuseraccess", 'manager');
|
|
|
|
foreach $event (qw( create delete modify ))
|
|
{
|
|
templates2events("/etc/proftpd.conf", "user-${event}");
|
|
templates2events("/etc/sudoers", "user-${event}");
|
|
}
|