- my $hash = get_hashname($ref);
- open(S,"db-h/$hash/$ref.status") || &quit("open db-h/$hash/$ref.status: $!");
- chomp($s_originator= <S>);
- chomp($s_date= <S>);
- chomp($s_subject= <S>);
- chomp($s_msgid= <S>);
- chomp($s_package= <S>);
- chomp($s_keywords= <S>);
- chomp($s_done= <S>);
- chomp($s_forwarded= <S>);
- chomp($s_mergedwith= <S>);
- chomp($s_severity= <S>);
- $_= $s_package; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9()]/;