+ # if it's not a scalar, attempt to warn and fix.
+ my $ref = ref $input;
+ if (defined $ref and $ref ne "") {
+ &status("status: 'input' is not scalar ($ref).");
+
+ if ($ref eq "ARRAY") {
+ foreach (@$input) {
+ &WARN("status: '$_'.");
+ }
+ }
+ }
+
+ # Something is using this w/ NULL.
+ if (!defined $input or $input =~ /^\s*$/) {
+ $input = "ERROR: Blank status call? HELP HELP HELP";
+ }
+
+ for ($input) {
+ s/\n+$//;
+ s/\002|037//g; # bold,video,underline => remove.
+ }
+
+ # does this work?
+ if ($input =~ /\n/) {
+ foreach (split(/\n/, $input)) {
+ &status($_);
+ }
+ }
+
+ # pump up the stats.