e-smith-lib/sme10/e-smith-lib-2.6.0-bz12194-allowSystemctlAliases.patch

diff -Nur --no-dereference e-smith-lib-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.6.0/root/usr/share/perl5/vendor_perl/esmith/util.pm
--- e-smith-lib-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm       2022-11-23 17:02:16.800000000 -0500
+++ e-smith-lib-2.6.0/root/usr/share/perl5/vendor_perl/esmith/util.pm   2022-11-23 17:04:43.374000000 -0500
@@ -1123,17 +1123,18 @@
     {
         my ($startScript) = glob("/etc/rc.d/rc7.d/S*$serviceName") ||'' ;
         my ($systemdScript) = "/usr/lib/systemd/system/$serviceName.service" ||'';
+       my ($systemdAlias) = "/etc/systemd/system/$serviceName.service" ||'';
        my $multiple = "$serviceName.service";
        ($multiple = $serviceName ) =~ s/([a-zA-Z0-9\-_.]+@)(.*)/$1.service/ if ( $serviceName =~ /@/ );
 
-        unless ( -e $startScript or -e $systemdScript or -e "/usr/lib/systemd/system/$multiple")
+       unless ( -e $startScript or -e $systemdScript or -e "/usr/lib/systemd/system/$multiple" or -e $systemdAlias)
         {
             warn "serviceControl: startScript not found "
               . "for service $serviceName\n";
             return 0;
         }
 
-        if ( (-e $systemdScript  or -e "/usr/lib/systemd/system/$multiple") and ! -e $startScript){
+        if ( (-e $systemdScript  or -e "/usr/lib/systemd/system/$multiple" or -e $systemdAlias) and ! -e $startScript){
            # systemd is not aware of adjust, sigusr1, sigusr2, sigterm, sighup
            $serviceAction = ( $serviceAction =~/^(adjust|graceful|sighup|sigusr1|sigusr2)$/ ) ? "reload-or-restart" : $serviceAction; 
            $serviceAction = ( $serviceAction eq "sigterm" ) ? "restart" : $serviceAction;
1	diff -Nur --no-dereference e-smith-lib-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm e-smith-lib-2.6.0/root/usr/share/perl5/vendor_perl/esmith/util.pm
2	--- e-smith-lib-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/util.pm 2022-11-23 17:02:16.800000000 -0500
3	+++ e-smith-lib-2.6.0/root/usr/share/perl5/vendor_perl/esmith/util.pm 2022-11-23 17:04:43.374000000 -0500
4	@@ -1123,17 +1123,18 @@
5	{
6	my ($startScript) = glob("/etc/rc.d/rc7.d/S*$serviceName") \|\|'' ;
7	my ($systemdScript) = "/usr/lib/systemd/system/$serviceName.service" \|\|'';
8	+ my ($systemdAlias) = "/etc/systemd/system/$serviceName.service" \|\|'';
9	my $multiple = "$serviceName.service";
10	($multiple = $serviceName ) =~ s/([a-zA-Z0-9\-_.]+@)(.*)/$1.service/ if ( $serviceName =~ /@/ );
11
12	- unless ( -e $startScript or -e $systemdScript or -e "/usr/lib/systemd/system/$multiple")
13	+ unless ( -e $startScript or -e $systemdScript or -e "/usr/lib/systemd/system/$multiple" or -e $systemdAlias)
14	{
15	warn "serviceControl: startScript not found "
16	. "for service $serviceName\n";
17	return 0;
18	}
19
20	- if ( (-e $systemdScript or -e "/usr/lib/systemd/system/$multiple") and ! -e $startScript){
21	+ if ( (-e $systemdScript or -e "/usr/lib/systemd/system/$multiple" or -e $systemdAlias) and ! -e $startScript){
22	# systemd is not aware of adjust, sigusr1, sigusr2, sigterm, sighup
23	$serviceAction = ( $serviceAction =~/^(adjust\|graceful\|sighup\|sigusr1\|sigusr2)$/ ) ? "reload-or-restart" : $serviceAction;
24	$serviceAction = ( $serviceAction eq "sigterm" ) ? "restart" : $serviceAction;