$savemsg = $retval;
         }
     } else {
         $savemsg = gettext("Unable to write config.xml (Access Denied?)");
     }
     $output_form = $dn_default_shaper_message;
     break;
 case "add":
     if ($dnpipe) {
         $q = new dnqueue_class();
         $q->SetPipe($pipe);
         $output_form .= "<input type=\"hidden\" name=\"parentqueue\" id=\"parentqueue\"";
         $output_form .= " value=\"" . $pipe . "\" />";
     } else {
         if ($addnewpipe) {
             $q = new dnpipe_class();
             $q->SetQname($pipe);
         } else {
             $input_errors[] = gettext("Could not create new queue/discipline!");
         }
     }
     if ($q) {
         $output_form .= $q->build_form();
         $newjavascript = $q->build_javascript();
         unset($q);
         $newqueue = true;
     }
     break;
 case "show":
     if ($queue) {
         $output_form .= $queue->build_form();
             $savemsg = $retval;
         }
     } else {
         $savemsg = gettext("Unable to write config.xml (Access Denied?)");
     }
     $dfltmsg = true;
     break;
 case "add":
     if ($dnpipe) {
         $q = new dnqueue_class();
         $q->SetPipe($pipe);
         $output_form .= "<input type=\"hidden\" name=\"parentqueue\" id=\"parentqueue\"";
         $output_form .= " value=\"" . $pipe . "\" />";
     } else {
         if ($addnewpipe) {
             $q = new dnpipe_class();
             $q->SetQname($pipe);
         } else {
             $input_errors[] = gettext("Could not create new queue/discipline!");
         }
     }
     if ($q) {
         $sform = $q->build_form();
         $newjavascript = $q->build_javascript();
         unset($q);
         $newqueue = true;
     }
     break;
 case "show":
     if ($queue) {
         $sform = $queue->build_form();
     if (stristr($retval, "error") != true) {
         $savemsg = get_std_save_message($retval);
     } else {
         $savemsg = $retval;
     }
     $output_form = $dn_default_shaper_message;
     break;
 case "add":
     if ($dnpipe) {
         $q = new dnqueue_class();
         $q->SetPipe($pipe);
         $output_form .= "<input type=\"hidden\" name=\"parentqueue\" id=\"parentqueue\"";
         $output_form .= " value=\"" . $pipe . "\">";
     } else {
         if ($addnewpipe) {
             $q = new dnpipe_class();
             $q->SetQname($pipe);
         } else {
             $input_errors[] = gettext("Could not create new queue/discipline!");
         }
     }
     if ($q) {
         $output_form .= $q->build_form();
         unset($q);
         $newqueue = true;
     }
     break;
 case "show":
     if ($queue) {
         $output_form .= $queue->build_form();
     } else {