Package: devscripts Version: 2.15.1 Tags: patch Example watchfile: version=3 http://sourceforge.net/projects/pcre/rss?limit=500 .*/pcre-(.*).tar.gz
uscan --report --watchfile watch --package pcre --upstream-version 8.36 Idea taken from "anitya" project. Signed-off-by: Dimitri John Ledkov <[email protected]> --- scripts/uscan.pl | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/scripts/uscan.pl b/scripts/uscan.pl index bd1a851..c22719a 100755 --- a/scripts/uscan.pl +++ b/scripts/uscan.pl @@ -985,12 +985,21 @@ sub process_watchline ($$$$$$) print STDERR "$progname debug: received content:\n$content\[End of received content]\n" if $debug; - if ($content =~ m%^<[?]xml%i && - $content =~ m%xmlns="http://s3.amazonaws.com/doc/2006-03-01/"%) { - # this is an S3 bucket listing. Insert an 'a href' tag - # into the content for each 'Key', so that it looks like html (LP: #798293) - print STDERR "$progname debug: fixing s3 listing\n" if $debug; - $content =~ s%<Key>([^<]*)</Key>%<Key><a href="$1">$1</a></Key>%g + if ($content =~ m%^<[?]xml%i) { + + if ($content =~ m%xmlns="http://s3.amazonaws.com/doc/2006-03-01/"%) { + # this is an S3 bucket listing. Insert an 'a href' tag + # into the content for each 'Key', so that it looks like html (LP: #798293) + print STDERR "$progname debug: fixing s3 listing\n" if $debug; + $content =~ s%<Key>([^<]*)</Key>%<Key><a href="$1">$1</a></Key>%g + } + + if ($content =~ m%xmlns:sf="https://sourceforge.net/api/sfelements.rdf#"%) { + # this is sourceforge.net xml listing. Insert an 'a href' tag + # into the content for each 'link', so that is looks like html + print STDERR "$progname debug: fixing sf listing\n" if $debug; + $content =~ s%<link>([^<]*)/download</link>%<link><a href="$1">$1</a></link>%g + } } # We need this horrid stuff to handle href=foo type -- 2.1.0 _______________________________________________ devscripts-devel mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel
