!7

// Make code smaller
!include once #1019769
set flag NoSwitchableFields.
set flag NoMenuItems.

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