##   Licensed to the Apache Software Foundation (ASF) under one or more
##   contributor license agreements.  See the NOTICE file distributed with
##   this work for additional information regarding copyright ownership.
##   The ASF licenses this file to You under the Apache License, Version 2.0
##   (the "License"); you may not use this file except in compliance with
##   the License.  You may obtain a copy of the License at
## 
##       http://www.apache.org/licenses/LICENSE-2.0
## 
##   Unless required by applicable law or agreed to in writing, software
##   distributed under the License is distributed on an "AS IS" BASIS,
##   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
##   See the License for the specific language governing permissions and
##   limitations under the License.

# 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;
    }
}