Changeset 1574

Show
Ignore:
Timestamp:
08/23/06 20:36:55
Author:
miyagawa
Message:

check branch or trunk from the current revision using Trac

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/tools/chimps-smoker.pl

    r1452 r1574  
    1111 
    1212our $repo = "http://svn.bulknews.net/repos/plagger"; 
     13our $trac = "http://plagger.org/trac"; 
    1314our $file = "$ENV{HOME}/.plagger-smoke.yml"; 
    1415 
    …… 
    2021my $run; 
    2122while (++$config->{revision} <= $current) { 
    22     run_chimps($config->{revision}); 
     23    my $branch = get_branch($config->{revision}); 
     24    run_chimps($config->{revision}, $branch); 
    2325    $run++; 
    2426} 
    …… 
    3032 
    3133sub run_chimps { 
    32     my $revision = shift; 
     34    my($revision, $branch) = @_; 
    3335 
    3436    my $workdir  = tempdir(CLEANUP => 1); 
    …… 
    4244 
    4345    delete $ENV{LANG}; # svn doesn't grok LANG=ja_JP.UTF-8 
    44     system("svn co -r $revision $repo/trunk/plagger $checkout"); 
     46    system("svn co -r $revision $repo/$branch/plagger $checkout"); 
    4547    chdir $checkout; 
    4648 
    …… 
    6163    return; 
    6264} 
     65 
     66sub get_branch { 
     67    my $revision = shift; 
     68    my $diff = LWP::Simple::get("$trac/changeset/$revision?format=diff"); 
     69    $diff =~ m!^Index: (branches/[^/]+|trunk)/! or return $1; 
     70    return "trunk"; 
     71}