!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(value);
    setValue(or(firstIntAsString(ai1_cookiesToday()), "?"));
    int newInt = parseIntOpt(value);
    if (oldInt != 0 && newInt > oldInt)
      vmBus_send('newHomePageVisitors, newInt);
  }
}