Unbusticate evalbot execution of gists

Chase the ever changing URL extraction scheme to access the raw gist.
Raku · Feb 26, 2015 · e683ad0 · e683ad0
1 parent e3a593d
commit e683ad0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/EvalbotExecuter.pm b/lib/EvalbotExecuter.pm
@@ -83,8 +83,8 @@ sub run {
     my ($program, $executer, $ename) = @_;
     if ($program =~ /^https:\/\/gist\.github\.com\/[^\/]+?\/\p{HexDigit}+$/) {
       my $page = `curl -s $program`;
-      $page =~ /<a\b[^>]+?\btitle="View Raw"[^>]+?\bhref="([^"]+)"/;
-      if ($1) { $program = decode_utf8 `curl -s $1` } else { return 'gist not found' };
+      $page =~ /<a\b[^>]+?\baria-label="View Raw"[^>]+?\bhref="([^"]+)"/;
+      if ($1) { $program = decode_utf8 `curl -s https://gist.github.com$1` } else { return 'gist not found' };
     } elsif ($program =~ /^https:\/\/github\.com\/([^\/]+\/[^\/]+)\/blob\/([^\/]+\/[^\/].*)$/) {
       my ($project, $file) = ($1, $2);
       my $page = `curl -s $program`;