Noteopen (MPRINT, "| $testconnect") || die "Can't open pipe to $mconn $!" +; print MPRINT "- Time:\n $date\n"; print MPRINT "- Name:\n $frmName\n"; print MPRINT "- Phone:\n $frmPhone\n"; print MPRINT "- Dept:\n $frmDept\n"; if ($FORM{'DeptBillingCode'}){ print MPRINT "- Department Billing Code:\n $frmDe +ptBillingCode\n"; } if ($FORM{'IDR'}){ print MPRINT "- IDR:\n $frmIDR\n";<br> } print MPRINT "- Building:\n $frmBuilding\n"; print MPRINT "- Room Number:\n $frmRoom\n"; if ($FORM{'Contact'}){ print MPRINT "- Contact:\n $frmContact\n"; } if ($FORM{'EquipmentType'}){ print MPRINT "- Equipment Type:\n $frmEquipmentTy +pe\n"; } print MPRINT "- Model Number:\n $frmModelNumber\n"; if ($FORM{'SerialNumber'}){ print MPRINT "- Serial Number:\n $frmSerialNumber +\n"; } print MPRINT "- Problem:\n $frmProblem\n"; if ($FORM{'WarrantyStatus'}){ print MPRINT "- Warranty Status:\n $frmWarrantySt +atus\n"; } if ($FORM{'BestTime'}){ print MPRINT "- Best Time:\n $frmBestTime\n"; } if ($FORM{'OtherInfo'}){ print MPRINT "- Other Information:\n $frmOtherInf +o\n"; } close(MPRINT);
Edited by BazB. Changed pre tags to code tags.
In reply to Closing mconnect by timmyb85
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |