20 lines
536 B
Perl
20 lines
536 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
use File::Basename;
|
|
use File::Path;
|
|
|
|
#wrong way
|
|
#safe_symlink("/etc/e-smith/web/functions/wrapper","root/etc/e-smith/web/panels/manager/cgi-bin/user-email");
|
|
#real way
|
|
panel_link("user-email","manager");
|
|
|
|
#--------------------------------------------------
|
|
# actions for smeserver-durep-update:
|
|
#--------------------------------------------------
|
|
my $event = "smeserver-email-management-update";
|
|
|
|
# yum plugin already call this
|
|
#event_link("navigation-conf", $event, "50");
|
|
|