# Check files.xml
# Currently only checks the order

use strict;
open IN,"<files.xml" or die;
my $last;
while(<IN>){
    if (m!<location>([^<]+)</location>!) {
        my $url=$1;
        $url =~ s!https?://svn.apache.org/repos/asf/!!;
        $url =~ s!https?://!!;
        $url =~ s!\.apache\.org!!;
        $url =~ s!git-wip-us/repos/asf\?p=!!;
        print "$url should come before $last\n" if $url le $last;
        $last=$url;
    }
}