34 lines
1.0 KiB
Perl
34 lines
1.0 KiB
Perl
#!/usr/bin/perl -w
|
|
# This script creates the symlinks needed by this RPM
|
|
# Specific support exists to create symlinks within e-smith web "panels"
|
|
# and for links from named "events" directories into the "actions" directory
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
my $panel = "manager";
|
|
panel_link("loginscript", $panel);
|
|
|
|
foreach (qw(samba/smb.conf))
|
|
{
|
|
templates2events("/etc/$_", qw(
|
|
conf-logondrive
|
|
));
|
|
}
|
|
|
|
|
|
#--------------------------------------------------
|
|
# actions for conf-logondrive event:
|
|
#--------------------------------------------------
|
|
$event = "conf-logondrive";
|
|
|
|
safe_symlink("sighup", "root/etc/e-smith/events/$event/services2adjust/smbd");
|
|
#event_link("conf-samba", $event, "25");
|
|
#event_link("reload-samba", $event, "50");
|
|
event_link("conf-loginscript", $event, "75");
|
|
|
|
$event="smeserver-loginscript-update";
|
|
safe_symlink("sighup", "root/etc/e-smith/events/$event/services2adjust/smbd");
|
|
templates2events("/etc/smb.conf",$event);
|
|
event_link("conf-loginscript", $event, "75");
|
|
|