Author: frankie Date: 2007-10-01 11:45:09 +0000 (Mon, 01 Oct 2007) New Revision: 1145
Modified: scripts/dgis-status.pl Log: Adding TODO file support Modified: scripts/dgis-status.pl =================================================================== --- scripts/dgis-status.pl 2007-10-01 09:34:10 UTC (rev 1144) +++ scripts/dgis-status.pl 2007-10-01 11:45:09 UTC (rev 1145) @@ -27,6 +27,7 @@ use Getopt::Std; use FileHandle; +use SVN::Client; use AptPkg::Config '$_config'; use AptPkg::System '$_system'; @@ -37,6 +38,9 @@ push @INC, $ENV{'HOME'}."/pkg-grass/scripts"; +my $svn_repo = "svn://svn.debian.org/pkg-grass"; +my $web_repo = "http://svn.debian.org/wsvn/pkg-grass"; + require "dgis-packages.inc"; my %wget = ( 'quiet' => 'wget --passive-ftp --quiet -O ','verbose' => 'wget --passive-ftp -O ' ); @@ -75,6 +79,18 @@ exit; } +sub GetSvnUrl { + my ($source_package,$file_name) = @_; + + eval { + my $client = SVN::Client->new(auth => [SVN::Client::get_simple_provider()]); + my $dirent = $client->ls("$svn_repo/packages/$source_package/trunk/debian/$file_name",'HEAD',1); + }; + return undef if $@; + return "$web_repo/packages/$source_package/trunk/debian/$file_name?op=file&rev=0&sc=0"; +} + + unless ($opt_o) { # Skip wget if -o option "only difference" for my $s ( keys %paths ) { unlink "$s.$sources" if -f "$s.$sources"; @@ -193,6 +209,7 @@ my $p_url = "<strong>$p</strong>"; my $tr_class = "class='green'"; my $pkg_url = $main::dgislist{$p}->{url}; + my $todo_url = &GetSvnUrl($p,'TODO'); if ( $dgishash{$p}->{stable} ne " " || $dgishash{$p}->{unstable} ne " " ) { $p_url .= " (<a href='http://packages.qa.debian.org/$p'>PTS</a>,"; } @@ -201,6 +218,7 @@ my $pkg_wnpp = $main::dgislist{$p}->{wnpp}; $p_url .= "<a href='http://bugs.debian.org/$pkg_wnpp'>WNPP</a>," if $pkg_wnpp; } + $p_url .= "<a href='$todo_url'>TODO</a>," if $todo_url; $p_url .= "<a href='$pkg_url'>UP</a>)" if $pkg_url; if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{stable} eq " " ) { $tr_class = "class='green'"; _______________________________________________ Pkg-grass-devel mailing list Pkg-grass-devel@lists.alioth.debian.org http://lists.alioth.debian.org/mailman/listinfo/pkg-grass-devel