!7

cmodule HomePageVisitors > DynBigNumber {
  start {
    setDescription("HOME PAGE VISITORS");
    ownTimer(doEveryAndNow(60000, r actualUpdate));
  }
  
  void actualUpdate {
    int oldInt = parseIntOpt(str(value));
    S value = or(firstIntAsString(ai1_cookiesToday()), "?");
    setValue(value);
    int newInt = parseIntOpt(str(value));
    S s = n2_generic(value, " Visitor");
    setModuleName(s + " on Home Page");
    if (oldInt != 0 && newInt > oldInt) {
      vmBus_send('newHomePageVisitors, newInt);
      if (newInt/10 > oldInt/10)
        vmBus_send sayToUser(s + " on the home page!");
    }
  }
}