#!/usr/bin/perl

#$aline = &head2index($aline);

sub head2index {
        my ($aline) = @_;
        my ($h2jmjsid,$h2jmjsfile,$h2jmjssubject,
                $h2jmjsname,$h2jmjsdate,$h2jmjsemail)
                        = split('\|',$aline);
        ($h2jmjsid,$h2jmjspass) = split(":",$h2jmjsid);
        my $aline = join("\|",        "t",        "1",
                        $h2jmjsfile,        "n",        $h2jmjsid,
                        $h2jmjssubject,        $h2jmjsname,
                        $h2jmjsdate,        "1",        $h2jmjsemail);
        return $aline;
}