Bugzilla Bug #440344 - Installation page should tell admins to use "service",

not "/etc/init.d" on Linux.


git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@270 c9f7a03b-bd48-0410-a16d-cbbf54688b0b

4 files changed, 37 insertions, 6 deletions

diff --git a/pki/base/common/src/com/netscape/cms/servlet/csadmin/DonePanel.java b/pki/base/common/src/com/netscape/cms/servlet/csadmin/DonePanel.java
index 583548257..edd309b97 100644
--- a/pki/base/common/src/com/netscape/cms/servlet/csadmin/DonePanel.java
+++ b/pki/base/common/src/com/netscape/cms/servlet/csadmin/DonePanel.java
@@ -175,7 +175,13 @@ public class DonePanel extends WizardPanelBase {
             select = cs.getString("preop.subsystem.select", "");
         } catch (Exception e) {}
 
-        context.put("instanceId", instanceId);
+        String os = System.getProperty( "os.name" );
+        if( os.equalsIgnoreCase( "Linux" ) ) {
+            context.put( "initCommand", "/sbin/service " + instanceId );
+        } else {
+            /* default case:  e. g. - ( os.equalsIgnoreCase( "SunOS" ) */
+            context.put( "initCommand", "/etc/init.d/" + instanceId );
+        }
         context.put("title", "Done");
         context.put("panel", "admin/console/config/donepanel.vm");
         context.put("host", ownhost);
diff --git a/pki/base/ra/lib/perl/PKI/RA/DonePanel.pm b/pki/base/ra/lib/perl/PKI/RA/DonePanel.pm
index 76827fcf3..064a0540e 100755
--- a/pki/base/ra/lib/perl/PKI/RA/DonePanel.pm
+++ b/pki/base/ra/lib/perl/PKI/RA/DonePanel.pm
@@ -329,10 +329,18 @@ sub display
     my $unsecurePort = $::config->get("service.unsecurePort");
     my $instanceID = $::config->get("service.instanceID");
 
+    my $initCommand = "";
+    if( $^O eq "linux" ) {
+        $initCommand = "/sbin/service $instanceID";
+    } else {
+        ## default case:  e. g. - ( $^O eq "solaris" )
+        $initCommand  = "/etc/init.d/$instanceID";
+    }
+
     $::symbol{host}  = $machineName;
     $::symbol{port}  = $securePort;
     $::symbol{unsecurePort}  = $unsecurePort;
-    $::symbol{instanceId}  = $instanceID;
+    $::symbol{initCommand}  = $initCommand;
 
     $::config->deleteSubstore("preop.");
     $::config->commit();
diff --git a/pki/base/setup/pkicreate b/pki/base/setup/pkicreate
index f99fa5777..a2569e28c 100755
--- a/pki/base/setup/pkicreate
+++ b/pki/base/setup/pkicreate
@@ -517,6 +517,8 @@ my $pki_cfg_instance_file_path                = "";  # CA, KRA, OCSP, TKS,
                                                      # RA, TPS
 my $pki_cfg_subsystem_file_path               = "";  # CA, KRA, OCSP, TKS,
                                                      # RA, TPS
+my $pki_start_stop_command                    = "";  # CA, KRA, OCSP, TKS,
+                                                     # RA, TPS
 my $pki_start_stop_script_instance_file_path  = "";  # CA, KRA, OCSP, TKS,
                                                      # RA, TPS
 my $pki_start_stop_script_subsystem_file_path = "";  # CA, KRA, OCSP, TKS,
@@ -3740,16 +3742,23 @@ ASK_AGAIN:
         exit 255;
     }
 
-    $command = "$pki_start_stop_script_instance_file_path start";
+    if( $^O eq "linux" ) {
+        $pki_start_stop_command = "/sbin/service" . " " . $pki_instance_name;
+    } else {
+        # default case:  e. g. - ( $^O eq "solaris" )
+        $pki_start_stop_command = $pki_start_stop_script_instance_file_path;
+    }
+
+    $command = "$pki_start_stop_command start";
 
     system( "$command" );
 
     print( STDOUT
            "Server can be operated with "
-         . "$pki_start_stop_script_instance_file_path "
+         . "$pki_start_stop_command "
          . "start | stop | restart\n\n" );
     emit( "Server can be operated with "
-        . "$pki_start_stop_script_instance_file_path "
+        . "$pki_start_stop_command "
         . "start | stop | restart\n",
           "log" );
 
diff --git a/pki/base/tps/lib/perl/PKI/TPS/DonePanel.pm b/pki/base/tps/lib/perl/PKI/TPS/DonePanel.pm
index 1323e961d..796a713d7 100755
--- a/pki/base/tps/lib/perl/PKI/TPS/DonePanel.pm
+++ b/pki/base/tps/lib/perl/PKI/TPS/DonePanel.pm
@@ -341,10 +341,18 @@ sub display
     my $unsecurePort = $::config->get("service.unsecurePort");
     my $instanceID = $::config->get("service.instanceID");
 
+    my $initCommand = "";
+    if( $^O eq "linux" ) {
+        $initCommand = "/sbin/service $instanceID";
+    } else {
+        ## default case:  e. g. - ( $^O eq "solaris" )
+        $initCommand  = "/etc/init.d/$instanceID";
+    }
+
     $::symbol{host}  = $machineName;
     $::symbol{port}  = $securePort;
     $::symbol{unsecurePort}  = $unsecurePort;
-    $::symbol{instanceId}  = $instanceID;
+    $::symbol{initCommand}  = $initCommand;
 
     $::config->deleteSubstore("preop.");
     $::config->commit();