39 lines
1.2 KiB
Perl
39 lines
1.2 KiB
Perl
#!/usr/bin/perl -w
|
|
#----------------------------------------------------------------------
|
|
# Copyright (c) 2001 Mitel Networks Corporation
|
|
#
|
|
# Technical support for this program is available from Mitel Networks
|
|
# Corporation. Please visit our web site www.e-smith.com for details.
|
|
#----------------------------------------------------------------------
|
|
|
|
sub panel_link
|
|
{
|
|
my ($function, $panel) = @_;
|
|
|
|
unlink "root/etc/e-smith/web/panels/$panel/cgi-bin/$function";
|
|
symlink("../../../functions/$function",
|
|
"root/etc/e-smith/web/panels/$panel/cgi-bin/$function")
|
|
or die "Can't symlink to root/etc/e-smith/web/panels/$panel".
|
|
"/cgi-bin/$function: $!";
|
|
}
|
|
|
|
sub event_link
|
|
{
|
|
my ($action, $event, $level) = @_;
|
|
|
|
unlink "root/etc/e-smith/events/${event}/S${level}${action}";
|
|
symlink("../actions/${action}",
|
|
"root/etc/e-smith/events/${event}/S${level}${action}")
|
|
or die "Can't symlink to " .
|
|
"root/etc/e-smith/events/${event}/S${level}${action}: $!";
|
|
}
|
|
|
|
#--------------------------------------------------
|
|
# actions for events
|
|
#--------------------------------------------------
|
|
|
|
foreach my $event (qw(post-install post-upgrade bootstrap-console-save console-save))
|
|
{
|
|
event_link("initialize-default-databases", $event, "00");
|
|
}
|