share/msysGit/googlecode-changes.perl

   1 #!/usr/bin/perl
   2
   3 if (@ARGV != 1) {
   4         print STDERR <<EOF;
   5 Usage: <script> <date-or-commit>
   6 EOF
   7         exit(1);
   8 }
   9
  10 use Date::Parse;
  11 use HTML::Entities;
  12
  13 my $since = `git show -s --format=%ct $ARGV[0]^0 2> /dev/null`;
  14 chomp($since);
  15 if ($since eq '') {
  16         $since = str2time($ARGV[0]);
  17 }
  18
  19 $url = 'http://code.google.com/p/msysgit/updates/list?num=50&start=';
  20
  21 my ($offset, $date, $issue, $oneline);
  22
  23 sub get_fixes ($) {
  24         $offset = shift;
  25
  26         open IN, 'curl -s "' . $url . $offset . '" |';
  27         while (<IN>) {
  28                 if (/<span class="date below-more" title="([^"]+)"/) {
  29                         $date = str2time($1);
  30                         if ($date < $since) {
  31                                 close IN;
  32                                 return 0;
  33                         }
  34                 }
  35                 elsif (/<a class="ot-issue-link" [^>]*>([^<]+)</) {
  36                         $issue = $1;
  37                         $_ = <IN>;
  38                         if (/^\s*\((.+)\) Status changed/) {
  39                                 $oneline = decode_entities($1);
  40                                 while (<IN>) {
  41                                         if (/^<\/div>/) {
  42                                                 last;
  43                                         }
  44                                         if (/<span class="ot-issue-field-value">Fixed<\/span>/) {
  45                                                 print "Issue $issue ($oneline) was fixed\n";
  46                                         }
  47                                 }
  48                         }
  49                 }
  50         }
  51         close IN;
  52         return 1;
  53 }
  54
  55 for (my $off = 0; $off < 250 && get_fixes($off); $off += 50) {
  56         # do nothing
  57 }