#!/usr/bin/perl

$flag = 1;
$string = "No new messages";

system ("__MHONARC_CMD -rcfile __MRC_FILE -outdir __HTML_DIR -add __SPOOL_DIR &> __RESULT_MHONARC");

open (IN, "__RESULT_MHONARC");

while (<IN>) {
    if (/$string/) { $flag = 0; last; }
}
close(IN);

if ($flag == 1) {
    system ("__MKNMZ_CMD __HTML_DIR -I __MKNMZRC_FILE -O __INDEX_DIR &> __RESULT_MKNMZ");
}
