#!/usr/bin/perl
# 
# license: GPL v2 or later
# author: Andrew Avramenko <liks@altlinux.ru> Coyright (c) 2007
#	  ALT Linux Team

use lib "/home/liks/scripts.alt5";
use upstreamwatch;

my $upstreamwatch = new upstreamwatch;

if (($ARGV[0] eq "-h") || ($ARGV[0] eq "--help")) {
    usage();
}

if ($ARGV[0] eq "-f") {
    ($url,$version) = upstreamwatch::watchfileprocess("$ARGV[1]");
#    print ("URL=$url VERSION=$version, NAME=$name\n");
    ($url,$version) = upstreamwatch::process_watchline($url,$version,"");
    print ("$url\n");
}
else {
    print STDERR "Error: no watch file specified\n\n";
    usage();
}

sub usage
{
    print STDERR "uscan: [-f name.watch]\n\n";
    exit;
}
