+ case 'update-initscripts': {
+// expects: slice_id & name & previous-initscript & previous-initscript-code
+// & initscript & initscript-code
+ $slice_id = intval ($_POST['slice_id']);
+ $previous_initscript=$_POST['previous-initscript'];
+ $initscript=$_POST['initscript'];
+ $previous_initscript_code=html_entity_decode($_POST['previous-initscript-code']);
+ $initscript_code=$_POST['initscript-code'];
+
+ $changes=FALSE;
+ if (strcmp($initscript,$previous_initscript) != 0) {
+ $newvalue=$api->SetSliceInitscript($slice_id,$initscript);
+ $status = (strcmp($newvalue,$initscript)==0) ? "OK" : "failed";
+ if (! $initscript) drupal_set_message("Removed shared initscript '" . $previous_initscript . "' " . $status);
+ else drupal_set_message("Replaced shared initscript with '" . $initscript . "' " . $status);
+ $changes=TRUE;
+ }
+
+ // somehow some \r chars make it here; just ignore them
+ $previous_initscript_code=str_replace("\r","",$previous_initscript_code);
+ // plc_debug_txt('previous initscript_code after cr',$previous_initscript_code);
+
+ $initscript_code=str_replace("\r","",$initscript_code);
+ // make sure the script ends with a single \n
+ $initscript_code=trim($initscript_code);
+ if (!empty($initscript_code) && $initscript_code[strlen($initscript_code)-1] != "\n")
+ $initscript_code.="\n";
+ // plc_debug_txt('initscript_code after cr & nl/eof',$initscript_code);
+
+ if (strcmp($initscript_code,$previous_initscript_code) != 0) {
+ $newvalue=$api->SetSliceInitscriptCode($slice_id,$initscript_code);
+ // plc_debug_txt('newvalue',$newvalue);
+ $status=(strcmp($newvalue,$initscript_code)==0) ? "OK" : "failed";
+ if (! $initscript_code) drupal_set_message("Removed initscript code " . $status);
+ else drupal_set_message("Installed new initscript code " . $status);
+ $changes=TRUE;
+ }
+ if (!$changes) drupal_set_message("No changes required in initscript");
+ plc_redirect(l_slice($slice_id) . "&show_details=0&show_initscripts=1" );
+ break;
+ }
+
+