Get the last events

* technically this isn't crawling all events
- If someone complains that the last force push event is outside
the last event page and within the timeframe view and doesn't want
to use a tighter timeframe, I can fix this code to actually crawl
all of the events (the code is able to do so fairly trivially),
but I'm hoping on average that this shortcut is ok.

check-pull-requests.sh

@@ -38,15 +38,46 @@ cat "$pulls" | jq -c '.[]'|jq -c -r '{
  base_sha: .base.sha,
  clone_url: .head.repo.clone_url,
  merge_commit_sha: .merge_commit_sha,
- updated_at: .updated_at,
+ created_at: .created_at,
+ issue_url: .issue_url,
  commits_url: .commits_url,
  comments_url: .comments_url
  } | @base64' > "$escaped"
 
+get_created_from_events() {
+  rm -f "$headers"
+  created_at=$(curl -s -S \
+    -H "Authorization: token $GITHUB_TOKEN" \
+    --header "Content-Type: application/json" \
+    -D "$headers" \
+    "$1" |
+    jq -M -r '[ .[]|select (.event=="head_ref_force_pushed") ][-1].created_at')
+  if [ "$created_at" = "null" ]; then
+    created_time=0
+  else
+    created_time=$(date_to_epoch $created_at)
+  fi
+  if [ -e "$headers" ]; then
+    next_url=$(perl -ne 'next unless s/^Link: //;s/,\s+/\n/g; print "$1" if /<(.*)>; rel="last"/' $headers)
+    rm -f "$headers"
+    if [ -n "$next_url" ]; then
+      other_time=$(get_created_from_events "$next_url")
+      if [ "$created_time" -lt "$other_time" ]; then
+        created_time=$other_time
+      fi
+    fi
+  fi
+  echo "$created_time"
+}
+
 for a in $(cat "$escaped"); do
   echo "$a" | base64 --decode | jq -r . > $pull
-  updated_at=$(cat $pull | jq -r .updated_at)
-  age=$(( $start - $(date_to_epoch $updated_at) ))
+  issue_url=$(cat $pull | jq -r .issue_url)
+  created_at=$(get_created_from_events "${issue_url}/events")
+  if [ "$created_at" -eq 0 ]; then
+    created_at=$(date_to_epoch $(cat $pull | jq -r .created_at))
+  fi
+  age=$(( $start - $created_at ))
   if [ $age -gt $time_limit ]; then
     continue
   fi