#!/usr/bin/perl

$SLEEP = 300;

while (1) {
  if (system("./cmcheck.pl -aq > tmpfile") == 0) {
    system("cp -f tmpfile ../www/accounts.txt");
  }
  else {
    print "Warning: cmcheck failed\n";
  }
  sleep($SLEEP);
}