package MkgrayFormat;
require Util;

sub Load {
	&Feature::FuncReg(\&default_format, 90);
	&Feature::LocalizeZephyr;
}

sub default_format {
    return if $main::displayed;
    my(@fields) = &main::ZFields();
	$n++;
    $signature = $fields[0];
    $signature =~ s/[\n\r]/;;/g;
    if(length($signature) >45){
        $signature = substr($signature, 0, 42)."...";
    }
	$signature = Util::protect($signature);
    $z = <<EOZ;
Zephyr # $n [ $time $date ] ($opcode)
[$class][$instance] \@b($sender)\@\@$fromhost
/* \@($signature) */

EOZ
    $z .= join("\n", @fields[1..$#fields]);
	if($recipient eq "*" && (uc($class) eq "MESSAGE") && (uc($personal) && "PERSONAL")){
		$z = "WARNING: Message Personal *\n".$z;
	}
	&main::ZPut($z);
	$main::displayed = 1;
}

1;