Lines Matching refs:print_msg
23 sub print_msg ($)
88 &print_msg (sprintf ("%-31s ", $spec_file_base));
91 &print_msg ("ERROR: no such spec file: $spec_file\n");
96 &print_msg ("ERROR: unable to write to spec file: $spec_file\n");
102 &print_msg ("ERROR: Cannot delete old temp file $temp_file: $!\n");
108 &print_msg ("ERROR: Cannot read $spec_file: $!\n");
113 &print_msg ("ERROR: Cannot create $temp_file: $!\n");
134 &print_msg ("ERROR: non-numeric Release: $rel\n");
141 &print_msg (sprintf ("%7s ", "$lead$rel"));
148 &print_msg (sprintf ("%7s ", "$lead$newrel"));
161 &print_msg ("ERROR: no Release value in spec file\n");
168 &print_msg ("ERROR: \"cp $temp_file $spec_file\": $out");
173 &print_msg ("OK\n");
184 &print_msg ("Nothing to do.\n");
188 &print_msg ("Spec file Release New Rel Status\n");
189 &print_msg ("=============================== ======= ======= =======\n");