<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_u8gm9r1abf4km333uebd4gdi9l, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

concept CLotteryResult {
  S date;
  L<Int> numbers;
  S jackpot;
  
  [stdToString]
}

standardBot1 LotteryBot {
  init {
    dbIndexing(CLotteryResult, 'date);
    doEveryHourAndNow(r grabResults);
  }
  
  allServers {
    S lotteryURL = "https://www.lotteryusa.com/missouri/show-me-cash/";

    void grabResults enter {
      LotteryResult r = scrapeLotteryResults(loadPage(lotteryURL));
      if (r == null) ret with print("No lottery results!?");
      CLotteryResult lr = uniq(CLotteryResult, date := r.date);
      copyFields(r, lr);
      change();
      print("Grabbed: " + lr);
    }
    
    S renderResult(CLotteryResult r) {
      ret formatCSVLine(r.date, joinWithComma(r.numbers), r.jackpot);
    }
  }
  
  processSimplified {
    optPar Message msg;
    Message.Attachment attachment = msg == null ? null : first(msg.getAttachments());
    if (attachment != null && authed(_)) {
      File file = prepareCacheProgramFile(guildID + "/" + attachment.getFileName());
      print("Downloading attachment: " + file);
      deleteFile(file);
      if (!attachment.download(file)) ret "Couldn't download attachment";
      S contents = loadTextFile(file);
      if (!startsWith(s, "\"")) ret "Attachment is not a CSV text file";
      LLS l = parseCSV_unquote_noHeader(contents);
      Set<S> lengths = mapToSet(lambda1 l, l);
      if (neq(lengths, litset(3))) ret "CSV does not have 3 columns throughout";
      for (LS line : l) {
        S date = first(line);
        if (!regexpMatches(regexpYMDminus(), date)) ret "Bad date: " + backtickQuote(date);
        CLotteryResult lr = uniq(CLotteryResult, +date);
        cset(lr, numbers := map parseInt(tok_splitAtComma(second(line))), jackpot := third(line));
      }
      
      ret "OK, " + nResults(l) + " imported";
    }
    
    S s0 = s;
    s = dropMyPrefixOpt(s);
    
    if "clear lottery results" {
      try answer checkAuth(_);
      ret "OK, " + nResults(deleteConcepts(CLotteryResult)) + " deleted";
    }

    if "lottery|lottery results|show me cash" {
      optPar long channelID;
      L<CLotteryResult> l = sortedByFieldDesc date(list(CLotteryResult));
      if (empty(l)) ret "No lottery results gathered yet";
      S date1 = first(l).date;
      S text = mapToLines_rtrim(l, lambda1 renderResult);
      uploadFileInChannel(channelID,
        toUtf8(text),
        "lottery-" + date1 + ".txt", null, null);
      null;
    }
    
    if null (s = dropMyPrefixOrNull(s0)) null;
    
    if "help" {
      ret [[
@me `lottery` - download latest lottery results as CSV
@me `clear lottery results` - delete all lottery results

To add lottery results, just upload a CSV file.
]].replace("@me", atSelf());
    }
  }
}