diff -pruN 2.25.15/Makefile.common 2.25.16/Makefile.common --- 2.25.15/Makefile.common 2025-04-16 18:08:37.000000000 +0000 +++ 2.25.16/Makefile.common 2025-07-20 08:12:36.000000000 +0000 @@ -4,6 +4,7 @@ GEN_MAN1S := bts.1 build-rdeps.1 chdist. uscan.1 salsa.1 \ tagpending.1 origtargz.1 transition-check.1 who-permits-upload.1 \ git-deborig.1 hardening-check.1 +GEN_MAN5S := PREFIX = /usr BINDIR = $(PREFIX)/bin diff -pruN 2.25.15/debian/changelog 2.25.16/debian/changelog --- 2.25.15/debian/changelog 2025-06-16 07:49:57.000000000 +0000 +++ 2.25.16/debian/changelog 2025-07-20 08:32:11.000000000 +0000 @@ -1,3 +1,38 @@ +devscripts (2.25.16) experimental; urgency=medium + + [ Mechtilde ] + * Improved the German translation of the manpage for the tool bts + + [ Nick Brown ] + * uscan: correct setting of request headers + + [ Hugh McMaster ] + * uscan: + - uscan/Downloader.pm: Clone main git repository and submodules separately + - uscan/git.pm: Refactor code to clone versionless repositories with or + without submodules and refactor '$newversion' generation + - test/test_uscan_git: Update submodule test names + - test/test_uscan_git: Add tests to clone from HEAD with submodules + + [ Yadd ] + * salsa: + - Use current repository if project is missing (check_repo, del_repo, + forks, last_ci_status, and merge_requests) and add "path" subcommand + - Add update_watch5 command to update debian/watch to version 5 + * uscan + - Add more git debug + - Add recommended dependency to libio-string-perl (used by uscan/http) + - Better uscan test framework based on LWP::Protocol::PSGI + - Add new debian/watch format: version 5 + * uscan: force Version-Schema to "group" for main watchsource when + Version-Schema is "checksum" + * Split uscan manpage and create debian-watch(5) [version 5] and + debian-watch-4(5) for previous formats + - Add liblwp-protocol-psgi-perl in autopkgtest dependencies + * Update French translation + + -- Yadd Sun, 20 Jul 2025 10:32:11 +0200 + devscripts (2.25.15) unstable; urgency=medium [ Yadd ] diff -pruN 2.25.15/debian/control 2.25.16/debian/control --- 2.25.15/debian/control 2025-05-07 23:26:41.000000000 +0000 +++ 2.25.16/debian/control 2025-07-20 08:32:11.000000000 +0000 @@ -29,8 +29,10 @@ Build-Depends: libfile-touch-perl , libgit-wrapper-perl , libgitlab-api-v4-perl (>= 0.13) , + libio-string-perl , libjson-perl , liblist-compare-perl , + liblwp-protocol-psgi-perl , libmoo-perl , libstring-shellquote-perl , libtest-output-perl , @@ -100,6 +102,7 @@ Recommends: libdistro-info-perl, libencode-locale-perl, libgit-wrapper-perl, + libio-string-perl, libjson-perl, liblist-compare-perl, libstring-shellquote-perl, diff -pruN 2.25.15/debian/manpages 2.25.16/debian/manpages --- 2.25.15/debian/manpages 2024-09-09 12:40:17.000000000 +0000 +++ 2.25.16/debian/manpages 2025-07-20 08:12:37.000000000 +0000 @@ -3,3 +3,4 @@ po4a/de/*.5 po4a/fr/*.1 po4a/fr/*.5 scripts/*.1 +scripts/*.5 diff -pruN 2.25.15/debian/tests/control 2.25.16/debian/tests/control --- 2.25.15/debian/tests/control 2025-05-07 23:26:41.000000000 +0000 +++ 2.25.16/debian/tests/control 2025-07-20 08:32:11.000000000 +0000 @@ -9,7 +9,9 @@ Depends: gnupg, libdistro-info-perl, libgitlab-api-v4-perl, + libio-string-perl, libjson-perl, + liblwp-protocol-psgi-perl, libtest-output-perl, libwww-perl, lzip, diff -pruN 2.25.15/lib/Devscripts/Salsa/Config.pm 2.25.16/lib/Devscripts/Salsa/Config.pm --- 2.25.15/lib/Devscripts/Salsa/Config.pm 2025-01-28 09:12:47.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/Config.pm 2025-07-20 08:12:37.000000000 +0000 @@ -27,7 +27,7 @@ foreach (qw( irker disable_irker irker_host irker_port kgb disable_kgb kgb_options tagpending disable_tagpending - rename_head source_branch dest_branch + rename_head source_branch dest_branch debian_branch enable_remove_branch disable_remove_branch build_timeout ci_config_path schedule_desc schedule_ref schedule_cron schedule_tz schedule_enable @@ -315,7 +315,8 @@ use constant keys => [ # Branch ['rename-head!', 'SALSA_RENAME_HEAD', 'bool'], ['source-branch=s', 'SALSA_SOURCE_BRANCH', undef, 'master'], - ['dest-branch=s', 'SALSA_DEST_BRANCH', undef, 'debian/latest'], + ['debian-branch=s', 'SALSA_DEBIAN_BRANCH'], + ['dest-branch=s', 'SALSA_DEST_BRANCH', undef, 'debian/latest'], [ 'enable-remove-source-branch!', undef, @@ -405,7 +406,7 @@ use constant rules => [ return (0, "No command given, aborting") unless (@ARGV); $_[0]->command(shift @ARGV); return (0, "Malformed command: " . $_[0]->command) - unless ($_[0]->command =~ /^[a-z_]+$/); + unless ($_[0]->command =~ /^[a-z_][a-z0-9_]+$/); return 1; }, sub { diff -pruN 2.25.15/lib/Devscripts/Salsa/check_repo.pm 2.25.16/lib/Devscripts/Salsa/check_repo.pm --- 2.25.15/lib/Devscripts/Salsa/check_repo.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/check_repo.pm 2025-07-20 08:19:51.000000000 +0000 @@ -31,8 +31,11 @@ sub _check_repo { my $res = 0; my @fail; unless (@reponames or $self->config->all or $self->config->all_archived) { - ds_warn "Usage $0 check_repo <--all|--all-archived|names>"; - return 1; + @reponames = ($self->localPath2projectPath); + unless (@reponames) { + ds_warn "Usage $0 check_repo <--all|--all-archived|names>"; + return 1; + } } if (@reponames and $self->config->all) { ds_warn "--all with a reponame makes no sense"; diff -pruN 2.25.15/lib/Devscripts/Salsa/del_repo.pm 2.25.16/lib/Devscripts/Salsa/del_repo.pm --- 2.25.15/lib/Devscripts/Salsa/del_repo.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/del_repo.pm 2025-07-20 08:19:51.000000000 +0000 @@ -8,6 +8,7 @@ use Moo::Role; sub del_repo { my ($self, $reponame) = @_; + $reponame ||= $self->localPath2projectPath; unless ($reponame) { ds_warn "Project name or path is missing"; return 1; diff -pruN 2.25.15/lib/Devscripts/Salsa/forks.pm 2.25.16/lib/Devscripts/Salsa/forks.pm --- 2.25.15/lib/Devscripts/Salsa/forks.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/forks.pm 2025-07-20 08:19:51.000000000 +0000 @@ -8,6 +8,7 @@ use Moo::Role; sub forks { my ($self, @reponames) = @_; my $res = 0; + @reponames = ($self->localPath2projectPath) unless @reponames; unless (@reponames) { ds_warn "Project name is missing"; return 1; diff -pruN 2.25.15/lib/Devscripts/Salsa/last_ci_status.pm 2.25.16/lib/Devscripts/Salsa/last_ci_status.pm --- 2.25.15/lib/Devscripts/Salsa/last_ci_status.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/last_ci_status.pm 2025-07-20 08:19:51.000000000 +0000 @@ -13,8 +13,11 @@ use constant FAILED => 'failed'; sub last_ci_status { my ($self, @repos) = @_; unless (@repos or $self->config->all or $self->config->all_archived) { - ds_warn "Usage $0 ci_status <--all|--all-archived|names>"; - return 1; + @repos = ($self->localPath2projectPath); + unless (@repos) { + ds_warn "Usage $0 ci_status <--all|--all-archived|names>"; + return 1; + } } if (@repos and $self->config->all) { ds_warn "--all with a project name makes no sense"; diff -pruN 2.25.15/lib/Devscripts/Salsa/merge_requests.pm 2.25.16/lib/Devscripts/Salsa/merge_requests.pm --- 2.25.15/lib/Devscripts/Salsa/merge_requests.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/merge_requests.pm 2025-07-20 08:19:51.000000000 +0000 @@ -8,6 +8,7 @@ use Moo::Role; sub merge_requests { my ($self, @reponames) = @_; my $res = 1; + @reponames = ($self->localPath2projectPath) unless @reponames; unless (@reponames) { ds_warn "project name is missing"; return 1; diff -pruN 2.25.15/lib/Devscripts/Salsa/path.pm 2.25.16/lib/Devscripts/Salsa/path.pm --- 2.25.15/lib/Devscripts/Salsa/path.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/path.pm 2025-07-20 08:19:51.000000000 +0000 @@ -0,0 +1,17 @@ +package Devscripts::Salsa::path; + +use strict; +use Devscripts::Output; +use Dpkg::IPC; +use Moo::Role; + +sub path { + my ($self, $path) = @_; + if (my $remote = $self->localPath2projectPath($path)) { + print "$remote\n"; + return 0; + } + return ds_die "Not found"; +} + +1; diff -pruN 2.25.15/lib/Devscripts/Salsa/update_watch5.pm 2.25.16/lib/Devscripts/Salsa/update_watch5.pm --- 2.25.15/lib/Devscripts/Salsa/update_watch5.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa/update_watch5.pm 2025-07-20 08:12:37.000000000 +0000 @@ -0,0 +1,101 @@ +package Devscripts::Salsa::update_watch5; + +use strict; +use Devscripts::Output; +use Devscripts::Uscan::Version4; +use Dpkg::IPC; +use MIME::Base64; +use Moo::Role; +use File::Temp 'tempdir'; + +with "Devscripts::Salsa::Repo"; + +sub update_watch5 { + my ($self, @reponames) = @_; + my $ret = 0; + my @fail; + unless (@reponames or $self->config->all or $self->config->all_archived) { + ds_warn "Usage $0 check_repo <--all|--all-archived|names>"; + return 1; + } + if (@reponames and $self->config->all) { + ds_warn "--all with a reponame makes no sense"; + return 1; + } + if (@reponames and $self->config->all_archived) { + ds_warn "--all-archived with a reponame makes no sense"; + return 1; + } + my @repos = $self->get_repo(0, @reponames); + return @repos unless (ref $repos[0]); + my $wdir = tempdir(CLEANUP => 1); + my $i = 0; + foreach my $repo (@repos) { + if ($ret and !$self->config->no_fail) { + return $ret; + } + my ($id, $name) = @$repo; + unless ($id) { + ds_debug $@; + ds_warn "Project $name not found"; + $ret++; + next; + } + my $project = eval { $self->api->project($id) }; + unless ($project) { + ds_debug $@; + ds_warn "Project $name not found"; + $ret++; + next; + } + ds_debug "Get debian/watch from $name ($id)"; + my $wbranch + = $self->config->debian_branch || $project->{default_branch}; + my $res = $self->api->file($id, 'debian/watch', { ref => $wbranch }); + + unless ($res) { + ds_warn + "Project $name has no debian/watch file in branch $wbranch"; + $ret++; + next; + } + my $content = decode_base64($res->{content}); + unless ($content) { + ds_warn "Empty debian/watch file in branch $wbranch"; + $ret++; + next; + } + if ($content =~ /Version:\s+5/s) { + ds_warn "Project $name already updated"; + next; + } + $i++; + open my $fh, '>', "$wdir/$i" or die $!; + print $fh $content; + $fh->close; + my $watch5 = Devscripts::Uscan::Version4->new("$wdir/$i"); + unless ($watch5) { + ds_warn "Unable to transform debian/watch from $name ($id)"; + $ret++; + next; + } else { + local $/ = undef; + $content = <$watch5>; + } + $watch5->close; + $content =~ s/(\r?\n){2}$/$1/s; + + $res = $self->api->edit_file( + $id, + 'debian/watch', + { + branch => $wbranch, + commit_message => + 'Update debian/watch to version 5 using salsa update_watch5', + content => $content, + }); + } + return $ret; +} + +1; diff -pruN 2.25.15/lib/Devscripts/Salsa.pm 2.25.16/lib/Devscripts/Salsa.pm --- 2.25.15/lib/Devscripts/Salsa.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Salsa.pm 2025-07-20 08:19:51.000000000 +0000 @@ -31,6 +31,7 @@ BEGIN { use Moo; use File::Basename; use File::Path qw(make_path); +use Dpkg::IPC; # Command aliases use constant cmd_aliases => { @@ -307,6 +308,38 @@ sub id2username { return $res; } +sub localPath2projectPath { + my ($self, $path) = @_; + if (defined $path and !-d $path) { + ds_die "$path isn't a directory"; + return; + } + $path ||= '.'; + unless (-e "$path/.git") { + ds_verbose 'Not a git repository'; + return; + } + my $out; + spawn( + exec => [qw(git remote -v)], + chdir => $path, + to_string => \$out, + wait_child => 1, + nocheck => 0, + ); + if ($@) { + ds_verbose "git error: $@"; + return; + } + my $base = $self->config->git_server_url; + + if ($out =~ /\Q$base\E(.*?)\.git/) { + return $1; + } + ds_verbose "$base not found in git remote"; + return; +} + =item B: convert group name to id =cut diff -pruN 2.25.15/lib/Devscripts/Uscan/Config.pm 2.25.16/lib/Devscripts/Uscan/Config.pm --- 2.25.15/lib/Devscripts/Uscan/Config.pm 2024-11-23 10:24:47.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/Config.pm 2025-07-20 08:12:37.000000000 +0000 @@ -25,7 +25,7 @@ use Moo; extends 'Devscripts::Config'; -our $CURRENT_WATCHFILE_VERSION = 4; +our $CURRENT_WATCHFILE_VERSION = 5; use constant default_user_agent => "Debian uscan" . ($main::uscan_version ? " $main::uscan_version" : ''); @@ -113,6 +113,7 @@ use constant keys => [ ['uversion|upstream-version=s'], ['vcs-export-uncompressed', 'USCAN_VCS_EXPORT_UNCOMPRESSED', 'bool'], ['watchfile=s'], + ['update-watchfile', undef, 'bool', 0], # 2.3 - More complex options # http headers (#955268) ['http-header=s', 'USCAN_HTTP_HEADER', undef, sub { {} }], diff -pruN 2.25.15/lib/Devscripts/Uscan/Downloader.pm 2.25.16/lib/Devscripts/Uscan/Downloader.pm --- 2.25.15/lib/Devscripts/Uscan/Downloader.pm 2025-05-07 23:26:41.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/Downloader.pm 2025-07-20 08:12:37.000000000 +0000 @@ -188,17 +188,20 @@ sub download ($$$$$$$$) { my ($infodir, $attr_file, $attr_bkp); if ($self->git_export_all) { # override any export-subst and export-ignore attributes + uscan_debug 'git rev-parse --git-path info/'; spawn( exec => [qw|git rev-parse --git-path info/|], to_string => \$infodir, ); chomp $infodir; mkdir $infodir unless -e $infodir; + uscan_debug 'git rev-parse --git-path info/attributes'; spawn( exec => [qw|git rev-parse --git-path info/attributes|], to_string => \$attr_file, ); chomp $attr_file; + uscan_debug 'git rev-parse --git-path info/attributes-uscan'; spawn( exec => [qw|git rev-parse --git-path info/attributes-uscan|], @@ -230,29 +233,33 @@ sub download ($$$$$$$$) { } } } else { + # clone main repository if ($self->gitrepo_state == 0) { my @opts = (); - if ($optref->git->{modules}) { - foreach my $m (@{ $optref->git->{modules} }) { - push(@opts, "--recurse-submodules=$m"); - } - } else { - push(@opts, '--bare'); - } - $self->gitrepo_state(2); + push(@opts, '--bare') if not $optref->git->{modules}; + if ($optref->git->{mode} eq 'shallow') { my $tag = $gitref; $tag =~ s#^refs/(?:tags|heads)/##; - - if ($optref->git->{modules}) { - push(@opts, '--shallow-submodules'); - } push(@opts, '--depth=1', '-b', $tag); $self->gitrepo_state(1); + } else { + $self->gitrepo_state(2); } uscan_exec('git', 'clone', @opts, $base, "$destdir/$gitrepo_dir"); } + # clone submodules + if ($optref->git->{modules}) { + my @opts = qw/update --init --recursive/; + push(@opts, '--depth=1') if $self->gitrepo_state == 1; + push(@opts, '--'); + foreach my $m (@{ $optref->git->{modules} }) { + push(@opts, "$m"); + } + chdir "$destdir/$gitrepo_dir"; + uscan_exec('git', 'submodule', @opts); + } chdir "$destdir/$gitrepo_dir" or @@ -266,6 +273,7 @@ sub download ($$$$$$$$) { for (my $tmp, my $i = 0 ; $i < @gitpaths ; $i++) { my @cmd = ("git", "rev-parse", "--git-path", ${ gitpaths [$i] }); + uscan_debug join ' ', @cmd; spawn( exec => [@cmd], to_string => \$tmp, @@ -274,6 +282,8 @@ sub download ($$$$$$$$) { push(@{ $arr_refs[$i] }, split(/\n/, $tmp)); if ($optref->git->{modules}) { + uscan_debug 'git submodule --quiet foreach ' + . join(' ', @cmd); spawn( exec => ['git', 'submodule', '--quiet', 'foreach', @cmd], diff -pruN 2.25.15/lib/Devscripts/Uscan/Output.pm 2.25.16/lib/Devscripts/Uscan/Output.pm --- 2.25.15/lib/Devscripts/Uscan/Output.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/Output.pm 2025-07-20 08:12:37.000000000 +0000 @@ -13,11 +13,16 @@ our @EXPORT = ( )); # ACCESSORS -our ($dehs, $dehs_tags, $dehs_start_output, $dehs_end_output, $found) - = (0, {}, 0, 0); +our ($dehs, $dehs_tags, $dehs_start_output, $dehs_end_output, $found); +reset(); our $progname = basename($0); +sub reset { + ($dehs, $dehs_tags, $dehs_start_output, $dehs_end_output, $found) + = (0, {}, 0, 0); +} + sub printwarn_raw { my ($msg, $w) = @_; if ($w or $dehs) { diff -pruN 2.25.15/lib/Devscripts/Uscan/Utils.pm 2.25.16/lib/Devscripts/Uscan/Utils.pm --- 2.25.15/lib/Devscripts/Uscan/Utils.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/Utils.pm 2025-07-20 08:12:37.000000000 +0000 @@ -28,12 +28,10 @@ sub fix_href ($) { return $href; } -sub recursive_regex_dir ($$$$$$) { +sub recursive_regex_dir ($$$$$) { # If return '', parent code to cause return 1 - my ($line, $base, $dirversionmangle, $watchfile, $lineptr, - $download_version) - = @_; + my ($line, $base, $dirversionmangle, $watchfile, $download_version) = @_; $base =~ m%^(\w+://[^/]+)/(.*)$%; my $site = $1; @@ -47,7 +45,7 @@ sub recursive_regex_dir ($$$$$$) { if ($dirpattern =~ /\(.*\)/) { uscan_verbose "dir=>$dir dirpattern=>$dirpattern"; my $newest_dir = newest_dir($line, $site, $dir, $dirpattern, - $dirversionmangle, $watchfile, $lineptr, $download_version); + $dirversionmangle, $watchfile, $download_version); uscan_verbose "newest_dir => '$newest_dir'"; if ($newest_dir ne '') { $dir .= "$newest_dir"; @@ -63,12 +61,12 @@ sub recursive_regex_dir ($$$$$$) { } # very similar to code above -sub newest_dir ($$$$$$$$) { +sub newest_dir ($$$$$$$) { # return string $newdir as success # return string '' if error, to cause grand parent code to return 1 my ($line, $site, $dir, $pattern, $dirversionmangle, $watchfile, - $lineptr, $download_version) + $download_version) = @_; my ($newdir); uscan_verbose "Requesting URL:\n $site$dir"; @@ -444,19 +442,18 @@ sub safe_replace($$) { } # call this as -# if mangle($watchfile, \$line, 'uversionmangle:', +# if mangle($watchfile, 'uversionmangle:', # \@{$options{'uversionmangle'}}, \$version) { # return 1; # } -sub mangle($$$$$) { - my ($watchfile, $lineptr, $name, $rulesptr, $verptr) = @_; +sub mangle($$$$) { + my ($watchfile, $name, $rulesptr, $verptr) = @_; foreach my $pat (@{$rulesptr}) { if (!safe_replace($verptr, $pat)) { uscan_warn "In $watchfile, potentially" . " unsafe or malformed $name" . " pattern:\n '$pat'" - . " found. Skipping watchline\n" - . " $$lineptr"; + . " found. Skipping watchSource\n"; return 1; } uscan_debug "After $name $$verptr"; diff -pruN 2.25.15/lib/Devscripts/Uscan/Version4.pm 2.25.16/lib/Devscripts/Uscan/Version4.pm --- 2.25.15/lib/Devscripts/Uscan/Version4.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/Version4.pm 2025-07-20 08:12:37.000000000 +0000 @@ -0,0 +1,256 @@ +package Devscripts::Uscan::Version4; + +use strict; +use Devscripts::Uscan::Config; +use Devscripts::Uscan::Output; +use Devscripts::Uscan::Config; +use IO::String; + +my %order = ( + Component => 1, + Source => 2, + 'Version-Regex' => 3, +); + +# Prepare attributs name changes between version 4 and version 5 +our %RENAMED = (); + +sub new { + my ($class, $file, $opt) = @_; + local $/ = "\n"; + my ($WATCH); + unless (open $WATCH, '<', $file) { + uscan_die "could not open $file: $!"; + } + my ($newContent, $watch_version); + my $comments = ''; + + # Taken from uscan 2.21.6 + while (<$WATCH>) { + my $res = {}; + if (s/^\s*\#/#/) { + $comments .= $_; + next; + } + next if /^\s*$/; + s/^\s*//; + my ($base, $filepattern, $lastversion, $action); + + CHOMP: + + # Reassemble lines split using \ + chomp; + if (s/(? 3) { + + # drop leading \s only if version 4 + my $nextline = <$WATCH>; + $nextline =~ s/^\s*//; + $_ .= $nextline; + } else { + $_ .= <$WATCH>; + } + goto CHOMP; + } + + # "version" must be the first field + if (!$watch_version) { + + # Looking for "version" field. + if (/^version\s*=\s*(\d+)(\s|$)/) { # Found + $watch_version = $1; + + # Note that version=1 watchfiles have no "version" field so + # authorizated values are >= 2 and <= CURRENT_WATCHFILE_VERSION + if ($watch_version < 2 or $watch_version > 4) { + # "version" field found but has no authorizated value + uscan_warn "$file version number is unrecognised"; + } + + # Next line + next; + } elsif (/^Version: \d+$/) { + die "$file seems to be already updated, aborting"; + } + + # version=1 is deprecated + else { + $watch_version = 1; + } + } + # "version" is fixed, parsing lines now + + # VERSION 1 + if ($watch_version == 1) { + # Handle shell \\ -> \ + s/\\\\/\\/g if $watch_version == 1; + my ($site, $dir); + ($site, $dir, $filepattern, $lastversion, $action) = split ' ', + $_, 4; + if ( !$lastversion + or $site =~ /\(.*\)/ + or $dir =~ /\(.*\)/) { + uscan_warn <{'User-Agent'} = $1; + } + my @opts = sort split /,/, $opts; + foreach my $opt (@opts) { + next unless ($opt =~ /\S/); + uscan_debug "Parsing $opt"; + unless ($opt =~ /^\s*([\w\-]+)(?:\s*=\s*(.*?))?\s*$/) { + uscan_warn "Unable to parse '$opt', skipping"; + next; + } + my ($k, $v) = ($1, $2); + $k = ucfirst $k; + $k =~ s/-(.)/'-'.uc($1)/ge; + $res->{$k} = defined $v ? $v : 'yes'; + } + } + ($base, $filepattern, $lastversion, $action) = split /\s+/, $_, 4; + if ($base =~ s%/([^/]*(?:\@.*\@|\([^/]*\))[^/]*)$%/%) { + + # Last component of $base has a pair of parentheses, so no + # separate filepattern field; we remove the filepattern from the + # end of $base and rescan the rest of the line + $filepattern = $1; + (undef, $lastversion, $action) = split /\s+/, $_, 3; + } + } + # End: Taken form uscan 2.21.6 + + if (defined $lastversion) { + if ($lastversion =~ m/^(?:group|checksum|ignore)$/) { + $res->{'Version-Schema'} = $lastversion; + } elsif ($lastversion eq 'debian') { + } elsif ($lastversion eq 'prev') { + $res->{'Version-Schema'} = 'previous'; + } else { + $res->{'Version-Constraint'} = $lastversion; + } + } + $res->{Source} = $base; + $res->{'Version-Regex'} = $filepattern + if defined $filepattern and $filepattern ne 'debian'; + $res->{'Update-Script'} = $action if defined $action; + # Line was split, storing it now + $newContent .= $comments . join( + "\n", + map { ($RENAMED{ lc $_ } || $_) . ": $res->{$_}" } sort { + $order{$a} ? ($order{$b} ? ($order{$a} <=> $order{$b}) : -1) + : $order{$b} ? 1 + : $a cmp $b + } keys %$res + ) . "\n\n"; + $comments = ''; + } + + close $WATCH or uscan_warn "problems reading $file: $!"; + + $newContent =~ s/\n\n$/\n/s; + $newContent + = "Version: " + . $Devscripts::Uscan::Config::CURRENT_WATCHFILE_VERSION + . "\n\n$newContent"; + my $self = IO::String->new($newContent); + uscan_verbose "File $file converted into << ==EOF==\n$newContent\n==EOF=="; + return $self; +} + +1; +__END__ + +=pod + +=head1 NAME + +Devscripts::Uscan::Version4 - convert on-the-fly old formatted debian/watch to format 5 + +=head1 SYNOPSIS + + use Devscripts::Uscan::Version4; + my $filehandle = Devscripts::Uscan::Version4->new("debian/watch"); + print while (<$filehandle>); + +=head1 DESCRIPTION + +Uscan class to convert on the fly a old formatted debian/watch. + +=head2 Functioning + +Devscripts::Uscan::Version4::new() reads the given watchfile, transform it and +returns a L object. + +=head1 SEE ALSO + +L, L + +=head1 AUTHOR + +Xavier Guimard Eyadd@debian.orgE. + +=head1 COPYRIGHT AND LICENSE + +Xavier Guimard + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +=cut diff -pruN 2.25.15/lib/Devscripts/Uscan/WatchFile.pm 2.25.16/lib/Devscripts/Uscan/WatchFile.pm --- 2.25.15/lib/Devscripts/Uscan/WatchFile.pm 2025-05-11 09:23:11.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/WatchFile.pm 2025-07-20 08:12:37.000000000 +0000 @@ -1,7 +1,7 @@ =head1 NAME -Devscripts::Uscan::WatchFile - watchfile object for L +Devscripts::Uscan::WatchFile - watchsources object for L =head1 SYNOPSIS @@ -35,7 +35,7 @@ Uscan class to parse watchfiles. =head2 new() I<(Constructor)> -Parse watch file and creates L objects for +Parse watch file and creates L objects for each line. =head3 Required parameters @@ -56,7 +56,7 @@ each line. =over -=item watchlines: ref to the array that contains watchlines objects +=item watchSources ref to the array that contains watchSources objects =item watch_version: format version of the watchfile @@ -64,11 +64,11 @@ each line. =head2 process_lines() -Method that launches Devscripts::Uscan::WatchLine::process() on each watchline. +Method that launches Devscripts::Uscan::WatchSource::process() on each watchSource. =head1 SEE ALSO -L, L, L, +L, L, L, L =head1 AUTHOR @@ -97,19 +97,14 @@ package Devscripts::Uscan::WatchFile; use strict; use Devscripts::Uscan::Downloader; use Devscripts::Uscan::Output; -use Devscripts::Uscan::WatchLine; +use Devscripts::Uscan::WatchSource; use Dpkg::Version; use File::Copy qw/copy move/; use List::Util qw/first/; use Moo; -use constant { - ANY_VERSION => '(?:[-_]?[Vv]?(\d[\-+\.:\~\da-zA-Z]*))', - ARCHIVE_EXT => - '(?i)(?:\.(?:tar\.xz|tar\.bz2|tar\.gz|tar\.zstd?|zip|tgz|tbz|txz))', - DEB_EXT => '(?:[\+~](debian|dfsg|ds|deb)(\.)?(\d+)?$)', -}; -use constant SIGNATURE_EXT => ARCHIVE_EXT . '(?:\.(?:asc|pgp|gpg|sig|sign))'; +with 'Devscripts::Uscan::WatchSource::Parser', + 'Devscripts::Uscan::WatchSource::Transform'; # Required new() parameters has config => (is => 'rw', required => 1); @@ -150,7 +145,9 @@ has origcount => (is => 'rw'); has origtars => (is => 'rw', default => sub { [] }); has status => (is => 'rw', default => sub { 0 }); has watch_version => (is => 'rw'); -has watchlines => (is => 'rw', default => sub { [] }); +has commonOpts => (is => 'rw', default => sub { {} }); +has watchSources => (is => 'rw', default => sub { [] }); +has watchOptions => (is => 'rw', default => sub { [] }); # Values shared between lines has shared => ( @@ -186,6 +183,35 @@ sub BUILD { my $watch_version = 0; my $nextline; $dehs_tags = {}; + my $watchFileHandle; + + if ($self->config->{update_watchfile}) { + require Devscripts::Uscan::Version4; + eval { + $watchFileHandle + = Devscripts::Uscan::Version4->new($args->{watchfile}); + }; + if ($@) { + uscan_die + "Unable to load $args->{watchfile} with Version4.pm:\n$@"; + } else { + local $/ = undef; + my $content = <$watchFileHandle>; + $watchFileHandle->close; + $watchFileHandle = undef; + if (open $watchFileHandle, '>', $args->{watchfile}) { + print $watchFileHandle $content; + $watchFileHandle->close; + uscan_warn "$args->{watchfile} is now converted to version 5."; + uscan_warn + 'BE CAREFUL, some default values changed in version 5, ' + . "you shouldn't commit this without test."; + } else { + uscan_warn "Unable to write $args->{watchfile}: $!"; + } + } + return; + } uscan_verbose "Process watch file at: $args->{watchfile}\n" . " package = $args->{package}\n" @@ -193,90 +219,45 @@ sub BUILD { . " pkg_dir = $args->{pkg_dir}"; $self->origcount(0); # reset to 0 for each watch file - unless (open WATCH, $args->{watchfile}) { + unless (open $watchFileHandle, $args->{watchfile}) { uscan_warn "could not open $args->{watchfile}: $!"; return 1; } - my $lineNumber = 0; - while () { - next if /^\s*\#/; - next if /^\s*$/; - s/^\s*//; - - CHOMP: - - # Reassemble lines split using \ - chomp; - if (s/(?{watchfile} ended with \\; skipping last line"; - $self->status(1); - last; - } - if ($watch_version > 3) { - - # drop leading \s only if version 4 - $nextline = ; - $nextline =~ s/^\s*//; - $_ .= $nextline; - } else { - $_ .= ; - } - goto CHOMP; - } - - # "version" must be the first field - if (!$watch_version) { - - # Looking for "version" field. - if (/^version\s*=\s*(\d+)(\s|$)/) { # Found - $watch_version = $1; - - # Note that version=1 watchfiles have no "version" field so - # authorizated values are >= 2 and <= CURRENT_WATCHFILE_VERSION - if ( $watch_version < 2 - or $watch_version - > $Devscripts::Uscan::Config::CURRENT_WATCHFILE_VERSION) { - # "version" field found but has no authorizated value - uscan_warn -"$args->{watchfile} version number is unrecognised; skipping watch file"; - last; - } - - # Next line - next; - } - - # version=1 is deprecated - else { - $watch_version = 1; - } - } - if ($watch_version < 3) { - uscan_warn -"$args->{watchfile} is an obsolete version $watch_version watch file;\n" - . " please upgrade to a higher version\n" - . " (see uscan(1) for details)."; - } - - # "version" is fixed, parsing lines now - - # Are there any warnings from this part to give if we're using dehs? - dehs_output if ($dehs); - - # Handle shell \\ -> \ - s/\\\\/\\/g if $watch_version == 1; + eval { $self->parseWatchFile($watchFileHandle, $args) }; + my $error; + if ($@) { + uscan_debug "Version 5 parser returned: $@"; + # TODO: later, increase log level to uscan_warn + uscan_verbose + "$args->{watchfile} isn't formatted in version 5, trying version 4"; + $error = $@; + $watchFileHandle->close; + require Devscripts::Uscan::Version4; + eval { + $watchFileHandle + = Devscripts::Uscan::Version4->new($args->{watchfile}); + }; + if ($@) { + uscan_warn "Unable to read $args->{watchfile}:\n" + . " - version 5: $error\n" + . " - version <5: $@\n"; + return; + } + $self->parseWatchFile($watchFileHandle, $args); + uscan_verbose 'Reset watch_version to 4 because ' + . 'default value may change in version 5'; + $self->watch_version(4); + } + close $watchFileHandle + or $self->status(1), + uscan_warn "problems reading $$args->{watchfile}: $!"; - # Handle @PACKAGE@ @ANY_VERSION@ @ARCHIVE_EXT@ substitutions - s/\@PACKAGE\@/$args->{package}/g; - s/\@ANY_VERSION\@/ANY_VERSION/ge; - s/\@ARCHIVE_EXT\@/ARCHIVE_EXT/ge; - s/\@SIGNATURE_EXT\@/SIGNATURE_EXT/ge; - s/\@DEB_EXT\@/DEB_EXT/ge; + $self->transformWatchSource($args); - my $line = Devscripts::Uscan::WatchLine->new({ + my $lineNumber = 0; + foreach my $watchSource (@{ $self->watchOptions }) { + my $line = Devscripts::Uscan::WatchSource->new({ # Shared between lines config => $self->config, downloader => $self->downloader, @@ -284,29 +265,24 @@ sub BUILD { keyring => $self->keyring, # Other parameters - line => $_, + watchSource => $watchSource, pkg => $self->package, pkg_dir => $self->pkg_dir, pkg_version => $self->pkg_version, - watch_version => $watch_version, + watch_version => $self->watch_version, watchfile => $self->watchfile, }); push @{ $self->group }, $lineNumber if ($line->type and $line->type =~ /^(?:group|checksum)$/); - push @{ $self->watchlines }, $line; + push @{ $self->watchSources }, $line; $lineNumber++; } - - close WATCH - or $self->status(1), - uscan_warn "problems reading $$args->{watchfile}: $!"; - $self->watch_version($watch_version); } sub process_lines { my ($self) = shift; return $self->process_group if (@{ $self->group }); - foreach (@{ $self->watchlines }) { + foreach (@{ $self->watchSources }) { # search newfile and newversion my $res = $_->process; @@ -336,7 +312,7 @@ sub process_group { if (my $v = $self->config->download_version) { @dversion = map { s/\+.*$//; /^cs/ ? () : $_ } split /\+~/, $v; } - foreach my $line (@{ $self->watchlines }) { + foreach my $line (@{ $self->watchSources }) { if ( $line->type and $line->type eq 'group' or $line->type eq 'checksum') { $last_shared = $self->new_shared; @@ -349,7 +325,7 @@ sub process_group { $line->pkg_version($last_comp_version || 0); } # Check if download is needed - foreach my $line (@{ $self->watchlines }) { + foreach my $line (@{ $self->watchSources }) { next unless ($line->type eq 'group' or $line->type eq 'checksum'); # Stop on error $self->config->download_version($line->{groupDversion}) @@ -368,13 +344,13 @@ sub process_group { if $line->shared->{download} > $download and ($line->type eq 'group' or $line->ctype); } - foreach my $line (@{ $self->watchlines }) { + foreach my $line (@{ $self->watchSources }) { next unless $line->type eq 'checksum'; $newChecksum = $self->sum($newChecksum, $line->search_result->{newversion}); push @ck_versions, $line->search_result->{newversion}; } - foreach my $line (@{ $self->watchlines }) { + foreach my $line (@{ $self->watchSources }) { next unless ($line->type eq 'checksum'); $line->parse_result->{mangled_lastversion} = $checksum; my $tmp = $line->search_result->{newversion}; @@ -393,7 +369,7 @@ sub process_group { push @{ $dehs_tags->{'component-upstream-version'} }, $tmp; } } - foreach my $line (@{ $self->watchlines }) { + foreach my $line (@{ $self->watchSources }) { # Set same $download for all $line->shared->{download} = $download; # Non "group" lines where not initialized @@ -450,7 +426,7 @@ sub process_group { } else { $dehs_tags->{'status'} = "newer package available"; } - foreach my $line (@{ $self->watchlines }) { + foreach my $line (@{ $self->watchSources }) { my $path = $line->destfile or next; my $ver = $line->shared->{common_mangled_newversion}; $path =~ s/\Q$ver\E/$new_version/; diff -pruN 2.25.15/lib/Devscripts/Uscan/WatchLine.pm 2.25.16/lib/Devscripts/Uscan/WatchLine.pm --- 2.25.15/lib/Devscripts/Uscan/WatchLine.pm 2025-05-07 23:26:41.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/WatchLine.pm 1970-01-01 00:00:00.000000000 +0000 @@ -1,1876 +0,0 @@ - -=pod - -=head1 NAME - -Devscripts::Uscan::WatchLine - watch line object for L - -=head1 DESCRIPTION - -Uscan class to parse watchfiles. - -=head1 MAIN METHODS - -=cut - -package Devscripts::Uscan::WatchLine; - -use strict; -use Cwd qw/abs_path/; -use Devscripts::Uscan::Keyring; -use Devscripts::Uscan::Output; -use Devscripts::Uscan::Utils; -use Dpkg::IPC; -use Dpkg::Version; -use File::Basename; -use File::Copy; -use File::Spec::Functions qw/catfile/; -use HTTP::Headers; -use Moo; -use Text::ParseWords; - -################# -### ACCESSORS ### -################# - -=head2 new() I<(Constructor)> - -=head3 Required parameters - -=over - -=item B: ref to hash containing line options shared between lines. See -L code to see required keys. - -=item B: L object - -=item B: L object - -=item B: L object - -=item B: search line (assembled in one line) - -=item B: Debian package name - -=item B: Debian package source directory - -=item B: Debian package version - -=item B: Current watchfile - -=item B: Version of current watchfile - -=back - -=cut - -foreach ( - - # Shared attributes stored in WatchFile object (ref to WatchFile value) - 'shared', 'keyring', 'config', - - # Other - 'downloader', # Devscripts::Uscan::Downloader object - 'line', # watch line string (concatenated line over the tailing \ ) - 'pkg', # source package name found in debian/changelog - 'pkg_dir', # usually . - 'pkg_version', # last source package version - # found in debian/changelog - 'watchfile', # usually debian/watch - 'watch_version', # usually 4 (or 3) -) { - has $_ => (is => 'rw', required => 1); -} - -has repack => ( - is => 'rw', - lazy => 1, - default => sub { $_[0]->config->{repack} }, -); - -has safe => ( - is => 'rw', - lazy => 1, - default => sub { $_[0]->config->{safe} }, -); - -has symlink => ( - is => 'rw', - lazy => 1, - default => sub { $_[0]->config->{symlink} }, -); - -has versionmode => ( - is => 'rw', - lazy => 1, - default => sub { 'newer' }, -); - -has destfile => (is => 'rw'); -has sigfile => (is => 'rw'); - -# 2 - Line options read/write attributes - -foreach (qw( - component ctype hrefdecode repacksuffix unzipopt searchmode - dirversionmangle downloadurlmangle dversionmangle filenamemangle pagemangle - oversionmangle oversionmanglepagemangle pgpsigurlmangle uversionmangle - versionmangle - ) -) { - has $_ => ( - is => 'rw', - (/mangle/ ? (default => sub { [] }) : ())); -} - -has compression => ( - is => 'rw', - lazy => 1, - default => sub { - $_[0]->config->compression - ? get_compression($_[0]->config->compression) - : undef; - }, -); -has versionless => (is => 'rw'); - -# 4 - Internal attributes -has style => (is => 'rw', default => sub { 'new' }); -has status => (is => 'rw', default => sub { 0 }); -foreach ( - qw(badversion - signature_available must_download) -) { - has $_ => (is => 'rw', default => sub { 0 }); -} -foreach (qw(mangled_version)) { - has $_ => (is => 'rw'); -} -foreach (qw(sites basedirs patterns)) { - has $_ => (is => 'rw', default => sub { [] }); -} - -# 5 - Results -foreach (qw(parse_result search_result)) { - has $_ => (is => 'rw', default => sub { {} }); -} -foreach (qw(force_repack type upstream_url newfile_base)) { - has $_ => (is => 'rw'); -} - -# 3.1 - Attributes initialized with default value, modified by line content -has date => ( - is => 'rw', - default => sub { '%Y%m%d' }, -); -has decompress => ( - is => 'rw', - default => sub { 0 }, -); -has git => ( - is => 'rw', - default => sub { - { - export => 'default', - mode => 'shallow', - modules => 0, - } - }, -); -has mode => ( - is => 'rw', - default => sub { 'LWP' }, -); -has pgpmode => ( - is => 'rw', - default => sub { 'default' }, -); -has pretty => ( - is => 'rw', - default => sub { '0.0~git%cd.%h' }, -); - -# 3.2 - Self build attributes - -has gitrepo_dir => ( # Working repository used only within uscan. - is => 'ro', - lazy => 1, - builder => sub { - $_[0]->{component} - ? $_[0]->{pkg} . "-temporary.$$." . $_[0]->{component} . '.git' - : $_[0]->{pkg} . "-temporary.$$.git"; - }); -has headers => ( - is => 'ro', - default => sub { - my $h = HTTP::Headers->new; - $h->header( - 'X-uscan-features' => 'enhanced-matching', - 'Accept' => '*/*' - ); - return $h; - }, -); - -my $minversion = ''; - -############### -# Main method # -############### - -=head2 process() - -Launches all needed methods in this order: parse(), search(), -get_upstream_url(), get_newfile_base(), cmp_versions(), -download_file_and_sig(), mkorigtargz(), clean() - -If one method returns a non 0 value, it stops and return this error code. - -=cut - -sub process { - my ($self) = @_; - - # - parse line - $self->parse - - # - search newfile and newversion - or $self->search - - # - determine upstream_url - or $self->get_upstream_url - - # - determine newfile_base - or $self->get_newfile_base - - # - compare versions - or $self->cmp_versions - - # - download - or $self->download_file_and_sig - - # - make orig.tar.gz - or $self->mkorigtargz - - # - clean (used by git) - or $self->clean; - return $self->status; -} - -######### -# STEPS # -######### - -=head2 Steps - -=cut - -# I - parse - -=head3 parse() - -Parse the line and return 0 if nothing bad happen. It populates -C<$self-Eparse_result> accessor with a hash that contains the -following keys: - -=over - -=item base -=item filepattern -=item lastversion -=item action -=item site -=item basedir -=item mangled_lastversion -=item pattern - -=back - -=cut - -# watch_version=1: Lines have up to 5 parameters which are: -# -# $1 = Remote site -# $2 = Directory on site -# $3 = Pattern to match, with (...) around version number part -# $4 = Last version we have (or 'debian' for the current Debian version) -# $5 = Actions to take on successful retrieval -# -# watch_version=2: -# -# For ftp sites: -# ftp://site.name/dir/path/pattern-(.+)\.tar\.gz [version [action]] -# -# For http sites: -# http://site.name/dir/path/pattern-(.+)\.tar\.gz [version [action]] -# -# watch_version=3 and 4: See details in POD. -# -# For ftp sites: -# ftp://site.name/dir/path pattern-(.+)\.tar\.gz [version [action]] -# -# For http sites: -# http://site.name/dir/path pattern-(.+)\.tar\.gz [version [action]] -# -# For git sites: -# http://site.name/dir/path/project.git refs/tags/v([\d\.]+) [version [action]] -# or -# http://site.name/dir/path/project.git HEAD [version [action]] -# -# For svn sites: -# http://site.name/dir/path/project/tags v([\d\.]+)\/ [version [action]] -# or -# http://site.name/dir/path/project/trunk HEAD [version [action]] -# -# watch_version=3 and 4: See POD for details. -# -# Lines can be prefixed with opts= but can be folded for readability. -# -# Then the patterns matched will be checked to find the one with the -# greatest version number (as determined by the (...) group), using the -# Debian version number comparison algorithm described below. - -sub BUILD { - my ($self, $args) = @_; - if ($self->watch_version > 3) { - my $line = $self->line; - if ($line =~ s/^opt(?:ion)?s\s*=\s*//) { - unless ($line =~ s/^".*?"(?:\s+|$)//) { - $line =~ s/^[^"\s]\S*(?:\s+|$)//; - } - } - my ($base, $filepattern, $lastversion, $action) = split /\s+/, $line, - 4; - $self->type($lastversion); - } - return $self; -} - -sub parse { - my ($self) = @_; - uscan_debug "parse line $self->{line}"; - - # Need to clear remembered redirection URLs so we don't try to build URLs - # from previous watch files or watch lines - $self->downloader->user_agent->clear_redirections; - - my $watchfile = $self->watchfile; - my ($action, $base, $basedir, $filepattern, $lastversion, $pattern, $site); - $dehs_tags->{package} = $self->pkg; - - # Start parsing the watch line - if ($self->watch_version == 1) { - my ($dir); - ($site, $dir, $filepattern, $lastversion, $action) = split ' ', - $self->line, 5; - if ( !$lastversion - or $site =~ /\(.*\)/ - or $dir =~ /\(.*\)/) { - uscan_warn <{line} -EOF - return $self->status(1); - } - if ($site !~ m%\w+://%) { - $site = "ftp://$site"; - if ($filepattern !~ /\(.*\)/) { - - # watch_version=1 and old style watch file; - # pattern uses ? and * shell wildcards; everything from the - # first to last of these metachars is the pattern to match on - $filepattern =~ s/(\?|\*)/($1/; - $filepattern =~ s/(\?|\*)([^\?\*]*)$/$1)$2/; - $filepattern =~ s/\./\\./g; - $filepattern =~ s/\?/./g; - $filepattern =~ s/\*/.*/g; - $self->style('old'); - uscan_warn - "Using very old style of filename pattern in $watchfile\n" - . " (this might lead to incorrect results): $3"; - } - } - - # Merge site and dir - $base = "$site/$dir/"; - $base =~ s%(?{line}"; - return $self->status(1); - } - } else { - # version 2/3/4 watch file - if ($self->{line} =~ s/^opt(?:ion)?s\s*=\s*//) { - my $opts; - if ($self->{line} =~ s/^"(.*?)"(?:\s+|$)//) { - $opts = $1; - } elsif ($self->{line} =~ s/^([^"\s]\S*)(?:\s+|$)//) { - $opts = $1; - } else { - uscan_warn -"malformed opts=... in watch file, skipping line:\n$self->{line}"; - return $self->status(1); - } - - # $opts string extracted from the argument of opts= - uscan_verbose "opts: $opts"; - - # $self->line watch line string without opts=... part - uscan_verbose "line: $self->{line}"; - - # user-agent strings has ,;: in it so special handling - if ( $opts =~ /^\s*user-agent\s*=\s*(.+?)\s*$/ - or $opts =~ /^\s*useragent\s*=\s*(.+?)\s*$/) { - my $user_agent_string = $1; - $user_agent_string = $self->config->user_agent - if $self->config->user_agent ne - &Devscripts::Uscan::Config::default_user_agent; - $self->downloader->user_agent->agent($user_agent_string); - uscan_verbose "User-agent: $user_agent_string"; - $opts = ''; - } - my @opts = split /,/, $opts; - foreach my $opt (@opts) { - next unless ($opt =~ /\S/); - uscan_verbose "Parsing $opt"; - if ($opt =~ /^\s*pasv\s*$/ or $opt =~ /^\s*passive\s*$/) { - $self->downloader->pasv(1); - } elsif ($opt =~ /^\s*active\s*$/ - or $opt =~ /^\s*nopasv\s*$/ - or $opt =~ /^\s*nopassive\s*$/) { - $self->downloader->pasv(0); - } - - # Line option "compression" is ignored if "--compression" - # was set in command-line - elsif ($opt =~ /^\s*compression\s*=\s*(.+?)\s*$/ - and not $self->compression) { - $self->compression(get_compression($1)); - } elsif ($opt =~ /^\s*bare\s*$/) { - - # persistent $bare - ${ $self->shared->{bare} } = 1; - } - - # Boolean line parameter - # - # $ regexp-assemble <git->{modules} = ['.']; - } elsif ($opt =~ /^\s*(decompress|repack)\s*$/) { - $self->$1(1); - } - - # Line parameter with a value - # - # $ regexp-assemble <$1($2); - } elsif ($opt =~ /^\s*git(export|mode)\s*=\s*(.+?)\s*$/) { - $self->git->{$1} = $2; - } elsif ($opt =~ /^\s*gitmodules\s*=\s*(.+?)\s*$/) { - $self->git->{modules} = [split /;/, $1]; - } elsif ($opt =~ /^\s*versionmangle\s*=\s*(.+?)\s*$/) { - $self->uversionmangle([split /;/, $1]); - $self->dversionmangle([split /;/, $1]); - } elsif ($opt =~ /^\s*pgpsigurlmangle\s*=\s*(.+?)\s*$/) { - $self->pgpsigurlmangle([split /;/, $1]); - $self->pgpmode('mangle'); - } elsif ($opt =~ /^\s*dversionmangle\s*=\s*(.+?)\s*$/) { - - $self->dversionmangle([ - map { - - # If dversionmangle is "auto", replace it by - # DEB_EXT removal - $_ eq 'auto' - ? ('s/' - . &Devscripts::Uscan::WatchFile::DEB_EXT - . '//') - : ($_) - } split /;/, - $1 - ]); - } - - # Handle other *mangle: - # - # $ regexp-assemble <$1([split /;/, $2]); - } else { - uscan_warn "unrecognized option $opt"; - } - } - - # $self->line watch line string when no opts=... - uscan_verbose "line: $self->{line}"; - } - - if ($self->line eq '') { - uscan_verbose "watch line only with opts=\"...\" and no URL"; - return $self->status(1); - } - - # 4 parameter watch line - ($base, $filepattern, $lastversion, $action) = split /\s+/, - $self->line, 4; - - # 3 parameter watch line (override) - if ($base =~ s%/([^/]*\([^/]*\)[^/]*)$%/%) { - - # Last component of $base has a pair of parentheses, so no - # separate filepattern field; we remove the filepattern from the - # end of $base and rescan the rest of the line - $filepattern = $1; - (undef, $lastversion, $action) = split /\s+/, $self->line, 3; - } - - # Always define "" if not defined - $lastversion //= ''; - $action //= ''; - if ($self->mode eq 'LWP') { - if ($base =~ m%^https?://%) { - $self->mode('http'); - } elsif ($base =~ m%^ftp://%) { - $self->mode('ftp'); - } else { - uscan_warn "unknown protocol for LWP: $base"; - return $self->status(1); - } - } - - # compression is persistent - $self->compression('default') unless ($self->compression); - - # Set $lastversion to the numeric last version - # Update $self->versionmode (its default "newer") - if (!length($lastversion) - or $lastversion =~ /^(group|checksum|debian)$/) { - if (!defined $self->pkg_version) { - uscan_warn "Unable to determine the current version\n" - . " in $watchfile, skipping:\n $self->{line}"; - return $self->status(1); - } - $lastversion = $self->pkg_version; - } elsif ($lastversion eq 'ignore') { - $self->versionmode('ignore'); - $lastversion = $minversion; - } elsif ($lastversion eq 'same') { - $self->versionmode('same'); - $lastversion = $minversion; - } elsif ($lastversion =~ m/^prev/) { - $self->versionmode('previous'); - - # set $lastversion = $previous_newversion later - } - - # Check $filepattern has ( ...) - if ($filepattern !~ /\([^?].*\)/) { - if (($self->mode eq 'git' or $self->mode eq 'svn') - and $filepattern eq 'HEAD') { - $self->versionless(1); - } elsif ($self->mode eq 'git' - and $filepattern =~ m&^heads/&) { - $self->versionless(1); - } elsif ($self->mode eq 'http' - and @{ $self->filenamemangle }) { - $self->versionless(1); - } else { - uscan_warn - "Tag pattern missing version delimiters () in $watchfile" - . ", skipping:\n $self->{line}"; - return $self->status(1); - } - } - - # Check validity of options - if ($self->mode eq 'ftp' - and @{ $self->downloadurlmangle }) { - uscan_warn "downloadurlmangle option invalid for ftp sites,\n" - . " ignoring downloadurlmangle in $watchfile:\n" - . " $self->{line}"; - return $self->status(1); - } - if ($self->mode ne 'git' and $self->git->{export} ne 'default') { - uscan_warn "gitexport option is valid only in git mode,\n" - . " ignoring gitexport in $watchfile:\n" - . " $self->{line}"; - return $self->status(1); - } - - # Limit use of opts="repacksuffix" to the single upstream package - if ($self->repacksuffix and @{ $self->shared->{components} }) { - uscan_warn -"repacksuffix is not compatible with the multiple upstream tarballs;\n" - . " use oversionmangle"; - return $self->status(1); - } - - # Allow 2 char shorthands for opts="pgpmode=..." and check - if ($self->pgpmode =~ m/^au/) { - $self->pgpmode('auto'); - if (@{ $self->pgpsigurlmangle }) { - uscan_warn "Ignore pgpsigurlmangle because pgpmode=auto"; - $self->pgpsigurlmangle([]); - } - } elsif ($self->pgpmode =~ m/^ma/) { - $self->pgpmode('mangle'); - if (not @{ $self->pgpsigurlmangle }) { - uscan_warn "Missing pgpsigurlmangle. Setting pgpmode=default"; - $self->pgpmode('default'); - } - } elsif ($self->pgpmode =~ m/^no/) { - $self->pgpmode('none'); - } elsif ($self->pgpmode =~ m/^ne/) { - $self->pgpmode('next'); - } elsif ($self->pgpmode =~ m/^pr/) { - $self->pgpmode('previous'); - $self->versionmode('previous'); # no other value allowed - # set $lastversion = $previous_newversion later - } elsif ($self->pgpmode =~ m/^se/) { - $self->pgpmode('self'); - } elsif ($self->pgpmode =~ m/^git/) { - $self->pgpmode('gittag'); - } else { - $self->pgpmode('default'); - } - - # For mode=svn, make pgpmode=none the default - if ($self->mode eq 'svn') { - if ($self->pgpmode eq 'default') { - $self->pgpmode('none'); - } elsif ($self->pgpmode ne 'none') { - uscan_die "Only pgpmode=none can be used with mode=svn.\n"; - } - } - - # If PGP used, check required programs and generate files - if (@{ $self->pgpsigurlmangle }) { - my $pgpsigurlmanglestring = join(";", @{ $self->pgpsigurlmangle }); - uscan_debug "\$self->{'pgpmode'}=$self->{'pgpmode'}, " - . "\$self->{'pgpsigurlmangle'}=$pgpsigurlmanglestring"; - } else { - uscan_debug "\$self->{'pgpmode'}=$self->{'pgpmode'}, " - . "\$self->{'pgpsigurlmangle'}=undef"; - } - - # Check component for duplication and set $orig to the proper - # extension string - if ($self->pgpmode ne 'previous') { - if ($self->component) { - if (grep { $_ eq $self->component } - @{ $self->shared->{components} }) { - uscan_warn "duplicate component name: $self->{component}"; - return $self->status(1); - } - push @{ $self->shared->{components} }, $self->component; - } else { - $self->shared->{origcount}++; - if ($self->shared->{origcount} > 1) { - uscan_warn "more than one main upstream tarballs listed."; - - # reset variables - @{ $self->shared->{components} } = (); - $self->{shared}->{common_newversion} = undef; - $self->{shared}->{common_mangled_newversion} = undef; - $self->{shared}->{previous_newversion} = undef; - $self->{shared}->{previous_newfile_base} = undef; - $self->{shared}->{previous_sigfile_base} = undef; - $self->{shared}->{previous_download_available} = undef; - $self->{shared}->{uscanlog} = undef; - } - } - } - - # Allow 2 char shorthands for opts="gitmode=..." and check - if ($self->git->{mode} =~ m/^sh/) { - $self->git->{mode} = 'shallow'; - } elsif ($self->git->{mode} =~ m/^fu/) { - $self->git->{mode} = 'full'; - } else { - uscan_warn "Unknown gitmode, defaulting to 'shallow'"; - $self->git->{mode} = 'shallow'; - } - - # Handle sf.net addresses specially - if (!$self->shared->{bare} and $base =~ m%^https?://sf\.net/%) { - uscan_verbose "sf.net redirection to qa.debian.org/watch/sf.php"; - $base =~ s%^https?://sf\.net/%https://qa.debian.org/watch/sf.php/%; - $filepattern .= '(?:\?.*)?'; - } - - # Handle pypi.python.org addresses specially - if ( !$self->shared->{bare} - and $base =~ m%^https?://pypi\.python\.org/packages/source/%) { - uscan_verbose "pypi.python.org redirection to pypi.debian.net"; - $base - =~ s%^https?://pypi\.python\.org/packages/source/./%https://pypi.debian.net/%; - } - - # Handle pkg-ruby-extras gemwatch addresses specially - if ($base - =~ m%^https?://pkg-ruby-extras\.alioth\.debian\.org/cgi-bin/gemwatch% - ) { - uscan_warn -"redirecting DEPRECATED pkg-ruby-extras.alioth.debian.org/cgi-bin/gemwatch" - . " to gemwatch.debian.net"; - $base - =~ s%^https?://pkg-ruby-extras\.alioth\.debian\.org/cgi-bin/gemwatch%https://gemwatch.debian.net%; - } - - } - - if ($self->ctype) { - my $version; - my $mod = "Devscripts::Uscan::Ctype::$self->{ctype}"; - eval "require $mod"; - if ($@) { - uscan_warn "unknown ctype $self->{ctype}"; - uscan_debug $@; - return $self->status(1); - } - my $dir = $self->component || '.'; - my $ctypeTransform = $mod->new({ dir => $dir }); - if ($version = $ctypeTransform->version) { - $lastversion = $version; - uscan_verbose "Found version $version for component $dir"; - $self->versionmode('newer'); - } - } - - # End parsing the watch line for all version=1/2/3/4 - # all options('...') variables have been set - - # Override the last version with --download-debversion - if ($self->config->download_debversion) { - $lastversion = $self->config->download_debversion; - $lastversion =~ s/-[^-]+$//; # revision - $lastversion =~ s/^\d+://; # epoch - uscan_verbose -"specified --download-debversion to set the last version: $lastversion"; - } elsif ($self->versionmode eq 'previous') { - $lastversion = $self->shared->{previous_newversion}; - # $lastversion is set only if something was downloaded before - if ($lastversion) { - uscan_verbose "Previous version downloaded: $lastversion"; - } else { - uscan_verbose "Previous version not set, skipping"; - } - } else { - uscan_verbose -"Last orig.tar.* tarball version (from debian/changelog): $lastversion"; - } - - # And mangle it if requested - my $mangled_lastversion = $lastversion; - if ( - mangle( - $watchfile, \$self->line, - 'dversionmangle:', \@{ $self->dversionmangle }, - \$mangled_lastversion - ) - ) { - return $self->status(1); - } - - # Set $download_version etc. if already known - if ($self->versionmode eq 'ignore' and $self->config->download_version) { - uscan_verbose 'Ignore --download_version for component with "ignore"'; - } elsif ($self->config->download_version) { - my $mangled_downloadversion = $self->config->download_version; - if ( - mangle( - $watchfile, \$self->line, - 'uversionmangle:', \@{ $self->uversionmangle }, - \$mangled_downloadversion - ) - ) { - return $self->status(1); - } - $self->shared->{download_version} = $mangled_downloadversion; - $self->shared->{download} = 2 - if $self->shared->{download} == 1; # Change default 1 -> 2 - $self->badversion(1); - uscan_verbose "Download the --download-version specified version: " - . "(uversionmangled): $self->{shared}->{download_version}"; - } elsif ($self->config->download_debversion) { - $self->shared->{download_version} = $mangled_lastversion; - $self->shared->{download} = 2 - if $self->shared->{download} == 1; # Change default 1 -> 2 - $self->badversion(1); - uscan_verbose "Download the --download-debversion specified version " - . "(dversionmangled): $self->{shared}->{download_version}"; - } elsif ($self->config->download_current_version) { - $self->shared->{download_version} = $mangled_lastversion; - $self->shared->{download} = 2 - if $self->shared->{download} == 1; # Change default 1 -> 2 - $self->badversion(1); - uscan_verbose - "Download the --download-current-version specified version: " - . "$self->{shared}->{download_version}"; - } elsif ($self->versionmode eq 'same') { - unless (defined $self->shared->{common_newversion}) { - uscan_warn -"Unable to set versionmode=prev for the line without opts=pgpmode=prev\n" - . " in $watchfile, skipping:\n" - . " $self->{line}"; - return $self->status(1); - } - $self->shared->{download_version} = $self->shared->{common_newversion}; - $self->shared->{download} = 2 - if $self->shared->{download} == 1; # Change default 1 -> 2 - $self->badversion(1); - uscan_verbose "Download secondary tarball with the matching version: " - . "$self->{shared}->{download_version}"; - } elsif ($self->versionmode eq 'previous') { - unless ($self->pgpmode eq 'previous' - and defined $self->shared->{previous_newversion}) { - if ($self->shared->{download}) { - uscan_warn -"Unable to set versionmode=prev for the line without opts=pgpmode=prev\n" - . " in $watchfile, skipping:\n $self->{line}"; - } else { - uscan_verbose - "Nothing was downloaded before, skipping pgp check"; - uscan_verbose " line " . $self->line; - } - return $self->status(1); - } - $self->shared->{download_version} - = $self->shared->{previous_newversion}; - $self->shared->{download} = 2 - if $self->shared->{download} == 1; # Change default 1 -> 2 - $self->badversion(1); - uscan_verbose - "Download the signature file with the previous tarball's version:" - . " $self->{shared}->{download_version}"; - } else { - # $options{'versionmode'} should be debian or ignore - if (defined $self->shared->{download_version}) { - uscan_die - "\$download_version defined after dversionmangle ... strange"; - } else { - uscan_verbose "Last orig.tar.* tarball version (dversionmangled):" - . " $mangled_lastversion"; - } - } - - if ($self->watch_version != 1) { - if ($self->mode eq 'http' or $self->mode eq 'ftp') { - if ($base =~ m%^(\w+://[^/]+)%) { - $site = $1; - } else { - uscan_warn "Can't determine protocol and site in\n" - . " $watchfile, skipping:\n" - . " $self->{line}"; - return $self->status(1); - } - - # Find the path with the greatest version number matching the regex - $base - = recursive_regex_dir($self, $base, - $self->dirversionmangle, $watchfile, \$self->line, - $self->shared->{download_version}); - if ($base eq '') { - return $self->status(1); - } - - # We're going to make the pattern - # (?:(?:http://site.name)?/dir/path/)?base_pattern - # It's fine even for ftp sites - $basedir = $base; - $basedir =~ s%^\w+://[^/]+/%/%; - $basedir =~ s%/[^/]*(?:[#?].*)?$%/%; - $pattern - = "(?:(?:$site)?" . quotemeta($basedir) . ")?$filepattern"; - } else { - # git tag match is simple - $site = $base; # dummy - $basedir = ''; # dummy - $pattern = $filepattern; - } - } - - push @{ $self->sites }, $site; - push @{ $self->basedirs }, $basedir; - push @{ $self->patterns }, $pattern; - - my $match = ''; - -# Start Checking $site and look for $filepattern which is newer than $lastversion - uscan_debug "watch file has:\n" - . " \$base = $base\n" - . " \$filepattern = $filepattern\n" - . " \$lastversion = $lastversion\n" - . " \$action = $action\n" - . " mode = $self->{mode}\n" - . " pgpmode = $self->{pgpmode}\n" - . " versionmode = $self->{versionmode}\n" - . " \$site = $site\n" - . " \$basedir = $basedir"; - - $self->parse_result({ - base => $base, - filepattern => $filepattern, - lastversion => $lastversion, - action => $action, - site => $site, - basedir => $basedir, - mangled_lastversion => $mangled_lastversion, - pattern => $pattern, - }); - -# What is the most recent file, based on the filenames? -# We first have to find the candidates, then we sort them using -# Devscripts::Versort::upstream_versort (if it is real upstream version string) or -# Devscripts::Versort::versort (if it is suffixed upstream version string) - return $self->status; -} - -# II - search - -=head3 search() - -Search new file link and new version on the remote site using either: - -=over - -=item L::http_search() -=item L::ftp_search() -=item L::git_search() -=item L::svn_search() - -=back - -It populates B<$self-Esearch_result> hash ref with the following keys: - -=over - -=item B: URL/tag pointing to the file to be downloaded -=item B: version number to be used for the downloaded file - -=back - -=cut - -sub search { - my ($self) = @_; - uscan_debug "line: search()"; - my ($newversion, $newfile) = $self->_do('search'); - unless ($newversion and $newfile) { - return $self->status(1); - } - $self->status and return $self->status; - uscan_verbose "Looking at \$base = $self->{parse_result}->{base} with\n" - . " \$filepattern = $self->{parse_result}->{filepattern} found\n" - . " \$newfile = $newfile\n" - . " \$newversion = $newversion\n" - . " \$lastversion = $self->{parse_result}->{mangled_lastversion}"; - $self->search_result({ - newversion => $newversion, - newfile => $newfile, - }); - - # The original version of the code didn't use (...) in the watch - # file to delimit the version number; thus if there is no (...) - # in the pattern, we will use the old heuristics, otherwise we - # use the new. - - if ($self->style eq 'old') { - - # Old-style heuristics - if ($newversion =~ /^\D*(\d+\.(?:\d+\.)*\d+)\D*$/) { - $self->search_result->{newversion} = $1; - } else { - uscan_warn <<"EOF"; -$progname warning: In $self->{watchfile}, couldn\'t determine a - pure numeric version number from the file name for watch line - $self->{line} - and file name $newfile - Please use a new style watch file instead! -EOF - $self->status(1); - } - } - return $self->status; -} - -# III - get_upstream_url - -=head3 get_upstream_url() - -Transform newfile/newversion into upstream url using either: - -=over - -=item L::http_upstream_url() -=item L::ftp_upstream_url() -=item L::git_upstream_url() -=item L::svn_upstream_url() - -=back - -Result is stored in B<$self-Eupstream_url> accessor. - -=cut - -sub get_upstream_url { - my ($self) = @_; - uscan_debug "line: get_upstream_url()"; - if ( $self->parse_result->{site} =~ m%^https?://% - and not $self->mode eq 'git' - and not $self->mode eq 'svn') { - $self->mode('http'); - } elsif (not $self->mode) { - $self->mode('ftp'); - } - $self->upstream_url($self->_do('upstream_url')); - $self->status and return $self->status; - uscan_verbose "Upstream URL(+tag) to download is identified as" - . " $self->{upstream_url}"; - return $self->status; -} - -# IV - get_newfile_base - -=head3 get_newfile_base() - -Calculates the filename (filenamemangled) for downloaded file using either: - -=over - -=item L::http_newfile_base() -=item L::ftp_newfile_base() -=item L::git_newfile_base() -=item L::svn_newfile_base() - -=back - -Result is stored in B<$self-Enewfile_base> accessor. - -=cut - -sub get_newfile_base { - my ($self) = @_; - uscan_debug "line: get_newfile_base()"; - $self->newfile_base($self->_do('newfile_base')); - return $self->status if ($self->status); - uscan_verbose - "Filename (filenamemangled) for downloaded file: $self->{newfile_base}"; - return $self->status; -} - -# V - cmp_versions - -=head3 cmp_versions() - -Compare available and local versions. - -=cut - -sub cmp_versions { - my ($self) = @_; - uscan_debug "line: cmp_versions()"; - my $name = $self->component || $self->pkg; - my $mangled_lastversion = $self->parse_result->{mangled_lastversion}; - unless (defined $self->shared->{common_newversion}) { - $self->shared->{common_newversion} - = $self->search_result->{newversion}; - } - - $dehs_tags->{'debian-uversion'} //= $self->parse_result->{lastversion}; - $dehs_tags->{'debian-mangled-uversion'} //= $mangled_lastversion; - $dehs_tags->{'upstream-version'} //= $self->search_result->{newversion}; - $dehs_tags->{'upstream-url'} //= $self->upstream_url; - $dehs_tags->{'component-name'} //= []; - $dehs_tags->{'component-upstream-version'} //= []; - if ($self->component) { - push @{ $dehs_tags->{'component-name'} }, $self->component; - push @{ $dehs_tags->{'component-debian-uversion'} }, - $self->parse_result->{lastversion}; - push @{ $dehs_tags->{'component-debian-mangled-uversion'} }, - $mangled_lastversion; - push @{ $dehs_tags->{'component-upstream-version'} }, - $self->search_result->{newversion}; - push @{ $dehs_tags->{'component-upstream-url'} }, $self->upstream_url; - } - - my $mangled_ver - = Dpkg::Version->new("1:${mangled_lastversion}-0", check => 0); - my $upstream_ver - = Dpkg::Version->new("1:$self->{search_result}->{newversion}-0", - check => 0); - my $compver; - if ($mangled_ver == $upstream_ver) { - $compver = 'same'; - } elsif ($mangled_ver > $upstream_ver) { - $compver = 'older'; - } else { - $compver = 'newer'; - } - - # Version dependent $download adjustment - if (defined $self->shared->{download_version} - and not $self->versionmode eq 'ignore') { - - # Pretend to find a newer upstream version to exit without error - uscan_msg "Newest version of $name on remote site is " - . "$self->{search_result}->{newversion}, " - . "specified download version is $self->{shared}->{download_version}"; - $found++ unless ($self->versionmode =~ /(?:same|ignore)/); - } elsif ($self->versionmode eq 'newer') { - if ($compver eq 'newer') { - uscan_msg "Newest version of $name on remote site is " - . "$self->{search_result}->{newversion}, " - . "local version is $self->{parse_result}->{mangled_lastversion}\n" - . ( - $mangled_lastversion eq $self->parse_result->{lastversion} - ? "" - : " (mangled local version is $mangled_lastversion)\n" - ); - - # There's a newer upstream version available, which may already - # be on our system or may not be - uscan_msg " => Newer package available from:\n" - . " => $self->{upstream_url}"; - $dehs_tags->{'status'} //= "newer package available"; - $main::found++; - } elsif ($compver eq 'same') { - uscan_verbose "Newest version of $name on remote site is " - . $self->search_result->{newversion} - . ", local version is $self->{parse_result}->{mangled_lastversion}\n" - . ( - $mangled_lastversion eq $self->parse_result->{lastversion} - ? "" - : " (mangled local version is $mangled_lastversion)\n" - ); - uscan_verbose " => Package is up to date from:\n" - . " => $self->{upstream_url}"; - $dehs_tags->{'status'} //= "up to date"; - if ($self->shared->{download} > 1) { - - # 2=force-download or 3=overwrite-download - uscan_verbose " => Forcing download as requested"; - $main::found++; - } else { - # 0=no-download or 1=download - $self->shared->{download} = 0; - } - } else { # $compver eq 'old' - uscan_verbose "Newest version of $name on remote site is " - . $self->search_result->{newversion} - . ", local version is $self->{parse_result}->{mangled_lastversion}\n" - . ( - $mangled_lastversion eq $self->parse_result->{lastversion} - ? "" - : " (mangled local version is $mangled_lastversion)\n" - ); - uscan_verbose " => Only older package available from:\n" - . " => $self->{upstream_url}"; - $dehs_tags->{'status'} //= "only older package available"; - if ($self->shared->{download} > 1) { - uscan_verbose " => Forcing download as requested"; - $main::found++; - } else { - $self->shared->{download} = 0; - } - } - } elsif ($self->versionmode eq 'ignore') { - uscan_msg "Newest version of $name on remote site is " - . $self->search_result->{newversion} - . ", ignore local version"; - $dehs_tags->{'status'} //= "package available"; - } else { # same/previous -- secondary-tarball or signature-file - uscan_die "strange ... stanza = same/previous " - . "should have defined \$download_version"; - } - return 0; -} - -# VI - download_file_and_sig - -=head3 download_file_and_sig() - -Download file and, if available and needed, signature files. - -=cut - -my %already_downloaded; - -sub download_file_and_sig { - my ($self) = @_; - uscan_debug "line: download_file_and_sig()"; - my $skip_git_vrfy; - - # If we're not downloading or performing signature verification, we can - # stop here - if (!$self->shared->{download} || $self->shared->{signature} == -1) { - return 0; - } - - # configure downloader - $self->downloader->git_export_all($self->git->{export} eq 'all'); - - # 6.1 download tarball - my $download_available = 0; - my $upstream_base = basename($self->upstream_url); - $self->signature_available(0); - my $sigfile; - my $sigfile_base = $self->newfile_base; - uscan_die -"Already downloaded a file named $self->{newfile_base}: use filenamemangle to avoid this" - if ($already_downloaded{ $self->{newfile_base} }); - $already_downloaded{ $self->{newfile_base} } = 1; - - if ($self->pgpmode ne 'previous') { - - # try download package - if ($self->shared->{download} == 3 - and -e "$self->{config}->{destdir}/$self->{newfile_base}") { - uscan_verbose -"Downloading and overwriting existing file: $self->{newfile_base}"; - uscan_exec_no_fail("rm", "-f", - "$self->{config}->{destdir}/$self->{newfile_base}"); - $download_available = $self->downloader->download( - $self->upstream_url, - "$self->{config}->{destdir}/$self->{newfile_base}", - $self, - $self->parse_result->{base}, - $self->pkg_dir, - $self->pkg, - $self->mode, - $self->gitrepo_dir, - ); - if ($download_available) { - dehs_verbose - "Successfully downloaded package: $self->{newfile_base}\n"; - } else { - dehs_verbose - "Failed to download upstream package: $upstream_base\n"; - } - } elsif (-e "$self->{config}->{destdir}/$self->{newfile_base}") { - $download_available = 1; - dehs_verbose - "Not downloading, using existing file: $self->{newfile_base}\n"; - $skip_git_vrfy = 1; - } elsif ($self->shared->{download} > 0) { - uscan_verbose "Downloading upstream package: $upstream_base"; - $download_available = $self->downloader->download( - $self->upstream_url, - "$self->{config}->{destdir}/$self->{newfile_base}", - $self, - $self->parse_result->{base}, - $self->pkg_dir, - $self->pkg, - $self->mode, - $self->gitrepo_dir, - ); - if ($download_available) { - dehs_verbose - "Successfully downloaded upstream package: $upstream_base\n"; - if (@{ $self->filenamemangle }) { - dehs_verbose - "Renamed upstream package to: $self->{newfile_base}\n"; - } - } else { - dehs_verbose - "Failed to download upstream package: $upstream_base\n"; - } - } else { # $download = 0, - $download_available = 0; - dehs_verbose "Not downloading upstream package: $upstream_base\n"; - } - } - if ($self->pgpmode eq 'self') { - $sigfile_base =~ s/^(.*?)\.[^\.]+$/$1/; # drop .gpg, .asc, ... - if ($self->shared->{signature} == -1) { - uscan_warn("SKIP Checking OpenPGP signature (by request).\n"); - $download_available - = -1; # can't proceed with self-signature archive - $self->signature_available(0); - } elsif (!$self->keyring) { - uscan_die("FAIL Checking OpenPGP signature (no keyring).\n"); - } elsif ($download_available == 0) { - uscan_warn -"FAIL Checking OpenPGP signature (no signed upstream tarball downloaded)."; - return $self->status(1); - } else { - $self->keyring->verify( - "$self->{config}->{destdir}/$sigfile_base", - "$self->{config}->{destdir}/$self->{newfile_base}" - ); - -# XXX FIXME XXX extract signature as detached signature to $self->{config}->{destdir}/$sigfile - $sigfile = $self->{newfile_base}; # XXX FIXME XXX place holder - $self->{newfile_base} = $sigfile_base; - $self->signature_available(3); - } - } - if ($self->pgpmode ne 'previous') { - - # Decompress archive if requested and applicable - if ($download_available == 1 and $self->{'decompress'}) { - my $suffix_gz = $sigfile_base; - $suffix_gz =~ s/.*?(\.gz|\.xz|\.bz2|\.lzma|\.zstd?)?$/$1/; - if ($suffix_gz eq '.gz') { - if (-x '/bin/gunzip') { - uscan_exec('/bin/gunzip', "--keep", - "$self->{config}->{destdir}/$sigfile_base"); - $sigfile_base =~ s/(.*?)\.gz/$1/; - } else { - uscan_warn("Please install gzip.\n"); - return $self->status(1); - } - } elsif ($suffix_gz eq '.xz') { - if (-x '/usr/bin/unxz') { - uscan_exec('/usr/bin/unxz', "--keep", - "$self->{config}->{destdir}/$sigfile_base"); - $sigfile_base =~ s/(.*?)\.xz/$1/; - } else { - uscan_warn("Please install xz-utils.\n"); - return $self->status(1); - } - } elsif ($suffix_gz eq '.bz2') { - if (-x '/bin/bunzip2') { - uscan_exec('/bin/bunzip2', "--keep", - "$self->{config}->{destdir}/$sigfile_base"); - $sigfile_base =~ s/(.*?)\.bz2/$1/; - } else { - uscan_warn("Please install bzip2.\n"); - return $self->status(1); - } - } elsif ($suffix_gz eq '.lzma') { - if (-x '/usr/bin/unlzma') { - uscan_exec('/usr/bin/unlzma', "--keep", - "$self->{config}->{destdir}/$sigfile_base"); - $sigfile_base =~ s/(.*?)\.lzma/$1/; - } else { - uscan_warn "Please install xz-utils or lzma."; - return $self->status(1); - } - } elsif ($suffix_gz =~ /.zstd?/) { - if (-x '/usr/bin/unzstd') { - uscan_exec('/usr/bin/unzstd', "--keep", - "$self->{config}->{destdir}/$sigfile_base"); - $sigfile_base =~ s/(.*?)\.zst/$1/; - } else { - uscan_warn("Please install zstd.\n"); - return $self->status(1); - } - } else { - uscan_die "Unknown type file to decompress: $sigfile_base"; - } - } - } - - # 6.2 download signature - my $pgpsig_url; - my $suffix_sig; - if (($self->pgpmode eq 'default' or $self->pgpmode eq 'auto') - and $self->shared->{signature} == 1) { - uscan_verbose -"Start checking for common possible upstream OpenPGP signature files"; - foreach $suffix_sig (qw(asc gpg pgp sig sign)) { - my $sigrequest = HTTP::Request->new( - 'HEAD' => "$self->{upstream_url}.$suffix_sig"); - my $sigresponse - = $self->downloader->user_agent->request($sigrequest); - if ($sigresponse->is_success()) { - if ($self->pgpmode eq 'default') { - uscan_warn "Possible OpenPGP signature found at:\n" - . " $self->{upstream_url}.$suffix_sig\n" - . " * Add opts=pgpsigurlmangle=s/\$/.$suffix_sig/ or " - . "opts=pgpmode=auto to debian/watch\n" - . " * Add debian/upstream/signing-key.asc.\n" - . " See uscan(1) for more details"; - $self->pgpmode('none'); - } else { # auto - $self->pgpmode('mangle'); - $self->pgpsigurlmangle(['s/$/.' . $suffix_sig . '/',]); - } - last; - } - } - uscan_verbose - "End checking for common possible upstream OpenPGP signature files"; - $self->signature_available(0); - } - if ($self->pgpmode eq 'mangle') { - $pgpsig_url = $self->upstream_url; - if ( - mangle( - $self->watchfile, \$self->line, - 'pgpsigurlmangle:', \@{ $self->pgpsigurlmangle }, - \$pgpsig_url - ) - ) { - return $self->status(1); - } - if (!$suffix_sig) { - $suffix_sig = $pgpsig_url; - $suffix_sig =~ s/^.*\.//; - if ($suffix_sig and $suffix_sig !~ m/^[a-zA-Z]+$/) - { # strange suffix - $suffix_sig = "pgp"; - } - uscan_debug "Add $suffix_sig suffix based on $pgpsig_url."; - } - $sigfile = "$sigfile_base.$suffix_sig"; - if ($self->shared->{signature} == 1) { - uscan_verbose "Downloading OpenPGP signature from:\n" - . " $pgpsig_url (pgpsigurlmangled)\n as $sigfile"; - $self->signature_available( - $self->downloader->download( - $pgpsig_url, "$self->{config}->{destdir}/$sigfile", - $self, $self->parse_result->{base}, - $self->pkg_dir, $self->pkg, - $self->mode - )); - } else { # -1, 0 - uscan_verbose "Not downloading OpenPGP signature from:\n" - . " $pgpsig_url (pgpsigurlmangled)\n as $sigfile"; - $self->signature_available( - (-e "$self->{config}->{destdir}/$sigfile") ? 1 : 0); - } - } elsif ($self->pgpmode eq 'previous') { - $pgpsig_url = $self->upstream_url; - $sigfile = $self->newfile_base; - if ($self->shared->{signature} == 1) { - uscan_verbose "Downloading OpenPGP signature from:\n" - . " $pgpsig_url (pgpmode=previous)\n as $sigfile"; - $self->signature_available( - $self->downloader->download( - $pgpsig_url, "$self->{config}->{destdir}/$sigfile", - $self, $self->parse_result->{base}, - $self->pkg_dir, $self->pkg, - $self->mode - )); - } else { # -1, 0 - uscan_verbose "Not downloading OpenPGP signature from:\n" - . " $pgpsig_url (pgpmode=previous)\n as $sigfile"; - $self->signature_available( - (-e "$self->{config}->{destdir}/$sigfile") ? 1 : 0); - } - $download_available = $self->shared->{previous_download_available}; - $self->{newfile_base} = $self->shared->{previous_newfile_base}; - $sigfile_base = $self->shared->{previous_sigfile_base}; - uscan_verbose - "Use $self->{newfile_base} as upstream package (pgpmode=previous)"; - } - $self->sigfile("$self->{config}->{destdir}/$sigfile") if ($sigfile); - - # 6.3 verify signature - # - # 6.3.1 pgpmode - if ($self->pgpmode eq 'mangle' or $self->pgpmode eq 'previous') { - if ($self->shared->{signature} == -1) { - uscan_verbose("SKIP Checking OpenPGP signature (by request).\n"); - } elsif (!$self->keyring) { - uscan_die("FAIL Checking OpenPGP signature (no keyring).\n"); - } elsif ($download_available == 0) { - uscan_warn -"FAIL Checking OpenPGP signature (no upstream tarball downloaded)."; - return $self->status(1); - } elsif ($self->signature_available == 0) { - uscan_die( -"FAIL Checking OpenPGP signature (no signature file downloaded).\n" - ); - } else { - if ($self->shared->{signature} == 0) { - uscan_verbose "Use the existing file: $sigfile"; - } - $self->keyring->verifyv( - "$self->{config}->{destdir}/$sigfile", - "$self->{config}->{destdir}/$sigfile_base" - ); - } - $self->shared->{previous_newfile_base} = undef; - $self->shared->{previous_sigfile_base} = undef; - $self->shared->{previous_newversion} = undef; - $self->shared->{previous_download_available} = undef; - } elsif ($self->pgpmode eq 'none' or $self->pgpmode eq 'default') { - uscan_verbose "Missing OpenPGP signature."; - $self->shared->{previous_newfile_base} = undef; - $self->shared->{previous_sigfile_base} = undef; - $self->shared->{previous_newversion} = undef; - $self->shared->{previous_download_available} = undef; - } elsif ($self->pgpmode eq 'next') { - uscan_verbose - "Defer checking OpenPGP signature to the next watch line"; - $self->shared->{previous_newfile_base} = $self->newfile_base; - $self->shared->{previous_sigfile_base} = $sigfile_base; - $self->shared->{previous_newversion} - = $self->search_result->{newversion}; - $self->shared->{previous_download_available} = $download_available; - uscan_verbose "previous_newfile_base = $self->{newfile_base}"; - uscan_verbose "previous_sigfile_base = $sigfile_base"; - uscan_verbose - "previous_newversion = $self->{search_result}->{newversion}"; - uscan_verbose "previous_download_available = $download_available"; - } elsif ($self->pgpmode eq 'self') { - $self->shared->{previous_newfile_base} = undef; - $self->shared->{previous_sigfile_base} = undef; - $self->shared->{previous_newversion} = undef; - $self->shared->{previous_download_available} = undef; - } elsif ($self->pgpmode eq 'auto') { - uscan_verbose "Don't check OpenPGP signature"; - } elsif ($self->pgpmode eq 'gittag') { - if ($skip_git_vrfy) { - uscan_warn - "File already downloaded, skipping OpenPGP verification"; - } elsif (!$self->keyring) { - uscan_warn "No keyring file, skipping OpenPGP verification"; - return $self->status(1); - } else { - my ($gitrepo, $gitref) = split /[[:space:]]+/, $self->upstream_url; - $self->keyring->verify_git( - "$self->{downloader}->{destdir}/" - . $self->pkg - . "-temporary.$$.git", - $gitref, $self->downloader->git_upstream - ); - } - } else { - uscan_warn "strange ... unknown pgpmode = $self->{pgpmode}"; - return $self->status(1); - } - my $mangled_newversion = $self->search_result->{newversion}; - if ( - mangle( - $self->watchfile, \$self->line, - 'oversionmangle:', \@{ $self->oversionmangle }, - \$mangled_newversion - ) - ) { - return $self->status(1); - } - - if (!$self->shared->{common_mangled_newversion}) { - - # $mangled_newversion = version used for the new orig.tar.gz (a.k.a oversion) - uscan_verbose -"New orig.tar.* tarball version (oversionmangled): $mangled_newversion"; - - # MUT package always use the same $common_mangled_newversion - # MUT disables repacksuffix so it is safe to have this before mk-origtargz - $self->shared->{common_mangled_newversion} = $mangled_newversion; - } - if ($self->pgpmode eq 'next') { - uscan_verbose "Read the next watch line (pgpmode=next)"; - return 0; - } - if ($self->safe) { - uscan_verbose "SKIP generation of orig.tar.* " - . "and running of script/uupdate (--safe)"; - return 0; - } - if ($download_available == 0) { - uscan_warn "No upstream tarball downloaded." - . " No further processing with mk_origtargz ..."; - return $self->status(1); - } - if ($download_available == -1) { - uscan_warn "No upstream tarball unpacked from self signature file." - . " No further processing with mk_origtargz ..."; - return $self->status(1); - } - if ($self->signature_available == 1 and $self->decompress) { - $self->signature_available(2); - } - $self->search_result->{sigfile} = $sigfile; - $self->must_download(1); - return $self->status; -} - -# VII - mkorigtargz - -=head3 mkorigtargz() - -Call L to build source tarball. - -=cut - -sub mkorigtargz { - my ($self) = @_; - uscan_debug "line: mkorigtargz()"; - return 0 unless ($self->must_download); - my $mk_origtargz_out; - my $path = "$self->{config}->{destdir}/$self->{newfile_base}"; - my $target = $self->newfile_base; - unless ($self->symlink eq "no" or $self->symlink eq "0") { - require Devscripts::MkOrigtargz; - if ($Devscripts::MkOrigtargz::found_comp) { - uscan_verbose - "Forcing compression to $Devscripts::MkOrigtargz::found_comp"; - $self->repack(1); - } elsif ($path =~ /\.tar$/) { - # Always repack uncompressed tarballs - $self->repack(1); - } - @ARGV = (); - push @ARGV, "--package", $self->pkg; - push @ARGV, "--version", $self->shared->{common_mangled_newversion}; - push @ARGV, '--repack-suffix', $self->repacksuffix - if $self->repacksuffix; - push @ARGV, "--rename" if $self->symlink eq "rename"; - push @ARGV, "--copy" if $self->symlink eq "copy"; - push @ARGV, "--signature", $self->signature_available - if ($self->signature_available != 0); - push @ARGV, "--signature-file", - "$self->{config}->{destdir}/$self->{search_result}->{sigfile}" - if ($self->signature_available != 0); - push @ARGV, "--repack" if $self->repack; - push @ARGV, "--force-repack" if $self->force_repack; - push @ARGV, "--component", $self->component - if $self->component; - push @ARGV, "--compression", - $Devscripts::MkOrigtargz::found_comp || $self->compression; - push @ARGV, "--directory", $self->config->destdir; - push @ARGV, "--copyright-file", "debian/copyright" - if ($self->config->exclusion && -e "debian/copyright"); - push @ARGV, "--copyright-file", $self->config->copyright_file - if ($self->config->exclusion && $self->config->copyright_file); - push @ARGV, "--unzipopt", $self->unzipopt - if $self->unzipopt; - push @ARGV, $path; - my $tmp = $Devscripts::Output::die_on_error; - - uscan_verbose "Launch mk-origtargz with options:\n " - . join(" ", @ARGV); - my $mk = Devscripts::MkOrigtargz->new; - $mk->do; - uscan_die "mk-origtargz failed" if ($mk->status); - - $path = $mk->destfile_nice; - $target = basename($path); - $self->shared->{common_mangled_newversion} = $1 - if $target =~ m/[^_]+_(.+)\.orig(?:-.+)?\.tar\.(?:gz|bz2|lzma|xz)$/; - uscan_verbose "New orig.tar.* tarball version (after mk-origtargz): " - . "$self->{shared}->{common_mangled_newversion}"; - } - push @{ $self->shared->{origtars} }, $target; - - if ($self->config->log) { - - # Check pkg-ver.tar.gz and pkg_ver.orig.tar.gz - if (!$self->shared->{uscanlog}) { - $self->shared->{uscanlog} - = "$self->{config}->{destdir}/$self->{pkg}_$self->{shared}->{common_mangled_newversion}.uscan.log"; - if (-e "$self->{shared}->{uscanlog}.old") { - unlink "$self->{shared}->{uscanlog}.old" - or uscan_die "Can\'t remove old backup log " - . "$self->{shared}->{uscanlog}.old: $!"; - uscan_warn "Old backup uscan log found. " - . "Remove: $self->{shared}->{uscanlog}.old"; - } - if (-e $self->shared->uscanlog) { - move($self->shared->uscanlog, - "$self->{shared}->{uscanlog}.old"); - uscan_warn "Old uscan log found. " - . "Moved to: $self->{shared}->{uscanlog}.old"; - } - open(USCANLOG, ">> $self->{shared}->{uscanlog}") - or uscan_die "$progname: could not open " - . "$self->{shared}->{uscanlog} for append: $!"; - print USCANLOG "# uscan log\n"; - } else { - open(USCANLOG, ">> $self->{shared}->{uscanlog}") - or uscan_die "$progname: could not open " - . "$self->{shared}->{uscanlog} for append: $!"; - } - if ($self->symlink ne "rename") { - my $umd5sum = Digest::MD5->new; - my $omd5sum = Digest::MD5->new; - open(my $ufh, '<', - "$self->{config}->{destdir}/$self->{newfile_base}") - or uscan_die "Can't open '" - . "$self->{config}->{destdir}/$self->{newfile_base}" . "': $!"; - open(my $ofh, '<', "$self->{config}->{destdir}/${target}") - or uscan_die - "Can't open '$self->{config}->{destdir}/${target}': $!"; - $umd5sum->addfile($ufh); - $omd5sum->addfile($ofh); - close($ufh); - close($ofh); - my $umd5hex = $umd5sum->hexdigest; - my $omd5hex = $omd5sum->hexdigest; - - if ($umd5hex eq $omd5hex) { - print USCANLOG - "# == $self->{newfile_base}\t-->\t${target}\t(same)\n"; - } else { - print USCANLOG - "# !! $self->{newfile_base}\t-->\t${target}\t(changed)\n"; - } - print USCANLOG "$umd5hex $self->{newfile_base}\n"; - print USCANLOG "$omd5hex ${target}\n"; - } - close USCANLOG - or uscan_die - "$progname: could not close $self->{shared}->{uscanlog} $!"; - } - - dehs_verbose "$mk_origtargz_out\n" if $mk_origtargz_out; - if ($self->component) { - push @{ $dehs_tags->{"component-target"} }, $target; - push @{ $dehs_tags->{"component-target-path"} }, $path; - } else { - $dehs_tags->{target} = $target; - $dehs_tags->{'target-path'} = $path; - } - -####################################################################### - # code 3.10: call uupdate -####################################################################### - # Do whatever the user wishes to do - if ($self->parse_result->{action}) { - my @cmd = shellwords($self->parse_result->{action}); - - # script invocation changed in $watch_version=4 - if ($self->watch_version > 3) { - if ($cmd[0] eq "uupdate") { - push @cmd, "-f"; - if ($verbose) { - push @cmd, "--verbose"; - } - if ($self->badversion) { - push @cmd, "-b"; - } - } - push @cmd, "--upstream-version", - $self->shared->{common_mangled_newversion}; - if (abs_path($self->{config}->{destdir}) ne abs_path("..")) { - foreach my $origtar (@{ $self->shared->{origtars} }) { - copy(catfile($self->{config}->{destdir}, $origtar), - catfile("..", $origtar)); - } - } - } elsif ($self->watch_version > 1) { - - # Any symlink requests are already handled by uscan - if ($cmd[0] eq "uupdate") { - push @cmd, "--no-symlink"; - if ($verbose) { - push @cmd, "--verbose"; - } - if ($self->badversion) { - push @cmd, "-b"; - } - } - push @cmd, "--upstream-version", - $self->shared->{common_mangled_newversion}, $path; - } else { - push @cmd, $path, $self->shared->{common_mangled_newversion}; - } - my $actioncmd = join(" ", @cmd); - my $actioncmdmsg; - spawn(exec => \@cmd, wait_child => 1, to_string => \$actioncmdmsg); - local $, = ' '; - dehs_verbose "Executing user specified script:\n @cmd\n" - . $actioncmdmsg; - } - $self->destfile($path); - - return 0; -} - -# VIII - clean - -=head3 clean() - -Clean temporary files using either: - -=over - -=item L::http_clean() -=item L::ftp_clean() -=item L::git_clean() -=item L::svn_clean() - -=back - -=cut - -sub clean { - my ($self) = @_; - $self->_do('clean'); -} - -# Internal sub to call sub modules (git, http,...) -sub _do { - my ($self, $sub) = @_; - my $mode = $self->mode; - $mode =~ s/git-dumb/git/; - $sub = $mode . "_$sub"; - with("Devscripts::Uscan::$mode") unless ($self->can($sub)); - if ($@) { - uscan_warn "Unknown '$mode' mode set in $self->{watchfile} ($@)"; - $self->status(1); - } - return $self->$sub; -} - -1; - -=head1 SEE ALSO - -L, L, L - -=head1 AUTHOR - -B was originally written by Christoph Lameter -Eclameter@debian.orgE (I believe), modified by Julian Gilbey -Ejdg@debian.orgE. HTTP support was added by Piotr Roszatycki -Edexter@debian.orgE. B was rewritten in Perl by Julian Gilbey. -Xavier Guimard Eyadd@debian.orgE rewrote uscan in object -oriented Perl. - -=head1 COPYRIGHT AND LICENSE - -Copyright 2002-2006 by Julian Gilbey , -2018 by Xavier Guimard - -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -=cut diff -pruN 2.25.15/lib/Devscripts/Uscan/WatchSource/Parser.pm 2.25.16/lib/Devscripts/Uscan/WatchSource/Parser.pm --- 2.25.15/lib/Devscripts/Uscan/WatchSource/Parser.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/WatchSource/Parser.pm 2025-07-20 08:12:37.000000000 +0000 @@ -0,0 +1,66 @@ +package Devscripts::Uscan::WatchSource::Parser; + +use Moo::Role; +use Devscripts::Uscan::Output; + +sub parseWatchFile { + my ($self, $watchFileHandle, $args) = @_; + # Read in paragraph mode + local $/ = ""; + my $map = sub { + return map { + my @lines = split /\n/, $_; + my @res; + foreach my $line (@lines) { + # Skip comments and blank lines + next if $line =~ /^\s*(?:#.*)$/; + unless ($line =~ /^([\w\-]+)\s*:\s*(.*?)\s*$/) { + die "Unable to parse line '$line', skipping"; + } + my ($k, $v) = (lc($1), $2); + $k =~ s/-//g; + push @res, $k, $v; + } + push @res, _raw => $_; + return {@res}; + } @_; + }; + $self->commonOpts($map->($watchFileHandle->getline)); + unless (%{ $self->commonOpts }) { + die "Unable to parse $args->{watchfile} empty header"; + } + unless ($self->commonOpts->{version}) { + die 'Missing "Version" field in header, skipping ' + . $args->{watchfile}; + } + unless ($self->commonOpts->{version} >= 5) { + die +"Malformed file $args->{watchfile}, version $self->{commonOpts}->{version} is lower than 5"; + } + if ($self->commonOpts->{version} + > $Devscripts::Uscan::Config::CURRENT_WATCHFILE_VERSION) { + die +"$args->{watchfile} uses a newer version ($self->{commonOpts}->{version}) than supported (" + . $Devscripts::Uscan::Config::CURRENT_WATCHFILE_VERSION + . '), skipping this file'; + } + $self->watch_version($self->commonOpts->{version}); + my $line; + while (defined($line = $watchFileHandle->getline)) { + my $watchOptions = $map->($line); + unless ($watchOptions->{source} || $watchOptions->{template}) { + uscan_warn +"The following paragraph isn't well formatted, skipping it: << ==EOF==\n" + . $watchOptions->{_raw} + . "==EOF==\n"; + next; + } + foreach my $k (keys %{ $self->commonOpts }) { + $watchOptions->{$k} //= $self->commonOpts->{$k}; + } + + push @{ $self->watchOptions }, $watchOptions; + } +} + +1; diff -pruN 2.25.15/lib/Devscripts/Uscan/WatchSource/Transform.pm 2.25.16/lib/Devscripts/Uscan/WatchSource/Transform.pm --- 2.25.15/lib/Devscripts/Uscan/WatchSource/Transform.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/WatchSource/Transform.pm 2025-07-20 08:12:37.000000000 +0000 @@ -0,0 +1,40 @@ +package Devscripts::Uscan::WatchSource::Transform; + +use Moo::Role; +use Devscripts::Uscan::Output; + +use constant { + ANY_VERSION => '(?:[-_]?[Vv]?(\d[\-+\.:\~\da-zA-Z]*))', + ARCHIVE_EXT => + '(?i)(?:\.(?:tar\.xz|tar\.bz2|tar\.gz|tar\.zstd?|zip|tgz|tbz|txz))', + DEB_EXT => '(?:[\+~](debian|dfsg|ds|deb)(\.)?(\d+)?$)', +}; +use constant SIGNATURE_EXT => ARCHIVE_EXT . '(?:\.(?:asc|pgp|gpg|sig|sign))'; + +sub transformWatchSource { + my ($self, $args) = @_; + + foreach my $watchSource (@{ $self->watchOptions }) { + + # TODO: insert here templates + + foreach my $k (keys %$watchSource) { + # Handle @PACKAGE@ @ANY_VERSION@ @ARCHIVE_EXT@ substitutions + $watchSource->{$k} =~ s/\@PACKAGE\@/$args->{package}/g; + $watchSource->{$k} =~ s/\@ANY_VERSION\@/ANY_VERSION/ge; + $watchSource->{$k} =~ s/\@ARCHIVE_EXT\@/ARCHIVE_EXT/ge; + $watchSource->{$k} =~ s/\@SIGNATURE_EXT\@/SIGNATURE_EXT/ge; + $watchSource->{$k} =~ s/\@DEB_EXT\@/DEB_EXT/ge; + } + + # When global "Version-Schema" is "checksum", the main watch source has + # to be "group" + if ( $watchSource->{versionschema} + and $watchSource->{versionschema} eq 'checksum' + and !$watchSource->{component}) { + $watchSource->{versionschema} = 'group'; + } + } +} + +1; diff -pruN 2.25.15/lib/Devscripts/Uscan/WatchSource.pm 2.25.16/lib/Devscripts/Uscan/WatchSource.pm --- 2.25.15/lib/Devscripts/Uscan/WatchSource.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/WatchSource.pm 2025-07-20 08:12:37.000000000 +0000 @@ -0,0 +1,1792 @@ + +=pod + +=head1 NAME + +Devscripts::Uscan::WatchSource - watch source object for L + +=head1 DESCRIPTION + +Uscan class to parse watchfiles. + +=head1 MAIN METHODS + +=cut + +package Devscripts::Uscan::WatchSource; + +use strict; +use Cwd qw/abs_path/; +use Devscripts::Uscan::Keyring; +use Devscripts::Uscan::Output; +use Devscripts::Uscan::Utils; +use Dpkg::IPC; +use Dpkg::Version; +use File::Basename; +use File::Copy; +use File::Spec::Functions qw/catfile/; +use HTTP::Headers; +use Moo; +use Text::ParseWords; + +################# +### ACCESSORS ### +################# + +=head2 new() I<(Constructor)> + +=head3 Required parameters + +=over + +=item B: ref to hash containing watch source options shared between lines. See +L code to see required keys. + +=item B: L object + +=item B: L object + +=item B: L object + +=item B: hash containing whatch sources options (built by +L using L +and L + +=item B: Debian package name + +=item B: Debian package source directory + +=item B: Debian package version + +=item B: Current watchfile + +=item B: Version of current watchfile + +=back + +=cut + +foreach ( + + # Shared attributes stored in WatchFile object (ref to WatchFile value) + 'shared', 'keyring', 'config', + + # Other + 'downloader', # Devscripts::Uscan::Downloader object + 'watchSource', # watch line string (concatenated line over the tailing \ ) + 'pkg', # source package name found in debian/changelog + 'pkg_dir', # usually . + 'pkg_version', # last source package version + # found in debian/changelog + 'watchfile', # usually debian/watch + 'watch_version', # usually 4 (or 3) +) { + has $_ => (is => 'rw', required => 1); +} + +has repack => ( + is => 'rw', + lazy => 1, + default => sub { $_[0]->config->{repack} }, +); + +has safe => ( + is => 'rw', + lazy => 1, + default => sub { $_[0]->config->{safe} }, +); + +has symlink => ( + is => 'rw', + lazy => 1, + default => sub { $_[0]->config->{symlink} }, +); + +has versionmode => ( + is => 'rw', + lazy => 1, + default => sub { 'newer' }, +); + +has destfile => (is => 'rw'); +has sigfile => (is => 'rw'); + +# 2 - Line options read/write attributes + +foreach (qw( + component ctype hrefdecode repacksuffix unzipopt searchmode + dirversionmangle downloadurlmangle dversionmangle filenamemangle pagemangle + oversionmangle oversionmanglepagemangle pgpsigurlmangle uversionmangle + versionmangle + ) +) { + has $_ => ( + is => 'rw', + (/mangle/ ? (default => sub { [] }) : ())); +} + +has compression => ( + is => 'rw', + lazy => 1, + default => sub { + $_[0]->config->compression + ? get_compression($_[0]->config->compression) + : undef; + }, +); +has versionless => (is => 'rw'); + +# 4 - Internal attributes +has style => (is => 'rw', default => sub { 'new' }); +has status => (is => 'rw', default => sub { 0 }); +foreach ( + qw(badversion + signature_available must_download) +) { + has $_ => (is => 'rw', default => sub { 0 }); +} +foreach (qw(mangled_version)) { + has $_ => (is => 'rw'); +} +foreach (qw(sites basedirs patterns)) { + has $_ => (is => 'rw', default => sub { [] }); +} + +# 5 - Results +foreach (qw(parse_result search_result)) { + has $_ => (is => 'rw', default => sub { {} }); +} +foreach (qw(force_repack type upstream_url newfile_base)) { + has $_ => (is => 'rw'); +} + +# 3.1 - Attributes initialized with default value, modified by watch source options +has date => ( + is => 'rw', + default => sub { '%Y%m%d' }, +); +has decompress => ( + is => 'rw', + default => sub { 0 }, +); +has git => ( + is => 'rw', + default => sub { + { + export => 'default', + mode => 'shallow', + modules => 0, + } + }, +); +has mode => ( + is => 'rw', + default => sub { 'LWP' }, +); +has pgpmode => ( + is => 'rw', + default => sub { 'default' }, +); +has pretty => ( + is => 'rw', + default => sub { '0.0~git%cd.%h' }, +); + +# 3.2 - Self build attributes + +has gitrepo_dir => ( # Working repository used only within uscan. + is => 'ro', + lazy => 1, + builder => sub { + $_[0]->{component} + ? $_[0]->{pkg} . "-temporary.$$." . $_[0]->{component} . '.git' + : $_[0]->{pkg} . "-temporary.$$.git"; + }); +has headers => ( + is => 'ro', + default => sub { + my $h = HTTP::Headers->new; + $h->header( + 'X-uscan-features' => 'enhanced-matching', + 'Accept' => '*/*' + ); + return $h; + }, +); + +my $minversion = ''; + +############### +# Main method # +############### + +=head2 process() + +Launches all needed methods in this order: parse(), search(), +get_upstream_url(), get_newfile_base(), cmp_versions(), +download_file_and_sig(), mkorigtargz(), clean() + +If one method returns a non 0 value, it stops and return this error code. + +=cut + +sub process { + my ($self) = @_; + + # - parse options + $self->parse + + # - search newfile and newversion + or $self->search + + # - determine upstream_url + or $self->get_upstream_url + + # - determine newfile_base + or $self->get_newfile_base + + # - compare versions + or $self->cmp_versions + + # - download + or $self->download_file_and_sig + + # - make orig.tar.gz + or $self->mkorigtargz + + # - clean (used by git) + or $self->clean; + return $self->status; +} + +######### +# STEPS # +######### + +=head2 Steps + +=cut + +# I - parse + +=head3 parse() + +Parse the watch source options and return 0 if nothing bad happen. It populates +C<$self-Eparse_result> accessor with a hash that contains the +following keys: + +=over + +=item base +=item filepattern +=item lastversion +=item action +=item site +=item basedir +=item mangled_lastversion +=item pattern + +=back + +=cut + +# watch_version=1: Lines have up to 5 parameters which are: +# +# $1 = Remote site +# $2 = Directory on site +# $3 = Pattern to match, with (...) around version number part +# $4 = Last version we have (or 'debian' for the current Debian version) +# $5 = Actions to take on successful retrieval +# +# watch_version=2: +# +# For ftp sites: +# ftp://site.name/dir/path/pattern-(.+)\.tar\.gz [version [action]] +# +# For http sites: +# http://site.name/dir/path/pattern-(.+)\.tar\.gz [version [action]] +# +# watch_version=3 and 4: See details in POD. +# +# For ftp sites: +# ftp://site.name/dir/path pattern-(.+)\.tar\.gz [version [action]] +# +# For http sites: +# http://site.name/dir/path pattern-(.+)\.tar\.gz [version [action]] +# +# For git sites: +# http://site.name/dir/path/project.git refs/tags/v([\d\.]+) [version [action]] +# or +# http://site.name/dir/path/project.git HEAD [version [action]] +# +# For svn sites: +# http://site.name/dir/path/project/tags v([\d\.]+)\/ [version [action]] +# or +# http://site.name/dir/path/project/trunk HEAD [version [action]] +# +# watch_version=3 and 4: See POD for details. +# +# Lines can be prefixed with opts= but can be folded for readability. +# +# Then the patterns matched will be checked to find the one with the +# greatest version number (as determined by the (...) group), using the +# Debian version number comparison algorithm described below. + +sub BUILD { + my ($self, $args) = @_; + if ($self->watch_version > 3) { + $self->type($self->watchSource->{versionschema}); + } + return $self; +} + +sub parse { + my ($self) = @_; + uscan_debug "parse options: << ==EOF==\n $self->{watchSource}->{_raw}"; + + # Need to clear remembered redirection URLs so we don't try to build URLs + # from previous watch files or watch lines + $self->downloader->user_agent->clear_redirections; + + my $watchfile = $self->watchfile; + my ($action, $base, $basedir, $filepattern, $lastversion, $pattern, $site); + $dehs_tags->{package} = $self->pkg; + + # Start parsing the watch source + # version 2/3/4 watch file + my $opts = $self->watchSource; + + if ($opts->{useragent}) { + my $user_agent_string = $opts->{useragent}; + $user_agent_string = $self->config->user_agent + if $self->config->user_agent ne + &Devscripts::Uscan::Config::default_user_agent; + $self->downloader->user_agent->agent($user_agent_string); + uscan_verbose "User-agent: $user_agent_string"; + delete $opts->{useragent}; + } + foreach my $optName (sort keys %$opts) { + next + if $optName + =~ /(?:source|version|versionschema|versionregex|_raw|updatescript)$/; + my $optVal = $opts->{$optName}; + uscan_verbose "Parsing $optName=$optVal"; + if ($optName =~ /^(?:pasv|passive)/) { + $self->downloader->pasv(_booleanVal($optVal, $optName)); + } elsif ($optName =~ /^(?:active|nopasv|nopassive)$/) { + $self->downloader->pasv(_booleanVal($optVal, $optName)); + } + + # Line option "compression" is ignored if "--compression" + # was set in command-line + elsif ($optName eq 'compression' and not $self->compression) { + $self->compression(get_compression($optVal)); + } elsif ($optName eq 'bare') { + + # persistent $bare + ${ $self->shared->{bare} } = _booleanVal($optVal, $optName); + } + + # Boolean line parameter + # + # $ regexp-assemble <git->{modules} = ['.']; + } elsif ($optName =~ /^(?:decompress|repack)$/) { + $self->setBooleanValue($optName, $optVal); + } + + # Line parameter with a value + # + # $ regexp-assemble <$optName($optVal); + } elsif ($optName =~ /^git(export|mode)$/) { + $self->git->{$1} = $optVal; + } elsif ($optName eq 'gitmodules') { + $self->git->{modules} = [split /;/, $optVal]; + } elsif ($optName eq 'versionmangle') { + $self->uversionmangle([split /;/, $optVal]); + $self->dversionmangle([split /;/, $optVal]); + } elsif ($optName eq 'pgpsigurlmangle') { + $self->pgpsigurlmangle([split /;/, $optVal]); + $self->pgpmode('mangle'); + } elsif ($optName eq 'dversionmangle') { + # TODO: move this to WatchSource::transform + $self->dversionmangle([ + map { + + # If dversionmangle is "auto", replace it by + # DEB_EXT removal + $_ eq 'auto' + ? ('s/' + . &Devscripts::Uscan::WatchFile::DEB_EXT + . '//') + : ($_) + } split /;/, + $optVal + ]); + } + + # Handle other *mangle: + # + # $ regexp-assemble <$optName([split /;/, $optVal]); + } elsif ($optName eq 'versionschema') { + $self->versionmode($optVal); + } else { + uscan_warn "unrecognized option $optName: $optVal"; + } + } + + uscan_extra_debug "watchSource: << ==EOF==\n$self->{watchSource}->{_raw}"; + + # 4 parameter watch line + ($base, $filepattern, $lastversion, $action) = ( + $opts->{source}, $opts->{versionregex}, + $opts->{versionconstraint} // '', + $opts->{updatescript} // '' + ); + + if ($self->mode eq 'LWP') { + if ($base =~ m%^https?://%) { + $self->mode('http'); + } elsif ($base =~ m%^ftp://%) { + $self->mode('ftp'); + } else { + uscan_warn "unknown protocol for LWP: $base"; + return $self->status(1); + } + } + + # compression is persistent + $self->compression('default') unless ($self->compression); + + # Set $lastversion to the numeric last version + # Update $self->versionmode (its default "newer") + if (!length($lastversion) + or $self->versionmode =~ /^(group|checksum)$/) { + if (!defined $self->pkg_version) { + uscan_warn "Unable to determine the current version\n" + . " in $watchfile, skipping:\n $self->{line}"; + return $self->status(1); + } + $lastversion = $self->pkg_version; + } elsif ($self->versionmode eq 'ignore') { + $lastversion = $minversion; + } elsif ($lastversion eq 'same') { + $self->versionmode('same'); + $lastversion = $minversion; + } elsif ($self->versionmode eq 'previous') { + # set $lastversion = $previous_newversion later + } + + # Check $filepattern has ( ...) + if ($filepattern !~ /\([^?].*\)/) { + if (($self->mode eq 'git' or $self->mode eq 'svn') + and $filepattern eq 'HEAD') { + $self->versionless(1); + } elsif ($self->mode eq 'git' + and $filepattern =~ m&^heads/&) { + $self->versionless(1); + } elsif ($self->mode eq 'http' + and @{ $self->filenamemangle }) { + $self->versionless(1); + } else { + uscan_warn + "Tag pattern missing version delimiters () in $watchfile" + . ", skipping:"; + return $self->status(1); + } + } + + # Check validity of options + if ($self->mode eq 'ftp' + and @{ $self->downloadurlmangle }) { + uscan_warn "downloadurlmangle option invalid for ftp sites,\n" + . " ignoring downloadurlmangle in $watchfile:\n" + . " $self->{line}"; + return $self->status(1); + } + if ($self->mode ne 'git' and $self->git->{export} ne 'default') { + uscan_warn "gitexport option is valid only in git mode,\n" + . " ignoring gitexport in $watchfile:\n" + . " $self->{line}"; + return $self->status(1); + } + + # Limit use of opts="repacksuffix" to the single upstream package + if ($self->repacksuffix and @{ $self->shared->{components} }) { + uscan_warn +"repacksuffix is not compatible with the multiple upstream tarballs;\n" + . " use oversionmangle"; + return $self->status(1); + } + + # Allow 2 char shorthands for opts="pgpmode=..." and check + if ($self->pgpmode =~ m/^au/) { + $self->pgpmode('auto'); + if (@{ $self->pgpsigurlmangle }) { + uscan_warn "Ignore pgpsigurlmangle because pgpmode=auto"; + $self->pgpsigurlmangle([]); + } + } elsif ($self->pgpmode =~ m/^ma/) { + $self->pgpmode('mangle'); + if (not @{ $self->pgpsigurlmangle }) { + uscan_warn "Missing pgpsigurlmangle. Setting pgpmode=default"; + $self->pgpmode('default'); + } + } elsif ($self->pgpmode =~ m/^no/) { + $self->pgpmode('none'); + } elsif ($self->pgpmode =~ m/^ne/) { + $self->pgpmode('next'); + } elsif ($self->pgpmode =~ m/^pr/) { + $self->pgpmode('previous'); + $self->versionmode('previous'); # no other value allowed + # set $lastversion = $previous_newversion later + } elsif ($self->pgpmode =~ m/^se/) { + $self->pgpmode('self'); + } elsif ($self->pgpmode =~ m/^git/) { + $self->pgpmode('gittag'); + } else { + $self->pgpmode('default'); + } + + # For mode=svn, make pgpmode=none the default + if ($self->mode eq 'svn') { + if ($self->pgpmode eq 'default') { + $self->pgpmode('none'); + } elsif ($self->pgpmode ne 'none') { + uscan_die "Only pgpmode=none can be used with mode=svn.\n"; + } + } + + # If PGP used, check required programs and generate files + if (@{ $self->pgpsigurlmangle }) { + my $pgpsigurlmanglestring = join(";", @{ $self->pgpsigurlmangle }); + uscan_debug "\$self->{'pgpmode'}=$self->{'pgpmode'}, " + . "\$self->{'pgpsigurlmangle'}=$pgpsigurlmanglestring"; + } else { + uscan_debug "\$self->{'pgpmode'}=$self->{'pgpmode'}, " + . "\$self->{'pgpsigurlmangle'}=undef"; + } + + # Check component for duplication and set $orig to the proper + # extension string + if ($self->pgpmode ne 'previous') { + if ($self->component) { + if (grep { $_ eq $self->component } + @{ $self->shared->{components} }) { + uscan_warn "duplicate component name: $self->{component}"; + return $self->status(1); + } + push @{ $self->shared->{components} }, $self->component; + } else { + $self->shared->{origcount}++; + if ($self->shared->{origcount} > 1) { + uscan_warn "more than one main upstream tarballs listed."; + + # reset variables + @{ $self->shared->{components} } = (); + $self->{shared}->{common_newversion} = undef; + $self->{shared}->{common_mangled_newversion} = undef; + $self->{shared}->{previous_newversion} = undef; + $self->{shared}->{previous_newfile_base} = undef; + $self->{shared}->{previous_sigfile_base} = undef; + $self->{shared}->{previous_download_available} = undef; + $self->{shared}->{uscanlog} = undef; + } + } + } + + # Allow 2 char shorthands for opts="gitmode=..." and check + if ($self->git->{mode} =~ m/^sh/) { + $self->git->{mode} = 'shallow'; + } elsif ($self->git->{mode} =~ m/^fu/) { + $self->git->{mode} = 'full'; + } else { + uscan_warn "Unknown gitmode, defaulting to 'shallow'"; + $self->git->{mode} = 'shallow'; + } + + # Handle sf.net addresses specially + if (!$self->shared->{bare} and $base =~ m%^https?://sf\.net/%) { + uscan_verbose "sf.net redirection to qa.debian.org/watch/sf.php"; + $base =~ s%^https?://sf\.net/%https://qa.debian.org/watch/sf.php/%; + $filepattern .= '(?:\?.*)?'; + } + + # Handle pypi.python.org addresses specially + if ( !$self->shared->{bare} + and $base =~ m%^https?://pypi\.python\.org/packages/source/%) { + uscan_verbose "pypi.python.org redirection to pypi.debian.net"; + $base + =~ s%^https?://pypi\.python\.org/packages/source/./%https://pypi.debian.net/%; + } + + # Handle pkg-ruby-extras gemwatch addresses specially + if ($base + =~ m%^https?://pkg-ruby-extras\.alioth\.debian\.org/cgi-bin/gemwatch%) + { + uscan_warn +"redirecting DEPRECATED pkg-ruby-extras.alioth.debian.org/cgi-bin/gemwatch" + . " to gemwatch.debian.net"; + $base + =~ s%^https?://pkg-ruby-extras\.alioth\.debian\.org/cgi-bin/gemwatch%https://gemwatch.debian.net%; + } + + if ($self->ctype) { + my $version; + my $mod = "Devscripts::Uscan::Ctype::$self->{ctype}"; + eval "require $mod"; + if ($@) { + uscan_warn "unknown ctype $self->{ctype}"; + uscan_debug $@; + return $self->status(1); + } + my $dir = $self->component || '.'; + my $ctypeTransform = $mod->new({ dir => $dir }); + if ($version = $ctypeTransform->version) { + $lastversion = $version; + uscan_verbose "Found version $version for component $dir"; + $self->versionmode('newer'); + } + } + + # End parsing the watch line for all version=1/2/3/4 + # all options('...') variables have been set + + # Override the last version with --download-debversion + if ($self->config->download_debversion) { + $lastversion = $self->config->download_debversion; + $lastversion =~ s/-[^-]+$//; # revision + $lastversion =~ s/^\d+://; # epoch + uscan_verbose +"specified --download-debversion to set the last version: $lastversion"; + } elsif ($self->versionmode eq 'previous') { + $lastversion = $self->shared->{previous_newversion}; + # $lastversion is set only if something was downloaded before + if ($lastversion) { + uscan_verbose "Previous version downloaded: $lastversion"; + } else { + uscan_verbose "Previous version not set, skipping"; + } + } else { + uscan_verbose +"Last orig.tar.* tarball version (from debian/changelog): $lastversion"; + } + + # And mangle it if requested + my $mangled_lastversion = $lastversion; + if ( + mangle( + $watchfile, 'dversionmangle:', + \@{ $self->dversionmangle }, \$mangled_lastversion + ) + ) { + return $self->status(1); + } + + # Set $download_version etc. if already known + if ($self->versionmode eq 'ignore' and $self->config->download_version) { + uscan_verbose 'Ignore --download_version for component with "ignore"'; + } elsif ($self->config->download_version) { + my $mangled_downloadversion = $self->config->download_version; + if ( + mangle( + $watchfile, 'uversionmangle:', + \@{ $self->uversionmangle }, \$mangled_downloadversion + ) + ) { + return $self->status(1); + } + $self->shared->{download_version} = $mangled_downloadversion; + $self->shared->{download} = 2 + if $self->shared->{download} == 1; # Change default 1 -> 2 + $self->badversion(1); + uscan_verbose "Download the --download-version specified version: " + . "(uversionmangled): $self->{shared}->{download_version}"; + } elsif ($self->config->download_debversion) { + $self->shared->{download_version} = $mangled_lastversion; + $self->shared->{download} = 2 + if $self->shared->{download} == 1; # Change default 1 -> 2 + $self->badversion(1); + uscan_verbose "Download the --download-debversion specified version " + . "(dversionmangled): $self->{shared}->{download_version}"; + } elsif ($self->config->download_current_version) { + $self->shared->{download_version} = $mangled_lastversion; + $self->shared->{download} = 2 + if $self->shared->{download} == 1; # Change default 1 -> 2 + $self->badversion(1); + uscan_verbose + "Download the --download-current-version specified version: " + . "$self->{shared}->{download_version}"; + } elsif ($self->versionmode eq 'same') { + unless (defined $self->shared->{common_newversion}) { + uscan_warn +"Unable to set versionmode=prev for the line without opts=pgpmode=prev\n" + . " in $watchfile, skipping:\n" + . " $self->{line}"; + return $self->status(1); + } + $self->shared->{download_version} = $self->shared->{common_newversion}; + $self->shared->{download} = 2 + if $self->shared->{download} == 1; # Change default 1 -> 2 + $self->badversion(1); + uscan_verbose "Download secondary tarball with the matching version: " + . "$self->{shared}->{download_version}"; + } elsif ($self->versionmode eq 'previous') { + unless ($self->pgpmode eq 'previous' + and defined $self->shared->{previous_newversion}) { + if ($self->shared->{download}) { + uscan_warn +"Unable to set versionmode=prev for the line without opts=pgpmode=prev\n" + . " in $watchfile, skipping:\n $self->{line}"; + } else { + uscan_verbose + "Nothing was downloaded before, skipping pgp check"; + uscan_verbose " line " . $self->{watchSource}->{source}; + } + return $self->status(1); + } + $self->shared->{download_version} + = $self->shared->{previous_newversion}; + $self->shared->{download} = 2 + if $self->shared->{download} == 1; # Change default 1 -> 2 + $self->badversion(1); + uscan_verbose + "Download the signature file with the previous tarball's version:" + . " $self->{shared}->{download_version}"; + } else { + # $options{'versionmode'} should be debian or ignore + if (defined $self->shared->{download_version}) { + uscan_die + "\$download_version defined after dversionmangle ... strange"; + } else { + uscan_verbose "Last orig.tar.* tarball version (dversionmangled):" + . " $mangled_lastversion"; + } + } + + if ($self->watch_version != 1) { + if ($self->mode eq 'http' or $self->mode eq 'ftp') { + if ($base =~ m%^(\w+://[^/]+)%) { + $site = $1; + } else { + uscan_warn "Can't determine protocol and site in\n" + . " $watchfile, skipping:\n" + . " $self->{line}"; + return $self->status(1); + } + + # Find the path with the greatest version number matching the regex + $base + = recursive_regex_dir($self, $base, + $self->dirversionmangle, $watchfile, + $self->shared->{download_version}); + if ($base eq '') { + return $self->status(1); + } + + # We're going to make the pattern + # (?:(?:http://site.name)?/dir/path/)?base_pattern + # It's fine even for ftp sites + $basedir = $base; + $basedir =~ s%^\w+://[^/]+/%/%; + $basedir =~ s%/[^/]*(?:[#?].*)?$%/%; + $pattern + = "(?:(?:$site)?" . quotemeta($basedir) . ")?$filepattern"; + } else { + # git tag match is simple + $site = $base; # dummy + $basedir = ''; # dummy + $pattern = $filepattern; + } + } + + push @{ $self->sites }, $site; + push @{ $self->basedirs }, $basedir; + push @{ $self->patterns }, $pattern; + + my $match = ''; + +# Start Checking $site and look for $filepattern which is newer than $lastversion + uscan_debug "watch file has:\n" + . " \$base = $base\n" + . " \$filepattern = $filepattern\n" + . " \$lastversion = $lastversion\n" + . " \$action = $action\n" + . " mode = $self->{mode}\n" + . " pgpmode = $self->{pgpmode}\n" + . " versionmode = $self->{versionmode}\n" + . " \$site = $site\n" + . " \$basedir = $basedir"; + + $self->parse_result({ + base => $base, + filepattern => $filepattern, + lastversion => $lastversion, + action => $action, + site => $site, + basedir => $basedir, + mangled_lastversion => $mangled_lastversion, + pattern => $pattern, + }); + +# What is the most recent file, based on the filenames? +# We first have to find the candidates, then we sort them using +# Devscripts::Versort::upstream_versort (if it is real upstream version string) or +# Devscripts::Versort::versort (if it is suffixed upstream version string) + return $self->status; +} + +# II - search + +=head3 search() + +Search new file link and new version on the remote site using either: + +=over + +=item L::http_search() +=item L::ftp_search() +=item L::git_search() +=item L::svn_search() + +=back + +It populates B<$self-Esearch_result> hash ref with the following keys: + +=over + +=item B: URL/tag pointing to the file to be downloaded +=item B: version number to be used for the downloaded file + +=back + +=cut + +sub search { + my ($self) = @_; + uscan_debug "line: search()"; + my ($newversion, $newfile) = $self->_do('search'); + unless ($newversion and $newfile) { + return $self->status(1); + } + $self->status and return $self->status; + uscan_verbose "Looking at \$base = $self->{parse_result}->{base} with\n" + . " \$filepattern = $self->{parse_result}->{filepattern} found\n" + . " \$newfile = $newfile\n" + . " \$newversion = $newversion\n" + . " \$lastversion = $self->{parse_result}->{mangled_lastversion}"; + $self->search_result({ + newversion => $newversion, + newfile => $newfile, + }); + + # The original version of the code didn't use (...) in the watch + # file to delimit the version number; thus if there is no (...) + # in the pattern, we will use the old heuristics, otherwise we + # use the new. + + if ($self->style eq 'old') { + + # Old-style heuristics + if ($newversion =~ /^\D*(\d+\.(?:\d+\.)*\d+)\D*$/) { + $self->search_result->{newversion} = $1; + } else { + uscan_warn <<"EOF"; +$progname warning: In $self->{watchfile}, couldn\'t determine a + pure numeric version number from the file name for watch line + $self->{line} + and file name $newfile + Please use a new style watch file instead! +EOF + $self->status(1); + } + } + return $self->status; +} + +# III - get_upstream_url + +=head3 get_upstream_url() + +Transform newfile/newversion into upstream url using either: + +=over + +=item L::http_upstream_url() +=item L::ftp_upstream_url() +=item L::git_upstream_url() +=item L::svn_upstream_url() + +=back + +Result is stored in B<$self-Eupstream_url> accessor. + +=cut + +sub get_upstream_url { + my ($self) = @_; + uscan_debug "line: get_upstream_url()"; + if ( $self->parse_result->{site} =~ m%^https?://% + and not $self->mode eq 'git' + and not $self->mode eq 'svn') { + $self->mode('http'); + } elsif (not $self->mode) { + $self->mode('ftp'); + } + $self->upstream_url($self->_do('upstream_url')); + $self->status and return $self->status; + uscan_verbose "Upstream URL(+tag) to download is identified as" + . " $self->{upstream_url}"; + return $self->status; +} + +# IV - get_newfile_base + +=head3 get_newfile_base() + +Calculates the filename (filenamemangled) for downloaded file using either: + +=over + +=item L::http_newfile_base() +=item L::ftp_newfile_base() +=item L::git_newfile_base() +=item L::svn_newfile_base() + +=back + +Result is stored in B<$self-Enewfile_base> accessor. + +=cut + +sub get_newfile_base { + my ($self) = @_; + uscan_debug "line: get_newfile_base()"; + $self->newfile_base($self->_do('newfile_base')); + return $self->status if ($self->status); + uscan_verbose + "Filename (filenamemangled) for downloaded file: $self->{newfile_base}"; + return $self->status; +} + +# V - cmp_versions + +=head3 cmp_versions() + +Compare available and local versions. + +=cut + +sub cmp_versions { + my ($self) = @_; + uscan_debug "line: cmp_versions()"; + my $name = $self->component || $self->pkg; + my $mangled_lastversion = $self->parse_result->{mangled_lastversion}; + unless (defined $self->shared->{common_newversion}) { + $self->shared->{common_newversion} + = $self->search_result->{newversion}; + } + + $dehs_tags->{'debian-uversion'} //= $self->parse_result->{lastversion}; + $dehs_tags->{'debian-mangled-uversion'} //= $mangled_lastversion; + $dehs_tags->{'upstream-version'} //= $self->search_result->{newversion}; + $dehs_tags->{'upstream-url'} //= $self->upstream_url; + $dehs_tags->{'component-name'} //= []; + $dehs_tags->{'component-upstream-version'} //= []; + if ($self->component) { + push @{ $dehs_tags->{'component-name'} }, $self->component; + push @{ $dehs_tags->{'component-debian-uversion'} }, + $self->parse_result->{lastversion}; + push @{ $dehs_tags->{'component-debian-mangled-uversion'} }, + $mangled_lastversion; + push @{ $dehs_tags->{'component-upstream-version'} }, + $self->search_result->{newversion}; + push @{ $dehs_tags->{'component-upstream-url'} }, $self->upstream_url; + } + + my $mangled_ver + = Dpkg::Version->new("1:${mangled_lastversion}-0", check => 0); + my $upstream_ver + = Dpkg::Version->new("1:$self->{search_result}->{newversion}-0", + check => 0); + my $compver; + if ($mangled_ver == $upstream_ver) { + $compver = 'same'; + } elsif ($mangled_ver > $upstream_ver) { + $compver = 'older'; + } else { + $compver = 'newer'; + } + + # Version dependent $download adjustment + if (defined $self->shared->{download_version} + and not $self->versionmode eq 'ignore') { + + # Pretend to find a newer upstream version to exit without error + uscan_msg "Newest version of $name on remote site is " + . "$self->{search_result}->{newversion}, " + . "specified download version is $self->{shared}->{download_version}"; + $found++ unless ($self->versionmode =~ /(?:same|ignore)/); + } elsif ($self->versionmode =~ /(?:newer|group|checksum$)/) { + if ($compver eq 'newer') { + uscan_msg "Newest version of $name on remote site is " + . "$self->{search_result}->{newversion}, " + . "local version is $self->{parse_result}->{mangled_lastversion}\n" + . ( + $mangled_lastversion eq $self->parse_result->{lastversion} + ? "" + : " (mangled local version is $mangled_lastversion)\n" + ); + + # There's a newer upstream version available, which may already + # be on our system or may not be + uscan_msg " => Newer package available from:\n" + . " => $self->{upstream_url}"; + $dehs_tags->{'status'} //= "newer package available"; + $main::found++; + } elsif ($compver eq 'same') { + uscan_verbose "Newest version of $name on remote site is " + . $self->search_result->{newversion} + . ", local version is $self->{parse_result}->{mangled_lastversion}\n" + . ( + $mangled_lastversion eq $self->parse_result->{lastversion} + ? "" + : " (mangled local version is $mangled_lastversion)\n" + ); + uscan_verbose " => Package is up to date from:\n" + . " => $self->{upstream_url}"; + $dehs_tags->{'status'} //= "up to date"; + if ($self->shared->{download} > 1) { + + # 2=force-download or 3=overwrite-download + uscan_verbose " => Forcing download as requested"; + $main::found++; + } else { + # 0=no-download or 1=download + $self->shared->{download} = 0; + } + } else { # $compver eq 'old' + uscan_verbose "Newest version of $name on remote site is " + . $self->search_result->{newversion} + . ", local version is $self->{parse_result}->{mangled_lastversion}\n" + . ( + $mangled_lastversion eq $self->parse_result->{lastversion} + ? "" + : " (mangled local version is $mangled_lastversion)\n" + ); + uscan_verbose " => Only older package available from:\n" + . " => $self->{upstream_url}"; + $dehs_tags->{'status'} //= "only older package available"; + if ($self->shared->{download} > 1) { + uscan_verbose " => Forcing download as requested"; + $main::found++; + } else { + $self->shared->{download} = 0; + } + } + } elsif ($self->versionmode eq 'ignore') { + uscan_msg "Newest version of $name on remote site is " + . $self->search_result->{newversion} + . ", ignore local version"; + $dehs_tags->{'status'} //= "package available"; + } else { # same/previous -- secondary-tarball or signature-file + uscan_die "strange ... stanza = same/previous " + . "should have defined \$download_version"; + } + return 0; +} + +# VI - download_file_and_sig + +=head3 download_file_and_sig() + +Download file and, if available and needed, signature files. + +=cut + +my %already_downloaded; + +sub download_file_and_sig { + my ($self) = @_; + uscan_debug "line: download_file_and_sig()"; + my $skip_git_vrfy; + + # If we're not downloading or performing signature verification, we can + # stop here + if (!$self->shared->{download} || $self->shared->{signature} == -1) { + return 0; + } + + # configure downloader + $self->downloader->git_export_all($self->git->{export} eq 'all'); + + # 6.1 download tarball + my $download_available = 0; + my $upstream_base = basename($self->upstream_url); + $self->signature_available(0); + my $sigfile; + my $sigfile_base = $self->newfile_base; + uscan_die +"Already downloaded a file named $self->{newfile_base}: use filenamemangle to avoid this" + if ($already_downloaded{ $self->{newfile_base} }); + $already_downloaded{ $self->{newfile_base} } = 1; + + if ($self->pgpmode ne 'previous') { + + # try download package + if ($self->shared->{download} == 3 + and -e "$self->{config}->{destdir}/$self->{newfile_base}") { + uscan_verbose +"Downloading and overwriting existing file: $self->{newfile_base}"; + uscan_exec_no_fail("rm", "-f", + "$self->{config}->{destdir}/$self->{newfile_base}"); + $download_available = $self->downloader->download( + $self->upstream_url, + "$self->{config}->{destdir}/$self->{newfile_base}", + $self, + $self->parse_result->{base}, + $self->pkg_dir, + $self->pkg, + $self->mode, + $self->gitrepo_dir, + ); + if ($download_available) { + dehs_verbose + "Successfully downloaded package: $self->{newfile_base}\n"; + } else { + dehs_verbose + "Failed to download upstream package: $upstream_base\n"; + } + } elsif (-e "$self->{config}->{destdir}/$self->{newfile_base}") { + $download_available = 1; + dehs_verbose + "Not downloading, using existing file: $self->{newfile_base}\n"; + $skip_git_vrfy = 1; + } elsif ($self->shared->{download} > 0) { + uscan_verbose "Downloading upstream package: $upstream_base"; + $download_available = $self->downloader->download( + $self->upstream_url, + "$self->{config}->{destdir}/$self->{newfile_base}", + $self, + $self->parse_result->{base}, + $self->pkg_dir, + $self->pkg, + $self->mode, + $self->gitrepo_dir, + ); + if ($download_available) { + dehs_verbose + "Successfully downloaded upstream package: $upstream_base\n"; + if (@{ $self->filenamemangle }) { + dehs_verbose + "Renamed upstream package to: $self->{newfile_base}\n"; + } + } else { + dehs_verbose + "Failed to download upstream package: $upstream_base\n"; + } + } else { # $download = 0, + $download_available = 0; + dehs_verbose "Not downloading upstream package: $upstream_base\n"; + } + } + if ($self->pgpmode eq 'self') { + $sigfile_base =~ s/^(.*?)\.[^\.]+$/$1/; # drop .gpg, .asc, ... + if ($self->shared->{signature} == -1) { + uscan_warn("SKIP Checking OpenPGP signature (by request).\n"); + $download_available + = -1; # can't proceed with self-signature archive + $self->signature_available(0); + } elsif (!$self->keyring) { + uscan_die("FAIL Checking OpenPGP signature (no keyring).\n"); + } elsif ($download_available == 0) { + uscan_warn +"FAIL Checking OpenPGP signature (no signed upstream tarball downloaded)."; + return $self->status(1); + } else { + $self->keyring->verify( + "$self->{config}->{destdir}/$sigfile_base", + "$self->{config}->{destdir}/$self->{newfile_base}" + ); + +# XXX FIXME XXX extract signature as detached signature to $self->{config}->{destdir}/$sigfile + $sigfile = $self->{newfile_base}; # XXX FIXME XXX place holder + $self->{newfile_base} = $sigfile_base; + $self->signature_available(3); + } + } + if ($self->pgpmode ne 'previous') { + + # Decompress archive if requested and applicable + if ($download_available == 1 and $self->{'decompress'}) { + my $suffix_gz = $sigfile_base; + $suffix_gz =~ s/.*?(\.gz|\.xz|\.bz2|\.lzma|\.zstd?)?$/$1/; + if ($suffix_gz eq '.gz') { + if (-x '/bin/gunzip') { + uscan_exec('/bin/gunzip', "--keep", + "$self->{config}->{destdir}/$sigfile_base"); + $sigfile_base =~ s/(.*?)\.gz/$1/; + } else { + uscan_warn("Please install gzip.\n"); + return $self->status(1); + } + } elsif ($suffix_gz eq '.xz') { + if (-x '/usr/bin/unxz') { + uscan_exec('/usr/bin/unxz', "--keep", + "$self->{config}->{destdir}/$sigfile_base"); + $sigfile_base =~ s/(.*?)\.xz/$1/; + } else { + uscan_warn("Please install xz-utils.\n"); + return $self->status(1); + } + } elsif ($suffix_gz eq '.bz2') { + if (-x '/bin/bunzip2') { + uscan_exec('/bin/bunzip2', "--keep", + "$self->{config}->{destdir}/$sigfile_base"); + $sigfile_base =~ s/(.*?)\.bz2/$1/; + } else { + uscan_warn("Please install bzip2.\n"); + return $self->status(1); + } + } elsif ($suffix_gz eq '.lzma') { + if (-x '/usr/bin/unlzma') { + uscan_exec('/usr/bin/unlzma', "--keep", + "$self->{config}->{destdir}/$sigfile_base"); + $sigfile_base =~ s/(.*?)\.lzma/$1/; + } else { + uscan_warn "Please install xz-utils or lzma."; + return $self->status(1); + } + } elsif ($suffix_gz =~ /.zstd?/) { + if (-x '/usr/bin/unzstd') { + uscan_exec('/usr/bin/unzstd', "--keep", + "$self->{config}->{destdir}/$sigfile_base"); + $sigfile_base =~ s/(.*?)\.zst/$1/; + } else { + uscan_warn("Please install zstd.\n"); + return $self->status(1); + } + } else { + uscan_die "Unknown type file to decompress: $sigfile_base"; + } + } + } + + # 6.2 download signature + my $pgpsig_url; + my $suffix_sig; + if (($self->pgpmode eq 'default' or $self->pgpmode eq 'auto') + and $self->shared->{signature} == 1) { + uscan_verbose +"Start checking for common possible upstream OpenPGP signature files"; + foreach $suffix_sig (qw(asc gpg pgp sig sign)) { + my $sigrequest = HTTP::Request->new( + 'HEAD' => "$self->{upstream_url}.$suffix_sig"); + my $sigresponse + = $self->downloader->user_agent->request($sigrequest); + if ($sigresponse->is_success()) { + if ($self->pgpmode eq 'default') { + uscan_warn "Possible OpenPGP signature found at:\n" + . " $self->{upstream_url}.$suffix_sig\n" + . " * Add opts=pgpsigurlmangle=s/\$/.$suffix_sig/ or " + . "opts=pgpmode=auto to debian/watch\n" + . " * Add debian/upstream/signing-key.asc.\n" + . " See uscan(1) for more details"; + $self->pgpmode('none'); + } else { # auto + $self->pgpmode('mangle'); + $self->pgpsigurlmangle(['s/$/.' . $suffix_sig . '/',]); + } + last; + } + } + uscan_verbose + "End checking for common possible upstream OpenPGP signature files"; + $self->signature_available(0); + } + if ($self->pgpmode eq 'mangle') { + $pgpsig_url = $self->upstream_url; + if ( + mangle( + $self->watchfile, 'pgpsigurlmangle:', + \@{ $self->pgpsigurlmangle }, \$pgpsig_url + ) + ) { + return $self->status(1); + } + if (!$suffix_sig) { + $suffix_sig = $pgpsig_url; + $suffix_sig =~ s/^.*\.//; + if ($suffix_sig and $suffix_sig !~ m/^[a-zA-Z]+$/) + { # strange suffix + $suffix_sig = "pgp"; + } + uscan_debug "Add $suffix_sig suffix based on $pgpsig_url."; + } + $sigfile = "$sigfile_base.$suffix_sig"; + if ($self->shared->{signature} == 1) { + uscan_verbose "Downloading OpenPGP signature from:\n" + . " $pgpsig_url (pgpsigurlmangled)\n as $sigfile"; + $self->signature_available( + $self->downloader->download( + $pgpsig_url, "$self->{config}->{destdir}/$sigfile", + $self, $self->parse_result->{base}, + $self->pkg_dir, $self->pkg, + $self->mode + )); + } else { # -1, 0 + uscan_verbose "Not downloading OpenPGP signature from:\n" + . " $pgpsig_url (pgpsigurlmangled)\n as $sigfile"; + $self->signature_available( + (-e "$self->{config}->{destdir}/$sigfile") ? 1 : 0); + } + } elsif ($self->pgpmode eq 'previous') { + $pgpsig_url = $self->upstream_url; + $sigfile = $self->newfile_base; + if ($self->shared->{signature} == 1) { + uscan_verbose "Downloading OpenPGP signature from:\n" + . " $pgpsig_url (pgpmode=previous)\n as $sigfile"; + $self->signature_available( + $self->downloader->download( + $pgpsig_url, "$self->{config}->{destdir}/$sigfile", + $self, $self->parse_result->{base}, + $self->pkg_dir, $self->pkg, + $self->mode + )); + } else { # -1, 0 + uscan_verbose "Not downloading OpenPGP signature from:\n" + . " $pgpsig_url (pgpmode=previous)\n as $sigfile"; + $self->signature_available( + (-e "$self->{config}->{destdir}/$sigfile") ? 1 : 0); + } + $download_available = $self->shared->{previous_download_available}; + $self->{newfile_base} = $self->shared->{previous_newfile_base}; + $sigfile_base = $self->shared->{previous_sigfile_base}; + uscan_verbose + "Use $self->{newfile_base} as upstream package (pgpmode=previous)"; + } + $self->sigfile("$self->{config}->{destdir}/$sigfile") if ($sigfile); + + # 6.3 verify signature + # + # 6.3.1 pgpmode + if ($self->pgpmode eq 'mangle' or $self->pgpmode eq 'previous') { + if ($self->shared->{signature} == -1) { + uscan_verbose("SKIP Checking OpenPGP signature (by request).\n"); + } elsif (!$self->keyring) { + uscan_die("FAIL Checking OpenPGP signature (no keyring).\n"); + } elsif ($download_available == 0) { + uscan_warn +"FAIL Checking OpenPGP signature (no upstream tarball downloaded)."; + return $self->status(1); + } elsif ($self->signature_available == 0) { + uscan_die( +"FAIL Checking OpenPGP signature (no signature file downloaded).\n" + ); + } else { + if ($self->shared->{signature} == 0) { + uscan_verbose "Use the existing file: $sigfile"; + } + $self->keyring->verifyv( + "$self->{config}->{destdir}/$sigfile", + "$self->{config}->{destdir}/$sigfile_base" + ); + } + $self->shared->{previous_newfile_base} = undef; + $self->shared->{previous_sigfile_base} = undef; + $self->shared->{previous_newversion} = undef; + $self->shared->{previous_download_available} = undef; + } elsif ($self->pgpmode eq 'none' or $self->pgpmode eq 'default') { + uscan_verbose "Missing OpenPGP signature."; + $self->shared->{previous_newfile_base} = undef; + $self->shared->{previous_sigfile_base} = undef; + $self->shared->{previous_newversion} = undef; + $self->shared->{previous_download_available} = undef; + } elsif ($self->pgpmode eq 'next') { + uscan_verbose + "Defer checking OpenPGP signature to the next watch line"; + $self->shared->{previous_newfile_base} = $self->newfile_base; + $self->shared->{previous_sigfile_base} = $sigfile_base; + $self->shared->{previous_newversion} + = $self->search_result->{newversion}; + $self->shared->{previous_download_available} = $download_available; + uscan_verbose "previous_newfile_base = $self->{newfile_base}"; + uscan_verbose "previous_sigfile_base = $sigfile_base"; + uscan_verbose + "previous_newversion = $self->{search_result}->{newversion}"; + uscan_verbose "previous_download_available = $download_available"; + } elsif ($self->pgpmode eq 'self') { + $self->shared->{previous_newfile_base} = undef; + $self->shared->{previous_sigfile_base} = undef; + $self->shared->{previous_newversion} = undef; + $self->shared->{previous_download_available} = undef; + } elsif ($self->pgpmode eq 'auto') { + uscan_verbose "Don't check OpenPGP signature"; + } elsif ($self->pgpmode eq 'gittag') { + if ($skip_git_vrfy) { + uscan_warn + "File already downloaded, skipping OpenPGP verification"; + } elsif (!$self->keyring) { + uscan_warn "No keyring file, skipping OpenPGP verification"; + return $self->status(1); + } else { + my ($gitrepo, $gitref) = split /[[:space:]]+/, $self->upstream_url; + $self->keyring->verify_git( + "$self->{downloader}->{destdir}/" + . $self->pkg + . "-temporary.$$.git", + $gitref, $self->downloader->git_upstream + ); + } + } else { + uscan_warn "strange ... unknown pgpmode = $self->{pgpmode}"; + return $self->status(1); + } + my $mangled_newversion = $self->search_result->{newversion}; + if ( + mangle( + $self->watchfile, 'oversionmangle:', + \@{ $self->oversionmangle }, \$mangled_newversion + ) + ) { + return $self->status(1); + } + + if (!$self->shared->{common_mangled_newversion}) { + + # $mangled_newversion = version used for the new orig.tar.gz (a.k.a oversion) + uscan_verbose +"New orig.tar.* tarball version (oversionmangled): $mangled_newversion"; + + # MUT package always use the same $common_mangled_newversion + # MUT disables repacksuffix so it is safe to have this before mk-origtargz + $self->shared->{common_mangled_newversion} = $mangled_newversion; + } + if ($self->pgpmode eq 'next') { + uscan_verbose "Read the next watch line (pgpmode=next)"; + return 0; + } + if ($self->safe) { + uscan_verbose "SKIP generation of orig.tar.* " + . "and running of script/uupdate (--safe)"; + return 0; + } + if ($download_available == 0) { + uscan_warn "No upstream tarball downloaded." + . " No further processing with mk_origtargz ..."; + return $self->status(1); + } + if ($download_available == -1) { + uscan_warn "No upstream tarball unpacked from self signature file." + . " No further processing with mk_origtargz ..."; + return $self->status(1); + } + if ($self->signature_available == 1 and $self->decompress) { + $self->signature_available(2); + } + $self->search_result->{sigfile} = $sigfile; + $self->must_download(1); + return $self->status; +} + +# VII - mkorigtargz + +=head3 mkorigtargz() + +Call L to build source tarball. + +=cut + +sub mkorigtargz { + my ($self) = @_; + uscan_debug "line: mkorigtargz()"; + return 0 unless ($self->must_download); + my $mk_origtargz_out; + my $path = "$self->{config}->{destdir}/$self->{newfile_base}"; + my $target = $self->newfile_base; + unless ($self->symlink eq "no" or $self->symlink eq "0") { + require Devscripts::MkOrigtargz; + if ($Devscripts::MkOrigtargz::found_comp) { + uscan_verbose + "Forcing compression to $Devscripts::MkOrigtargz::found_comp"; + $self->repack(1); + } elsif ($path =~ /\.tar$/) { + # Always repack uncompressed tarballs + $self->repack(1); + } + @ARGV = (); + push @ARGV, "--package", $self->pkg; + push @ARGV, "--version", $self->shared->{common_mangled_newversion}; + push @ARGV, '--repack-suffix', $self->repacksuffix + if $self->repacksuffix; + push @ARGV, "--rename" if $self->symlink eq "rename"; + push @ARGV, "--copy" if $self->symlink eq "copy"; + push @ARGV, "--signature", $self->signature_available + if ($self->signature_available != 0); + push @ARGV, "--signature-file", + "$self->{config}->{destdir}/$self->{search_result}->{sigfile}" + if ($self->signature_available != 0); + push @ARGV, "--repack" if $self->repack; + push @ARGV, "--force-repack" if $self->force_repack; + push @ARGV, "--component", $self->component + if $self->component; + push @ARGV, "--compression", + $Devscripts::MkOrigtargz::found_comp || $self->compression; + push @ARGV, "--directory", $self->config->destdir; + push @ARGV, "--copyright-file", "debian/copyright" + if ($self->config->exclusion && -e "debian/copyright"); + push @ARGV, "--copyright-file", $self->config->copyright_file + if ($self->config->exclusion && $self->config->copyright_file); + push @ARGV, "--unzipopt", $self->unzipopt + if $self->unzipopt; + push @ARGV, $path; + my $tmp = $Devscripts::Output::die_on_error; + + uscan_verbose "Launch mk-origtargz with options:\n " + . join(" ", @ARGV); + my $mk = Devscripts::MkOrigtargz->new; + $mk->do; + uscan_die "mk-origtargz failed" if ($mk->status); + + $path = $mk->destfile_nice; + $target = basename($path); + $self->shared->{common_mangled_newversion} = $1 + if $target =~ m/[^_]+_(.+)\.orig(?:-.+)?\.tar\.(?:gz|bz2|lzma|xz)$/; + uscan_verbose "New orig.tar.* tarball version (after mk-origtargz): " + . "$self->{shared}->{common_mangled_newversion}"; + } + push @{ $self->shared->{origtars} }, $target; + + if ($self->config->log) { + + # Check pkg-ver.tar.gz and pkg_ver.orig.tar.gz + if (!$self->shared->{uscanlog}) { + $self->shared->{uscanlog} + = "$self->{config}->{destdir}/$self->{pkg}_$self->{shared}->{common_mangled_newversion}.uscan.log"; + if (-e "$self->{shared}->{uscanlog}.old") { + unlink "$self->{shared}->{uscanlog}.old" + or uscan_die "Can\'t remove old backup log " + . "$self->{shared}->{uscanlog}.old: $!"; + uscan_warn "Old backup uscan log found. " + . "Remove: $self->{shared}->{uscanlog}.old"; + } + if (-e $self->shared->uscanlog) { + move($self->shared->uscanlog, + "$self->{shared}->{uscanlog}.old"); + uscan_warn "Old uscan log found. " + . "Moved to: $self->{shared}->{uscanlog}.old"; + } + open(USCANLOG, ">> $self->{shared}->{uscanlog}") + or uscan_die "$progname: could not open " + . "$self->{shared}->{uscanlog} for append: $!"; + print USCANLOG "# uscan log\n"; + } else { + open(USCANLOG, ">> $self->{shared}->{uscanlog}") + or uscan_die "$progname: could not open " + . "$self->{shared}->{uscanlog} for append: $!"; + } + if ($self->symlink ne "rename") { + my $umd5sum = Digest::MD5->new; + my $omd5sum = Digest::MD5->new; + open(my $ufh, '<', + "$self->{config}->{destdir}/$self->{newfile_base}") + or uscan_die "Can't open '" + . "$self->{config}->{destdir}/$self->{newfile_base}" . "': $!"; + open(my $ofh, '<', "$self->{config}->{destdir}/${target}") + or uscan_die + "Can't open '$self->{config}->{destdir}/${target}': $!"; + $umd5sum->addfile($ufh); + $omd5sum->addfile($ofh); + close($ufh); + close($ofh); + my $umd5hex = $umd5sum->hexdigest; + my $omd5hex = $omd5sum->hexdigest; + + if ($umd5hex eq $omd5hex) { + print USCANLOG + "# == $self->{newfile_base}\t-->\t${target}\t(same)\n"; + } else { + print USCANLOG + "# !! $self->{newfile_base}\t-->\t${target}\t(changed)\n"; + } + print USCANLOG "$umd5hex $self->{newfile_base}\n"; + print USCANLOG "$omd5hex ${target}\n"; + } + close USCANLOG + or uscan_die + "$progname: could not close $self->{shared}->{uscanlog} $!"; + } + + dehs_verbose "$mk_origtargz_out\n" if $mk_origtargz_out; + if ($self->component) { + push @{ $dehs_tags->{"component-target"} }, $target; + push @{ $dehs_tags->{"component-target-path"} }, $path; + } else { + $dehs_tags->{target} = $target; + $dehs_tags->{'target-path'} = $path; + } + +####################################################################### + # code 3.10: call uupdate +####################################################################### + # Do whatever the user wishes to do + if ($self->parse_result->{action}) { + my @cmd = shellwords($self->parse_result->{action}); + + # script invocation changed in $watch_version=4 + if ($self->watch_version > 3) { + if ($cmd[0] eq "uupdate") { + push @cmd, "-f"; + if ($verbose) { + push @cmd, "--verbose"; + } + if ($self->badversion) { + push @cmd, "-b"; + } + } + push @cmd, "--upstream-version", + $self->shared->{common_mangled_newversion}; + if (abs_path($self->{config}->{destdir}) ne abs_path("..")) { + foreach my $origtar (@{ $self->shared->{origtars} }) { + copy(catfile($self->{config}->{destdir}, $origtar), + catfile("..", $origtar)); + } + } + } elsif ($self->watch_version > 1) { + + # Any symlink requests are already handled by uscan + if ($cmd[0] eq "uupdate") { + push @cmd, "--no-symlink"; + if ($verbose) { + push @cmd, "--verbose"; + } + if ($self->badversion) { + push @cmd, "-b"; + } + } + push @cmd, "--upstream-version", + $self->shared->{common_mangled_newversion}, $path; + } else { + push @cmd, $path, $self->shared->{common_mangled_newversion}; + } + my $actioncmd = join(" ", @cmd); + my $actioncmdmsg; + spawn(exec => \@cmd, wait_child => 1, to_string => \$actioncmdmsg); + local $, = ' '; + dehs_verbose "Executing user specified script:\n @cmd\n" + . $actioncmdmsg; + } + $self->destfile($path); + + return 0; +} + +# VIII - clean + +=head3 clean() + +Clean temporary files using either: + +=over + +=item L::http_clean() +=item L::ftp_clean() +=item L::git_clean() +=item L::svn_clean() + +=back + +=cut + +sub clean { + my ($self) = @_; + $self->_do('clean'); +} + +# Internal sub to call sub modules (git, http,...) +sub _do { + my ($self, $sub) = @_; + my $mode = $self->mode; + $mode =~ s/git-dumb/git/; + $sub = $mode . "_$sub"; + with("Devscripts::Uscan::$mode") unless ($self->can($sub)); + if ($@) { + uscan_warn "Unknown '$mode' mode set in $self->{watchfile} ($@)"; + $self->status(1); + } + return $self->$sub; +} + +sub setBooleanValue { + my ($self, $key, $value) = @_; + $self->$key(_booleanVal($value, $key)); +} + +sub _booleanVal { + uscan_warn 'Option ' + . ucfirst($_[1] // 'Unkwown') + . " should be yes or no, not '$_[0]'. Set it to 'no'" + if $_[0] !~ /^(?:1|0|yes|no)$/i; + return $_[0] =~ /^(?:1|yes)$/ ? 1 : 0; +} + +1; + +=head1 SEE ALSO + +L, L, L + +=head1 AUTHOR + +B was originally written by Christoph Lameter +Eclameter@debian.orgE (I believe), modified by Julian Gilbey +Ejdg@debian.orgE. HTTP support was added by Piotr Roszatycki +Edexter@debian.orgE. B was rewritten in Perl by Julian Gilbey. +Xavier Guimard Eyadd@debian.orgE rewrote uscan in object +oriented Perl. + +=head1 COPYRIGHT AND LICENSE + +Copyright 2002-2006 by Julian Gilbey , +2018 by Xavier Guimard + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +=cut diff -pruN 2.25.15/lib/Devscripts/Uscan/_vcs.pm 2.25.16/lib/Devscripts/Uscan/_vcs.pm --- 2.25.15/lib/Devscripts/Uscan/_vcs.pm 2024-11-23 10:24:47.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/_vcs.pm 2025-07-20 08:12:37.000000000 +0000 @@ -44,9 +44,8 @@ sub get_refs { map { $_ if defined($_) } $ref =~ m&^$_pattern$&); if ( mangle( - $self->watchfile, \$self->line, - 'uversionmangle:', \@{ $self->uversionmangle }, - \$version + $self->watchfile, 'uversionmangle:', + \@{ $self->uversionmangle }, \$version ) ) { return undef; diff -pruN 2.25.15/lib/Devscripts/Uscan/_xtp.pm 2.25.16/lib/Devscripts/Uscan/_xtp.pm --- 2.25.15/lib/Devscripts/Uscan/_xtp.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/_xtp.pm 2025-07-20 08:12:37.000000000 +0000 @@ -24,9 +24,8 @@ sub _xtp_newfile_base { uscan_verbose "Matching target for filenamemangle: $newfile_base"; if ( mangle( - $self->watchfile, \$self->line, - 'filenamemangle:', \@{ $self->filenamemangle }, - \$newfile_base + $self->watchfile, 'filenamemangle:', + \@{ $self->filenamemangle }, \$newfile_base ) ) { $self->status(1); diff -pruN 2.25.15/lib/Devscripts/Uscan/ftp.pm 2.25.16/lib/Devscripts/Uscan/ftp.pm --- 2.25.15/lib/Devscripts/Uscan/ftp.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/ftp.pm 2025-07-20 08:12:37.000000000 +0000 @@ -47,9 +47,8 @@ sub ftp_search { = join(".", $file =~ m/^$self->{parse_result}->{pattern}$/); if ( mangle( - $self->watchfile, \$self->line, - 'uversionmangle:', \@{ $self->uversionmangle }, - \$mangled_version + $self->watchfile, 'uversionmangle:', + \@{ $self->uversionmangle }, \$mangled_version ) ) { return undef; @@ -79,9 +78,8 @@ sub ftp_search { $file =~ m/^$self->{parse_result}->{filepattern}$/); if ( mangle( - $self->watchfile, \$self->line, - 'uversionmangle:', \@{ $self->uversionmangle }, - \$mangled_version + $self->watchfile, 'uversionmangle:', + \@{ $self->uversionmangle }, \$mangled_version ) ) { return undef; @@ -117,7 +115,7 @@ sub ftp_search { } else { uscan_warn "In $self->{watchfile} no matching files for version $self->{shared}->{download_version}" - . " in watch line\n $self->{line}"; + . " in watch line"; return undef; } } else { @@ -141,7 +139,7 @@ sub ftp_upstream_url { sub ftp_newdir { my ($line, $site, $dir, $pattern, $dirversionmangle, $watchfile, - $lineptr, $download_version) + $download_version) = @_; my $downloader = $line->downloader; @@ -182,9 +180,8 @@ sub ftp_newdir { my $mangled_version = join(".", $dir =~ m/^$pattern$/); if ( mangle( - $watchfile, $lineptr, - 'dirversionmangle:', \@{$dirversionmangle}, - \$mangled_version + $watchfile, 'dirversionmangle:', + \@{$dirversionmangle}, \$mangled_version ) ) { return 1; @@ -222,9 +219,8 @@ sub ftp_newdir { my $mangled_version = join(".", $dir =~ m/^$pattern$/); if ( mangle( - $watchfile, $lineptr, - 'dirversionmangle:', \@{$dirversionmangle}, - \$mangled_version + $watchfile, 'dirversionmangle:', + \@{$dirversionmangle}, \$mangled_version ) ) { return 1; diff -pruN 2.25.15/lib/Devscripts/Uscan/git.pm 2.25.16/lib/Devscripts/Uscan/git.pm --- 2.25.15/lib/Devscripts/Uscan/git.pm 2025-05-07 23:26:41.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/git.pm 2025-07-20 08:12:37.000000000 +0000 @@ -1,7 +1,7 @@ package Devscripts::Uscan::git; use strict; -use Cwd qw/abs_path/; +use Cwd qw/abs_path cwd/; use Devscripts::Uscan::Output; use Devscripts::Uscan::Utils; use Devscripts::Uscan::_vcs; @@ -17,55 +17,41 @@ sub git_search { my ($newfile, $newversion); if ($self->versionless) { $newfile = $self->parse_result->{filepattern}; # HEAD or heads/ + my @args = (); + my $curdir = cwd(); + + push(@args, '--bare') if not $self->git->{modules}; + if ($self->pretty eq 'describe') { $self->git->{mode} = 'full'; } - if ( $self->git->{mode} eq 'shallow' - and $self->parse_result->{filepattern} eq 'HEAD') { - uscan_exec( - 'git', - 'clone', - '--quiet', - '--bare', - '--depth=1', - $self->parse_result->{base}, - "$self->{downloader}->{destdir}/" . $self->gitrepo_dir - ); - $self->downloader->gitrepo_state(1); - } elsif ($self->git->{mode} eq 'shallow' - and $self->parse_result->{filepattern} ne 'HEAD') - { # heads/ - $newfile =~ s&^heads/&&; # Set to - uscan_exec( - 'git', - 'clone', - '--quiet', - '--bare', - '--depth=1', - '-b', - "$newfile", - $self->parse_result->{base}, - "$self->{downloader}->{destdir}/" . $self->gitrepo_dir - ); + + if ($self->git->{mode} eq 'shallow') { + push(@args, '--depth=1'); $self->downloader->gitrepo_state(1); } else { - uscan_exec( - 'git', 'clone', '--quiet', '--bare', - $self->parse_result->{base}, - "$self->{downloader}->{destdir}/" . $self->gitrepo_dir - ); $self->downloader->gitrepo_state(2); } - if ($self->pretty eq 'describe') { + if ($newfile ne 'HEAD') { + $newfile = s&^heads/&&; # Set to + push(@args, '-b', "$newfile"); + } + + # clone main repository + uscan_exec( + 'git', 'clone', @args, + $self->parse_result->{base}, + "$self->{downloader}->{destdir}/" . $self->gitrepo_dir + ); + + chdir "$self->{downloader}->{destdir}/$self->{gitrepo_dir}"; + + if ($self->pretty eq 'describe') { # use unannotated tags to be on safe side + uscan_debug "git describe --tags"; spawn( - exec => [ - 'git', -"--git-dir=$self->{downloader}->{destdir}/$self->{gitrepo_dir}", - 'describe', - '--tags' - ], + exec => ['git', 'describe', '--tags'], wait_child => 1, to_string => \$newversion ); @@ -73,9 +59,8 @@ sub git_search { chomp($newversion); if ( mangle( - $self->watchfile, \$self->line, - 'uversionmangle:', \@{ $self->uversionmangle }, - \$newversion + $self->watchfile, 'uversionmangle:', + \@{ $self->uversionmangle }, \$newversion ) ) { return undef; @@ -83,41 +68,22 @@ sub git_search { } else { my $tmp = $ENV{TZ}; $ENV{TZ} = 'UTC'; - $newfile - = $self->parse_result->{filepattern}; # HEAD or heads/ - if ($self->parse_result->{filepattern} eq 'HEAD') { - spawn( - exec => [ - 'git', -"--git-dir=$self->{downloader}->{destdir}/$self->{gitrepo_dir}", - 'log', - '-1', - "--date=format-local:$self->{date}", - "--pretty=$self->{pretty}" - ], - wait_child => 1, - to_string => \$newversion - ); - } else { - $newfile =~ s&^heads/&&; # Set to - spawn( - exec => [ - 'git', -"--git-dir=$self->{downloader}->{destdir}/$self->{gitrepo_dir}", - 'log', - '-1', - '-b', - "$newfile", - "--date=format-local:$self->{date}", - "--pretty=$self->{pretty}" - ], - wait_child => 1, - to_string => \$newversion - ); - } + @args = ('-1'); + push(@args, '-b', $newfile) if ($newfile ne 'HEAD'); + push(@args, "--date=format-local:$self->{date}"); + push(@args, "--pretty=$self->{pretty}"); + + uscan_debug "git log " . join(' ', @args); + + spawn( + exec => ['git', 'log', @args], + wait_child => 1, + to_string => \$newversion + ); $ENV{TZ} = $tmp; chomp($newversion); } + chdir "$curdir"; } ################################################ # search $newfile $newversion (git mode w/tag) diff -pruN 2.25.15/lib/Devscripts/Uscan/http.pm 2.25.16/lib/Devscripts/Uscan/http.pm --- 2.25.15/lib/Devscripts/Uscan/http.pm 2024-09-12 20:21:10.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/http.pm 2025-07-20 08:15:41.000000000 +0000 @@ -64,7 +64,7 @@ sub http_search { my $baseUrl = $1; my $hdr = $2; if ($self->parse_result->{base} =~ m#^\Q$baseUrl\E(?:/.*)?$#) { - $request->header($hdr => $self->headers->{$k}); + $request->header($hdr => $self->downloader->headers->{$k}); uscan_verbose "Set per-host custom header $hdr for " . $self->parse_result->{base}; } else { @@ -133,7 +133,7 @@ sub http_search { (undef, $newversion, $newfile, undef) = @{ $hrefs[0] }; } else { uscan_warn -"In $self->{watchfile} no matching files for watch line\n $self->{line}"; +"In $self->{watchfile} no matching files for watch line\n $self->{watchSource}->{source}"; return undef; } } @@ -211,9 +211,8 @@ sub http_upstream_url { if (@{ $self->downloadurlmangle }) { if ( mangle( - $self->watchfile, \$self->line, - 'downloadurlmangle:', \@{ $self->downloadurlmangle }, - \$upstream_url + $self->watchfile, 'downloadurlmangle:', + \@{ $self->downloadurlmangle }, \$upstream_url ) ) { $self->status(1); @@ -225,7 +224,7 @@ sub http_upstream_url { sub http_newdir { my ($https, $line, $site, $dir, $pattern, $dirversionmangle, - $watchfile, $lineptr, $download_version) + $watchfile, $download_version) = @_; my $downloader = $line->downloader; @@ -377,9 +376,8 @@ sub html_search { # pagenmangle: should not abuse this slow operation if ( mangle( - $self->watchfile, \$self->line, - 'pagemangle:\n', [@{ $self->pagemangle }], - \$content + $self->watchfile, 'pagemangle:\n', + [@{ $self->pagemangle }], \$content ) ) { return undef; @@ -489,9 +487,8 @@ sub parse_href { if ( mangle( - $self->watchfile, \$self->line, - "$mangle:", \@{ $self->$mangle }, - \$mangled_version + $self->watchfile, "$mangle:", + \@{ $self->$mangle }, \$mangled_version ) ) { return (); diff -pruN 2.25.15/lib/Devscripts/Uscan/svn.pm 2.25.16/lib/Devscripts/Uscan/svn.pm --- 2.25.15/lib/Devscripts/Uscan/svn.pm 2024-09-09 12:40:17.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan/svn.pm 2025-07-20 08:12:37.000000000 +0000 @@ -30,9 +30,8 @@ sub svn_search { $newversion = sprintf '0.0~svn%d', $newversion; if ( mangle( - $self->watchfile, \$self->line, - 'uversionmangle:', \@{ $self->uversionmangle }, - \$newversion + $self->watchfile, 'uversionmangle:', + \@{ $self->uversionmangle }, \$newversion ) ) { return undef; diff -pruN 2.25.15/lib/Devscripts/Uscan.pm 2.25.16/lib/Devscripts/Uscan.pm --- 2.25.15/lib/Devscripts/Uscan.pm 1970-01-01 00:00:00.000000000 +0000 +++ 2.25.16/lib/Devscripts/Uscan.pm 2025-07-20 08:12:37.000000000 +0000 @@ -0,0 +1,165 @@ +package Devscripts::Uscan; + +use strict; +use warnings; +use Cwd qw/cwd/; +use Exporter 'import'; +use Devscripts::Uscan::Config; +use Devscripts::Uscan::FindFiles; +use Devscripts::Uscan::Output; +use Devscripts::Uscan::WatchFile; + +our @EXPORT = (qw(uscan process_watchfile)); + +sub uscan { + # Reset global variables + %Devscripts::Uscan::WatchLine::already_downloaded = (); + Devscripts::Uscan::Output::reset(); + + # Initialize configuration + my $config = Devscripts::Uscan::Config->new->parse; + if ($dehs) { + uscan_verbose "The --dehs option enabled.\n" + . " STDOUT = XML output for use by other programs\n" + . " STDERR = plain text output for human\n" + . " Use the redirection of STDOUT to a file to get the clean XML data"; + } + + my $res = 0; + + # Search for watchfiles + my @wf = find_watch_files($config); + foreach (@wf) { + + # Read watchfiles + my ($tmp) = process_watchfile($config, @$_); + $res ||= $tmp; + + # Are there any warnings to give if we're using dehs? + dehs_output if ($dehs); + } + + uscan_verbose "Scan finished"; + return ($res, $found); +} + +sub process_watchfile { + my ($config, $pkg_dir, $package, $version, $watchfile) = @_; + my $opwd = cwd(); + chdir $pkg_dir; + + my $wf = Devscripts::Uscan::WatchFile->new({ + config => $config, + package => $package, + pkg_dir => $pkg_dir, + pkg_version => $version, + watchfile => $watchfile, + }); + return ($wf->status, $found) if ($wf->status); + + my $res = $wf->process_lines; + chdir $opwd; + return ($res, $found); +} + +1; +__END__ + +=head1 NAME + +Devscripts::Uscan - Main L library + +=head1 SYNOPSIS + + use Devscripts::Uscan; + my ($res, $found) = uscan(); + exit($res ? $res : $found ? 0 : 1); + +=head1 DESCRIPTION + +Devscripts::Uscan is the main library called by L + +=head2 EXPORT + +This functions are automatically imported: + +=head3 B + +Parse watch files and return two values: + +=over + +=item * B<$res>: the exit code. 0 if nothing wrong happened. + +=item * B<$found>: return the number of new upstream found. + +=back + +=head3 B + +Read given watch file and does L job. + +=head4 Arguments + +=over + +=item * B<$config>: a L object + +=item * B<$pkg_dir>: root of the Debian source directory + +=item * B<$package>: name of the package + +=item * B<$version>: current Debian version of the package + +=item * B<$watchfile>: path to the watch file + +=back + +=head4 Returned values + +B returns 2 values: + +=over + +=item * B<$res>: the exit status. 0 if nothing wrong happened. + +=item * B<$found>: number of upstream updates found. + +B: this value is a cumulative one. If you want to call +B more than one time and want to check this value for +the current watch file, you have to reset it using the global B<$found> +variable provided by L: + + use Devscripts::Uscan::Output; + # Loop + my $res; + while (XX) { + # ... + $found = 0; + $res = process_watchfile(@arguments); + if($found) { + #... + } + } + + +=back + +=head1 SEE ALSO + +L, L + +=head1 AUTHOR + +Xavier Guimard + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2021 by Xavier Guimard + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.32.1 or, +at your option, any later version of Perl 5 you may have available. + + +=cut diff -pruN 2.25.15/po4a/Makefile 2.25.16/po4a/Makefile --- 2.25.15/po4a/Makefile 2025-05-07 23:26:41.000000000 +0000 +++ 2.25.16/po4a/Makefile 2025-07-20 08:31:22.000000000 +0000 @@ -7,11 +7,12 @@ DESC_fr/ = Utilitaires Debian DESC_pt/ = Utilitários Debian GEN_TR_MAN1S := $(sort $(foreach lang,$(LANGS),$(patsubst %.1,$(lang)/%.$(lang).1,$(GEN_MAN1S)))) +GEN_TR_MAN5S := $(sort $(foreach lang,$(LANGS),$(patsubst %.5,$(lang)/%.$(lang).5,$(GEN_MAN5S)))) all: translate # GEN_TR_MAN1S needs translate finished, serialize the calls @$(MAKE) transform -transform: $(GEN_TR_MAN1S) +transform: $(GEN_TR_MAN1S) $(GEN_TR_MAN5S) translate: ../doc/devscripts.7 po4a --previous --no-backups --keep=0 devscripts-po4a.conf @@ -36,3 +37,13 @@ clean: ../doc/devscripts.7 mkdir -p $(LANGS) xsltproc --nonet -o $@ \ /usr/share/sgml/docbook/stylesheet/xsl/nwalsh/manpages/docbook.xsl $< +%.5:: %.pl translate + -podchecker $< + pod2man --utf8 --center=" " --release="$(DESC_$(dir $@))" $< > $@ +%.5:: %.pod translate + -podchecker $< + pod2man --utf8 --center=" " --release="$(DESC_$(dir $@))" $< > $@ +%.5:: %.dbk translate + mkdir -p $(LANGS) + xsltproc --nonet -o $@ \ + /usr/share/sgml/docbook/stylesheet/xsl/nwalsh/manpages/docbook.xsl $< diff -pruN 2.25.15/po4a/po/de.po 2.25.16/po4a/po/de.po --- 2.25.15/po4a/po/de.po 2025-05-22 10:00:39.000000000 +0000 +++ 2.25.16/po4a/po/de.po 2025-07-20 08:24:55.000000000 +0000 @@ -7,7 +7,7 @@ msgid "" msgstr "" "Project-Id-Version: devscripts 2.18.9\n" "Report-Msgid-Bugs-To: devscripts@packages.debian.org\n" -"POT-Creation-Date: 2025-05-19 07:42+0000\n" +"POT-Creation-Date: 2025-07-20 10:24+0200\n" "PO-Revision-Date: 2025-05-05 15:21+0200\n" "Last-Translator: Dorle Osterode \n" "Language-Team: de \n" @@ -169,7 +169,7 @@ msgstr "B [I #: ../scripts/mk-origtargz.pl:39 ../scripts/nmudiff.1:6 #: ../scripts/origtargz.pl:34 ../scripts/plotchangelog.1:7 #: ../scripts/pts-subscribe.1:8 ../scripts/rc-alert.1:8 -#: ../scripts/rmadison.pl:273 ../scripts/sadt.pod:25 ../scripts/salsa.pl:28 +#: ../scripts/rmadison.pl:273 ../scripts/sadt.pod:25 ../scripts/salsa.pl:31 #: ../doc/suspicious-source.1:24 ../scripts/svnpath.pl:17 #: ../scripts/tagpending.pl:88 ../scripts/transition-check.pl:33 #: ../scripts/uscan.pl:42 ../scripts/uupdate.1:10 ../doc/what-patch.1:8 @@ -226,7 +226,7 @@ msgstr "" #: ../scripts/mk-origtargz.pl:63 ../scripts/nmudiff.1:24 #: ../scripts/origtargz.pl:100 ../scripts/plotchangelog.1:43 #: ../scripts/pts-subscribe.1:18 ../scripts/rc-alert.1:17 -#: ../scripts/rmadison.pl:282 ../scripts/sadt.pod:42 ../scripts/salsa.pl:437 +#: ../scripts/rmadison.pl:282 ../scripts/sadt.pod:42 ../scripts/salsa.pl:453 #: ../doc/suspicious-source.1:34 ../scripts/tagpending.pl:94 #: ../scripts/transition-check.pl:42 ../scripts/uupdate.1:54 #: ../doc/what-patch.1:15 ../scripts/whodepends.1:10 @@ -316,7 +316,7 @@ msgstr "Zeigt eine Hilfenachricht." #. type: SH #: ../scripts/annotate-output.1:39 ../scripts/debrepro.pod:144 #: ../scripts/debsnap.1:102 ../scripts/dscextract.1:20 -#: ../scripts/transition-check.pl:54 ../scripts/uscan.pl:2024 +#: ../scripts/transition-check.pl:54 ../scripts/uscan.pl:645 #: ../scripts/wnpp-check.1:28 #, no-wrap msgid "EXIT STATUS" @@ -536,8 +536,8 @@ msgstr "" #: ../scripts/nmudiff.1:127 ../scripts/origtargz.pl:162 #: ../scripts/plotchangelog.1:124 ../scripts/pts-subscribe.1:51 #: ../scripts/rc-alert.1:121 ../scripts/rmadison.pl:406 ../scripts/sadt.pod:74 -#: ../scripts/salsa.pl:1094 ../scripts/tagpending.pl:149 -#: ../scripts/uscan.pl:2201 ../scripts/uupdate.1:189 ../doc/what-patch.1:35 +#: ../scripts/salsa.pl:1115 ../scripts/tagpending.pl:149 +#: ../scripts/uscan.pl:822 ../scripts/uupdate.1:189 ../doc/what-patch.1:35 #: ../scripts/who-permits-upload.pl:167 ../scripts/wnpp-alert.1:29 #: ../scripts/wnpp-check.1:26 ../doc/devscripts.conf.5:54 #, no-wrap @@ -587,8 +587,8 @@ msgstr "" #: ../scripts/namecheck.pl:24 ../scripts/nmudiff.1:131 #: ../scripts/origtargz.pl:166 ../scripts/plotchangelog.1:126 #: ../scripts/pts-subscribe.1:56 ../scripts/rc-alert.1:125 -#: ../scripts/rmadison.pl:410 ../scripts/salsa.pl:1098 ../scripts/svnpath.pl:96 -#: ../scripts/transition-check.pl:81 ../scripts/uscan.pl:2205 +#: ../scripts/rmadison.pl:410 ../scripts/salsa.pl:1119 ../scripts/svnpath.pl:96 +#: ../scripts/transition-check.pl:81 ../scripts/uscan.pl:826 #: ../scripts/uupdate.1:196 ../scripts/whodepends.1:19 #: ../scripts/who-uploads.1:73 ../scripts/who-permits-upload.pl:162 #: ../scripts/wnpp-alert.1:31 ../scripts/wnpp-check.1:36 @@ -805,10 +805,10 @@ msgid "" "character though, so you may need to quote it!)" msgstr "" "Für Ihren Komfort wurden ein paar zusätzliche Befehle hinzugefügt und dieses " -"Programm ist ist weniger strikt in dem, was eine gültige Fehlernummer " -"darstellt. Beispielsweise wird »severity Bug#85942 normal« wie auch " -"»severity #85942 normal« verstanden. (Allerdings könnte Ihre Shell »#« als " -"Kommentarzeichen ansehen, weswegen Sie es maskieren müssen!)" +"Programm ist weniger strikt in dem, was eine gültige Fehlernummer darstellt. " +"Beispielsweise wird »severity Bug#85942 normal« wie auch »severity #85942 " +"normal« verstanden. (Allerdings könnte Ihre Shell »#« als Kommentarzeichen " +"ansehen, weswegen Sie es maskieren müssen!)" #. type: textblock #: ../scripts/bts.pl:220 @@ -818,8 +818,8 @@ msgid "" "commands). So it understands things like \"bts cl 85942\"." msgstr "" "Außerdem ermöglicht Ihnen dieses Programm zu Ihrer Annehmlichkeit Befehle " -"auf die kleinste eindeutige Teilzeichenkette abzukürzen (ähnlich wie Sie CVS " -"Befehle abkürzen lässt). So versteht es Dinge wie »bts cl 85942«." +"auf die kleinste eindeutige Teilzeichenkette abzukürzen (ähnlich wie sich " +"CVS Befehle abkürzen lassen). So versteht es Dinge wie »bts cl 85942«." #. type: textblock #: ../scripts/bts.pl:224 @@ -833,12 +833,13 @@ msgid "" "normal\" will not be treated as a comment!)" msgstr "" "Es ist ebenfalls möglich, der E-Mail an das BTS einen Kommentar beizufügen. " -"Falls Ihre Shell nicht den Kommentar in einem Befehl wie »bts severity 30321 " -"normal #inflated severity« streicht, dann ist dieses Programm schlau genug " -"herauszufinden, wo der Kommentar ist und ihn in die E-Mail einzufügen. " -"Beachten Sie, dass die meisten Shells solche Kommentare streichen, bevor sie " -"beim Programm ankommen, es sei denn, der Kommentar ist maskiert. (Etwas wie " -"»bts severity #85942 normal« wird nicht als Kommentar angesehen!)" +"Falls Ihre Shell den Kommentar in einem Befehl wie »bts severity 30321 " +"normal #inflated severity« nicht beachtet, dann ist dieses Programm klug " +"genug herauszufinden, wo der Kommentar ist, und ihn in die E-Mail " +"einzufügen. Beachten Sie, dass die meisten Shells solche Kommentare " +"streichen, bevor sie beim Programm ankommen, es sei denn, der Kommentar ist " +"maskiert. (Etwas wie »bts severity #85942 normal« wird nicht als Kommentar " +"angesehen!)" #. type: textblock #: ../scripts/bts.pl:232 @@ -851,9 +852,9 @@ msgid "" msgstr "" "Sie können mehrere Befehle angeben, indem Sie sie durch einen einzelnen " "Punkt trennen, ungefähr wie B; ein einzelnes Komma könnte auch " -"benutzt werden; alle die Befehle werden in einer einzigen E-Mail gesandt. Es " -"ist wichtig, dass der Punkt/das Komma von Leerzeichen umgeben ist, damit es " -"nicht als Teil des Befehls missverstanden wird. Zum Beispiel (wo nötig " +"benutzt werden; all diese Befehle werden in einer einzigen E-Mail gesandt. " +"Es ist wichtig, dass der Punkt/das Komma von Leerzeichen umgeben ist, damit " +"es nicht als Teil des Befehls missverstanden wird. Zum Beispiel (wo nötig " "maskieren, so dass B den Kommentar sieht):" #. type: verbatim @@ -902,7 +903,7 @@ msgid "" msgstr "" "B durchsucht die B-Konfigurationsdateien wie oben " "beschrieben. Befehlszeilenoptionen setzen jedoch die Einstellungen der " -"Konfigurationsdatei außer Kr." +"Konfigurationsdatei außer Kraft." #. type: =item #: ../scripts/bts.pl:256 @@ -1440,7 +1441,7 @@ msgstr "" #: ../scripts/debrelease.1:95 ../scripts/debsign.1:95 ../scripts/debuild.1:258 #: ../scripts/dpkg-depcheck.1:92 ../scripts/dscverify.1:25 #: ../scripts/grep-excuses.1:15 ../scripts/mass-bug.pl:125 -#: ../scripts/nmudiff.1:78 ../scripts/rmadison.pl:348 ../scripts/uscan.pl:1651 +#: ../scripts/nmudiff.1:78 ../scripts/rmadison.pl:348 ../scripts/uscan.pl:272 #: ../scripts/uupdate.1:56 ../scripts/who-uploads.1:41 #, no-wrap msgid "B<--no-conf>, B<--noconf>" @@ -1461,7 +1462,7 @@ msgstr "" "Befehlszeile angegebene Option benutzt werden." #. type: =head1 -#: ../scripts/bts.pl:814 ../scripts/chdist.pl:62 ../scripts/salsa.pl:57 +#: ../scripts/bts.pl:814 ../scripts/chdist.pl:62 ../scripts/salsa.pl:60 msgid "COMMANDS" msgstr "BEFEHLE" @@ -3655,7 +3656,7 @@ msgstr "führt den Fehlersuchmodus aus." #: ../scripts/debclean.1:87 ../scripts/diff2patches.1:22 #: ../scripts/grep-excuses.1:23 ../scripts/mass-bug.pl:135 #: ../scripts/nmudiff.1:92 ../scripts/plotchangelog.1:92 -#: ../scripts/salsa.pl:545 ../scripts/uscan.pl:1871 +#: ../scripts/salsa.pl:561 ../scripts/uscan.pl:492 #, no-wrap msgid "B<--help>" msgstr "B<--help>" @@ -3675,7 +3676,7 @@ msgstr "zeigt die Aufrufinformationen." #: ../scripts/dscverify.1:41 ../scripts/grep-excuses.1:26 #: ../scripts/mass-bug.pl:139 ../scripts/nmudiff.1:95 #: ../scripts/plotchangelog.1:95 ../scripts/pts-subscribe.1:31 -#: ../scripts/rmadison.pl:344 ../scripts/uscan.pl:1875 ../scripts/uupdate.1:104 +#: ../scripts/rmadison.pl:344 ../scripts/uscan.pl:496 ../scripts/uupdate.1:104 #: ../scripts/who-uploads.1:48 #, no-wrap msgid "B<--version>" @@ -3820,7 +3821,7 @@ msgstr "wählt die Architektur aus (Vorg #. type: textblock #: ../scripts/chdist.pl:58 ../scripts/deb-reversion.dbk:239 -#: ../scripts/mass-bug.pl:141 ../scripts/uscan.pl:1877 +#: ../scripts/mass-bug.pl:141 ../scripts/uscan.pl:498 msgid "Display version information." msgstr "zeigt Versionsinformationen." @@ -6546,7 +6547,7 @@ msgstr "" #. type: =head2 #: ../scripts/debc.1:28 ../scripts/debchange.1:109 ../scripts/debclean.1:27 #: ../scripts/debi.1:28 ../scripts/debrelease.1:20 ../scripts/debuild.1:51 -#: ../scripts/uscan.pl:2086 +#: ../scripts/uscan.pl:707 #, no-wrap msgid "Directory name checking" msgstr "Prüfung von Verzeichnisnamen" @@ -6578,14 +6579,14 @@ msgstr "" #. type: textblock #: ../scripts/debc.1:41 ../scripts/debchange.1:122 ../scripts/debclean.1:40 #: ../scripts/debi.1:41 ../scripts/debrelease.1:33 ../scripts/debuild.1:65 -#: ../scripts/uscan.pl:2101 +#: ../scripts/uscan.pl:722 msgid "B can take the following values:" msgstr "B kann die folgenden Werte annehmen:" #. type: =item #: ../scripts/debc.1:41 ../scripts/debchange.1:122 ../scripts/debclean.1:40 #: ../scripts/debi.1:41 ../scripts/debrelease.1:33 ../scripts/debuild.1:65 -#: ../scripts/uscan.pl:2032 ../scripts/uscan.pl:2105 +#: ../scripts/uscan.pl:653 ../scripts/uscan.pl:726 #, no-wrap msgid "B<0>" msgstr "B<0>" @@ -6593,14 +6594,14 @@ msgstr "B<0>" #. type: textblock #: ../scripts/debc.1:44 ../scripts/debchange.1:125 ../scripts/debclean.1:43 #: ../scripts/debi.1:44 ../scripts/debrelease.1:36 ../scripts/debuild.1:68 -#: ../scripts/uscan.pl:2107 +#: ../scripts/uscan.pl:728 msgid "Never check the directory name." msgstr "prüft den Verzeichnisnamen nie." #. type: =item #: ../scripts/debc.1:44 ../scripts/debchange.1:125 ../scripts/debclean.1:43 #: ../scripts/debi.1:44 ../scripts/debrelease.1:36 ../scripts/debuild.1:68 -#: ../scripts/uscan.pl:2037 ../scripts/uscan.pl:2109 +#: ../scripts/uscan.pl:658 ../scripts/uscan.pl:730 #, no-wrap msgid "B<1>" msgstr "B<1>" @@ -6618,7 +6619,7 @@ msgstr "" #. type: =item #: ../scripts/debc.1:48 ../scripts/debchange.1:129 ../scripts/debclean.1:47 #: ../scripts/debi.1:48 ../scripts/debrelease.1:40 ../scripts/debuild.1:72 -#: ../scripts/uscan.pl:2116 +#: ../scripts/uscan.pl:737 #, no-wrap msgid "B<2>" msgstr "B<2>" @@ -6626,7 +6627,7 @@ msgstr "B<2>" #. type: textblock #: ../scripts/debc.1:51 ../scripts/debchange.1:132 ../scripts/debclean.1:50 #: ../scripts/debi.1:51 ../scripts/debrelease.1:43 ../scripts/debuild.1:75 -#: ../scripts/uscan.pl:2118 +#: ../scripts/uscan.pl:739 msgid "Always check the directory name." msgstr "prüft den Verzeichnisnamen immer." @@ -6703,7 +6704,7 @@ msgstr "" #. type: =item #: ../scripts/debc.1:77 ../scripts/debchange.1:382 ../scripts/debclean.1:72 #: ../scripts/debi.1:86 ../scripts/debrelease.1:87 ../scripts/debuild.1:313 -#: ../scripts/uscan.pl:1745 +#: ../scripts/uscan.pl:366 #, no-wrap msgid "B<--check-dirname-level> I" msgstr "B<--check-dirname-level> I" @@ -6723,7 +6724,7 @@ msgstr "" #. type: =item #: ../scripts/debc.1:81 ../scripts/debchange.1:386 ../scripts/debclean.1:76 #: ../scripts/debi.1:90 ../scripts/debrelease.1:91 ../scripts/debuild.1:317 -#: ../scripts/uscan.pl:1749 +#: ../scripts/uscan.pl:370 #, no-wrap msgid "B<--check-dirname-regex> I" msgstr "B<--check-dirname-regex> I" @@ -7368,7 +7369,7 @@ msgstr "" #. type: =item #: ../scripts/debchange.1:218 ../scripts/mk-origtargz.pl:71 -#: ../scripts/uscan.pl:1776 +#: ../scripts/uscan.pl:397 #, no-wrap msgid "B<--package> I" msgstr "B<--package> I" @@ -9327,7 +9328,7 @@ msgstr "" "Commit-Nachricht automatisch aus dem Changelog bestimmt wurde." #. type: =item -#: ../scripts/debcommit.pl:167 ../scripts/uscan.pl:399 +#: ../scripts/debcommit.pl:167 msgid "B" msgstr "B" @@ -10773,7 +10774,7 @@ msgstr "" "unterschiedliche Werte enthalten." #. type: =item -#: ../scripts/debrepro.pod:62 +#: ../scripts/debrepro.pod:62 ../scripts/salsa.pl:434 msgid "B" msgstr "B" @@ -10881,7 +10882,7 @@ msgstr "" "Binärdateien betroffen sind." #. type: textblock -#: ../scripts/debrepro.pod:107 ../scripts/salsa.pl:381 +#: ../scripts/debrepro.pod:107 ../scripts/salsa.pl:384 msgid "Examples:" msgstr "Beispiele:" @@ -13960,7 +13961,7 @@ msgstr "" #. type: =item #: ../scripts/dep-14-convert-git-branch-names.1:39 ../scripts/grep-excuses.1:43 -#: ../scripts/hardening-check.pl:671 ../scripts/salsa.pl:488 +#: ../scripts/hardening-check.pl:671 ../scripts/salsa.pl:504 #, no-wrap msgid "B<--debug>" msgstr "B<--debug>" @@ -15605,7 +15606,7 @@ msgid "Allow SSL connections to untruste msgstr "erlaubt SSL-Verbindungen zu nicht vetrauenswürdigen Rechnern." #. type: =item -#: ../scripts/dget.pl:686 ../scripts/salsa.pl:456 +#: ../scripts/dget.pl:686 ../scripts/salsa.pl:472 msgid "B<--no-cache>" msgstr "B<--no-cache>" @@ -16705,7 +16706,7 @@ msgstr "" #. type: TP #: ../scripts/dscverify.1:34 ../scripts/plotchangelog.1:78 -#: ../scripts/salsa.pl:583 ../scripts/uupdate.1:98 +#: ../scripts/salsa.pl:599 ../scripts/uupdate.1:98 #, no-wrap msgid "B<--verbose>" msgstr "B<--verbose>" @@ -17525,7 +17526,7 @@ msgid "Only report failures." msgstr "meldet nur Fehlschläge." #. type: =item -#: ../scripts/hardening-check.pl:649 ../scripts/uscan.pl:1660 +#: ../scripts/hardening-check.pl:649 ../scripts/uscan.pl:281 msgid "B<--verbose>, B<-v>" msgstr "B<--verbose>, B<-v>" @@ -17632,7 +17633,7 @@ msgid "Kees Cook " msgstr "Kees Cook " #. type: =head1 -#: ../scripts/hardening-check.pl:696 ../scripts/salsa.pl:1102 +#: ../scripts/hardening-check.pl:696 ../scripts/salsa.pl:1123 msgid "COPYRIGHT AND LICENSE" msgstr "COPYRIGHT UND LIZENZ" @@ -18218,7 +18219,7 @@ msgstr "" "setzen." #. type: =item -#: ../scripts/mass-bug.pl:94 ../scripts/salsa.pl:570 +#: ../scripts/mass-bug.pl:94 ../scripts/salsa.pl:586 msgid "B<--user>" msgstr "B<--user>" @@ -18952,7 +18953,7 @@ msgstr "" "B<--copy>, B<--rename> und B<--symlink> schließen sich gegenseitig aus." #. type: =item -#: ../scripts/mk-origtargz.pl:139 ../scripts/uscan.pl:1885 +#: ../scripts/mk-origtargz.pl:139 ../scripts/uscan.pl:506 msgid "B<--symlink>" msgstr "B<--symlink>" @@ -18982,7 +18983,7 @@ msgstr "" "Option wie B<--copy>." #. type: =item -#: ../scripts/mk-origtargz.pl:148 ../scripts/uscan.pl:1890 +#: ../scripts/mk-origtargz.pl:148 ../scripts/uscan.pl:511 msgid "B<--copy>" msgstr "B<--copy>" @@ -18996,7 +18997,7 @@ msgstr "" "nicht verändert werden muss)." #. type: =item -#: ../scripts/mk-origtargz.pl:153 ../scripts/uscan.pl:1894 +#: ../scripts/mk-origtargz.pl:153 ../scripts/uscan.pl:515 msgid "B<--rename>" msgstr "B<--rename>" @@ -19022,7 +19023,7 @@ msgstr "" "die Originaldatei hinterher gelöscht wird." #. type: =item -#: ../scripts/mk-origtargz.pl:161 ../scripts/uscan.pl:1898 +#: ../scripts/mk-origtargz.pl:161 ../scripts/uscan.pl:519 msgid "B<--repack>" msgstr "B<--repack>" @@ -21185,18 +21186,20 @@ msgid "" " --desc-pattern \"Package %p\"\n" " salsa update_safe --all --desc --desc-pattern \"Debian package %p\" \\\n" " --group js-team\n" +" salsa update_watch5 debian/devscripts\n" +" salsa update_watch5 --group js-team --all\n" "\n" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:30 +#: ../scripts/salsa.pl:33 msgid "" "B is designed to create and configure projects and repositories on " "L as well as to manage group members." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:33 +#: ../scripts/salsa.pl:36 msgid "" "A Salsa token is required, except for search* commands, and must be set in " "command line I<(see below)>, or in your configuration file " @@ -21204,7 +21207,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:36 +#: ../scripts/salsa.pl:39 #, no-wrap msgid "" " SALSA_TOKEN=abcdefghi\n" @@ -21212,13 +21215,13 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:38 ../scripts/salsa.pl:42 ../scripts/salsa.pl:510 -#: ../scripts/salsa.pl:539 +#: ../scripts/salsa.pl:41 ../scripts/salsa.pl:45 ../scripts/salsa.pl:526 +#: ../scripts/salsa.pl:555 msgid "or" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:40 +#: ../scripts/salsa.pl:43 #, no-wrap msgid "" " SALSA_TOKEN=`cat ~/.token`\n" @@ -21226,7 +21229,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:44 +#: ../scripts/salsa.pl:47 #, no-wrap msgid "" " SALSA_TOKEN_FILE=~/.dpt.conf\n" @@ -21234,14 +21237,14 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:46 +#: ../scripts/salsa.pl:49 msgid "" "If you choose to link another file using SALSA_TOKEN_FILE, it must contain a " "line with one of (no differences):" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:49 +#: ../scripts/salsa.pl:52 #, no-wrap msgid "" " SALSA_PRIVATE_TOKEN=xxxx\n" @@ -21250,14 +21253,14 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:52 +#: ../scripts/salsa.pl:55 msgid "" "This allows for example to use dpt(1) configuration file (~/.dpt.conf) which " "contains:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:55 +#: ../scripts/salsa.pl:58 #, no-wrap msgid "" " DPT_SALSA_PRIVATE_TOKEN=abcdefghi\n" @@ -21265,22 +21268,22 @@ msgid "" msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:59 +#: ../scripts/salsa.pl:62 msgid "Managing users and groups" msgstr "" #. type: =item -#: ../scripts/salsa.pl:63 +#: ../scripts/salsa.pl:66 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:65 +#: ../scripts/salsa.pl:68 msgid "Add a user to a group." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:67 +#: ../scripts/salsa.pl:70 #, no-wrap msgid "" " salsa --group js-group add_user guest foouser\n" @@ -21290,24 +21293,24 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:71 ../scripts/salsa.pl:124 +#: ../scripts/salsa.pl:74 ../scripts/salsa.pl:127 msgid "" "First argument is the GitLab's access levels: guest, reporter, developer, " "maintainer, owner." msgstr "" #. type: =item -#: ../scripts/salsa.pl:74 +#: ../scripts/salsa.pl:77 msgid "B or B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:76 +#: ../scripts/salsa.pl:79 msgid "Remove a user from a group." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:78 +#: ../scripts/salsa.pl:81 #, no-wrap msgid "" " salsa --group js-team delete_user foouser\n" @@ -21316,17 +21319,17 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:81 +#: ../scripts/salsa.pl:84 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:83 +#: ../scripts/salsa.pl:86 msgid "Request access to a group." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:85 +#: ../scripts/salsa.pl:88 #, no-wrap msgid "" " salsa join js-team\n" @@ -21336,32 +21339,32 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:89 +#: ../scripts/salsa.pl:92 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:91 +#: ../scripts/salsa.pl:94 msgid "" "List the subgroups for current group if group is set, otherwise will do the " "current user." msgstr "" #. type: =item -#: ../scripts/salsa.pl:94 +#: ../scripts/salsa.pl:97 #, fuzzy #| msgid "B" msgid "B or B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:96 +#: ../scripts/salsa.pl:99 msgid "" "List users in a subgroup. Note, this does not include inherited or invited." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:99 +#: ../scripts/salsa.pl:102 #, no-wrap msgid "" " salsa --group js-team list_users\n" @@ -21370,20 +21373,20 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:102 +#: ../scripts/salsa.pl:105 #, fuzzy #| msgid "B" msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:104 +#: ../scripts/salsa.pl:107 msgid "" "Search for a group using given string. Shows group ID and other information." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:107 +#: ../scripts/salsa.pl:110 #, no-wrap msgid "" " salsa search_groups perl-team\n" @@ -21393,20 +21396,20 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:111 +#: ../scripts/salsa.pl:114 #, fuzzy #| msgid "B" msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:113 +#: ../scripts/salsa.pl:116 msgid "" "Search for a user using given string. Shows user ID and other information." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:115 +#: ../scripts/salsa.pl:118 #, no-wrap msgid "" " salsa search_users yadd\n" @@ -21414,17 +21417,17 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:117 +#: ../scripts/salsa.pl:120 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:119 +#: ../scripts/salsa.pl:122 msgid "Update a user's role in a group." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:121 +#: ../scripts/salsa.pl:124 #, no-wrap msgid "" " salsa --group-id 1234 update_user guest foouser\n" @@ -21433,17 +21436,17 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:127 +#: ../scripts/salsa.pl:130 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:129 +#: ../scripts/salsa.pl:132 msgid "Gives information on the token owner." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:131 +#: ../scripts/salsa.pl:134 #, no-wrap msgid "" " salsa whoami\n" @@ -21451,12 +21454,12 @@ msgid "" msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:135 +#: ../scripts/salsa.pl:138 msgid "Managing projects" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:137 +#: ../scripts/salsa.pl:140 msgid "" "One of C<--group>, C<--group-id>, C<--user> or C<--user-id> is required to " "manage projects. If both are set, salsa warns and only C<--user>/C<--user-" @@ -21464,14 +21467,14 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:144 +#: ../scripts/salsa.pl:147 #, fuzzy #| msgid "B or B" msgid "B or B" msgstr "B oder B" #. type: textblock -#: ../scripts/salsa.pl:146 +#: ../scripts/salsa.pl:149 msgid "" "Verify that projects are configured as expected. It works exactly like " "B except that it does not modify anything but just lists " @@ -21479,7 +21482,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:150 +#: ../scripts/salsa.pl:153 #, no-wrap msgid "" " salsa --user yadd --tagpending --kgb --irc=devscripts check_projects test\n" @@ -21489,19 +21492,19 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:154 +#: ../scripts/salsa.pl:157 msgid "B or B" msgstr "B oder B" #. type: textblock -#: ../scripts/salsa.pl:156 +#: ../scripts/salsa.pl:159 msgid "" "Clone a project's repository in current directory. If the directory already " "exists, update local repository." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:159 +#: ../scripts/salsa.pl:162 #, no-wrap msgid "" " salsa --user yadd checkout devscripts\n" @@ -21512,14 +21515,14 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:164 +#: ../scripts/salsa.pl:167 msgid "" "You can clone more than one repository or all repositories of a group or a " "user:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:167 +#: ../scripts/salsa.pl:170 #, no-wrap msgid "" " salsa --user yadd checkout devscripts autodep8\n" @@ -21530,21 +21533,21 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:172 +#: ../scripts/salsa.pl:175 #, fuzzy #| msgid "B, B, B" msgid "B or B" msgstr "B, B, B" #. type: textblock -#: ../scripts/salsa.pl:174 +#: ../scripts/salsa.pl:177 msgid "" "Create public empty project. If C<--group>/C<--group-id> is set, project is " "created in group directory, else in user directory." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:177 +#: ../scripts/salsa.pl:180 #, no-wrap msgid "" " salsa --user yadd create_project test\n" @@ -21553,33 +21556,33 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:180 +#: ../scripts/salsa.pl:183 #, fuzzy #| msgid "B or B" msgid "B or B" msgstr "B oder B" #. type: textblock -#: ../scripts/salsa.pl:182 +#: ../scripts/salsa.pl:185 #, fuzzy #| msgid "Delete a repository." msgid "Delete a project." msgstr "Löscht ein Depot." #. type: =item -#: ../scripts/salsa.pl:184 +#: ../scripts/salsa.pl:187 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:186 +#: ../scripts/salsa.pl:189 msgid "" "Forks a project in group/user repository and set \"upstream\" to original " "project. Example:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:189 +#: ../scripts/salsa.pl:192 #, no-wrap msgid "" " $ salsa fork js-team/node-mongodb --verbose\n" @@ -21595,12 +21598,12 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:199 +#: ../scripts/salsa.pl:202 msgid "For a group:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:201 +#: ../scripts/salsa.pl:204 #, no-wrap msgid "" " salsa fork --group js-team user/node-foo\n" @@ -21608,17 +21611,17 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:203 +#: ../scripts/salsa.pl:206 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:205 +#: ../scripts/salsa.pl:208 msgid "List forks of project(s)." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:207 +#: ../scripts/salsa.pl:210 #, no-wrap msgid "" " salsa forks qa/qa debian/devscripts\n" @@ -21626,26 +21629,26 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:209 ../scripts/salsa.pl:320 +#: ../scripts/salsa.pl:212 ../scripts/salsa.pl:323 msgid "" "Project can be set using full path or using B<--group>/B<--group-id> or B<--" "user>/B<--user-id>, else it is searched in current user namespace." msgstr "" #. type: =item -#: ../scripts/salsa.pl:212 +#: ../scripts/salsa.pl:215 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:214 +#: ../scripts/salsa.pl:217 msgid "" "Push relevant packaging refs to origin Git remote. To be run from packaging " "working directory." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:217 +#: ../scripts/salsa.pl:220 #, no-wrap msgid "" " salsa push\n" @@ -21653,61 +21656,61 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:219 +#: ../scripts/salsa.pl:222 msgid "" "It pushes the following refs to the configured remote for the debian-branch " "or, falling back, to the \"origin\" remote:" msgstr "" #. type: =item -#: ../scripts/salsa.pl:224 +#: ../scripts/salsa.pl:227 msgid "\"master\" branch (or whatever is set to debian-branch in gbp.conf)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:226 +#: ../scripts/salsa.pl:229 msgid "\"upstream\" branch (or whatever is set to upstream-branch in gbp.conf)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:228 +#: ../scripts/salsa.pl:231 #, fuzzy #| msgid "B is tried." msgid "\"pristine-tar\" branch" msgstr "B wird probiert." #. type: =item -#: ../scripts/salsa.pl:230 +#: ../scripts/salsa.pl:233 msgid "tags named \"debian/*\" (or whatever is set to debian-tag in gbp.conf)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:232 +#: ../scripts/salsa.pl:235 msgid "" "tags named \"upstream/*\" (or whatever is set to upstream-tag in gbp.conf)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:234 +#: ../scripts/salsa.pl:237 msgid "all tags, if the package's source format is \"3.0 (native)\"" msgstr "" #. type: =item -#: ../scripts/salsa.pl:238 +#: ../scripts/salsa.pl:241 #, fuzzy #| msgid "B or B" msgid "B or B or B" msgstr "B oder B" #. type: textblock -#: ../scripts/salsa.pl:240 +#: ../scripts/salsa.pl:243 msgid "" "Shows projects owned by user or group. If second argument exists, search " "only matching projects." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:243 +#: ../scripts/salsa.pl:246 #, no-wrap msgid "" " salsa --group js-team list_projects\n" @@ -21716,14 +21719,14 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:246 +#: ../scripts/salsa.pl:249 #, fuzzy #| msgid "B" msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:248 +#: ../scripts/salsa.pl:251 msgid "" "Displays the last continuous integration result. Use B<--verbose> to see URL " "of pipeline when result isn't B. Unless B<--no-fail> is set, " @@ -21731,7 +21734,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:252 +#: ../scripts/salsa.pl:255 #, no-wrap msgid "" " salsa --group js-team last_ci_status --all --no-fail\n" @@ -21741,7 +21744,7 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:256 +#: ../scripts/salsa.pl:259 msgid "" "This commands returns the number of \"failed\" status found. \"success\" " "entries are displayed using STDOUT while other are displayed I<(with " @@ -21749,7 +21752,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:260 +#: ../scripts/salsa.pl:263 #, no-wrap msgid "" " salsa --group js-team last_ci_status --all --no-fail >/dev/null\n" @@ -21757,46 +21760,46 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:262 +#: ../scripts/salsa.pl:265 msgid "B or B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:264 +#: ../scripts/salsa.pl:267 msgid "Control pipeline schedule." msgstr "" #. type: =item -#: ../scripts/salsa.pl:266 +#: ../scripts/salsa.pl:269 #, fuzzy #| msgid "B<--schedule-enable>, B<--schedule-disable>" msgid "B or B" msgstr "B<--schedule-enable>, B<--schedule-disable>" #. type: textblock -#: ../scripts/salsa.pl:268 +#: ../scripts/salsa.pl:271 msgid "Lists current pipeline schedule items." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:270 +#: ../scripts/salsa.pl:273 msgid "You can use B<--no-fail> and B<--all> options here." msgstr "" #. type: =item -#: ../scripts/salsa.pl:272 +#: ../scripts/salsa.pl:275 #, fuzzy #| msgid "B, B" msgid "B or B" msgstr "B, B" #. type: textblock -#: ../scripts/salsa.pl:274 +#: ../scripts/salsa.pl:277 msgid "Creates a merge request." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:276 +#: ../scripts/salsa.pl:279 msgid "" "Suppose you created a fork using B, modify some things in a new " "branch using one commit and want to propose it to original project I<(branch " @@ -21804,7 +21807,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:280 +#: ../scripts/salsa.pl:283 #, no-wrap msgid "" " salsa merge_request\n" @@ -21812,14 +21815,14 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:282 +#: ../scripts/salsa.pl:285 #, fuzzy #| msgid "Other example:" msgid "Another example:" msgstr "Weiteres Beispiel:" #. type: verbatim -#: ../scripts/salsa.pl:284 +#: ../scripts/salsa.pl:287 #, no-wrap msgid "" " salsa merge_request --mr-dst-project debian/foo --mr-dst-branch debian/latest\n" @@ -21827,12 +21830,12 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:286 +#: ../scripts/salsa.pl:289 msgid "Or simply:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:288 +#: ../scripts/salsa.pl:291 #, no-wrap msgid "" " salsa merge_request debian/foo debian/latest\n" @@ -21840,36 +21843,36 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:290 +#: ../scripts/salsa.pl:293 msgid "" "Note that unless destination project has been set using command line, " "B will search it in the following order:" msgstr "" #. type: =item -#: ../scripts/salsa.pl:295 +#: ../scripts/salsa.pl:298 msgid "using GitLab API: salsa will detect from where this project was forked" msgstr "" #. type: =item -#: ../scripts/salsa.pl:297 +#: ../scripts/salsa.pl:300 msgid "using \"upstream\" origin" msgstr "" #. type: =item -#: ../scripts/salsa.pl:299 +#: ../scripts/salsa.pl:302 msgid "else salsa will use source project as destination project" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:303 +#: ../scripts/salsa.pl:306 msgid "" "To force salsa to use source project as destination project, you can use " "\"same\":" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:306 +#: ../scripts/salsa.pl:309 #, no-wrap msgid "" " salsa merge_request --mr-dst-project same\n" @@ -21879,30 +21882,30 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:310 +#: ../scripts/salsa.pl:313 msgid "" "New merge request will be created using last commit title and description." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:312 +#: ../scripts/salsa.pl:315 msgid "See B<--mr-*> options for more." msgstr "" #. type: =item -#: ../scripts/salsa.pl:314 +#: ../scripts/salsa.pl:317 #, fuzzy #| msgid "B, B" msgid "B or B" msgstr "B, B" #. type: textblock -#: ../scripts/salsa.pl:316 +#: ../scripts/salsa.pl:319 msgid "List opened merge requests for project(s)." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:318 +#: ../scripts/salsa.pl:321 #, no-wrap msgid "" " salsa merge_requests qa/qa debian/devscripts\n" @@ -21910,22 +21913,22 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:323 +#: ../scripts/salsa.pl:326 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:325 +#: ../scripts/salsa.pl:328 msgid "Protect/unprotect a branch." msgstr "" #. type: =item -#: ../scripts/salsa.pl:329 +#: ../scripts/salsa.pl:332 msgid "Protect" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:331 +#: ../scripts/salsa.pl:334 #, no-wrap msgid "" " # project branch merge push\n" @@ -21934,42 +21937,42 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:334 +#: ../scripts/salsa.pl:337 msgid "\"merge\" and \"push\" can be one of:" msgstr "" #. type: =item -#: ../scripts/salsa.pl:338 +#: ../scripts/salsa.pl:341 msgid "B, B: owner only" msgstr "" #. type: =item -#: ../scripts/salsa.pl:340 +#: ../scripts/salsa.pl:343 msgid "B, B: B + maintainers allowed" msgstr "" #. type: =item -#: ../scripts/salsa.pl:342 +#: ../scripts/salsa.pl:345 msgid "B, B: B + developers allowed" msgstr "" #. type: =item -#: ../scripts/salsa.pl:344 +#: ../scripts/salsa.pl:347 msgid "B, B: B + reporters allowed" msgstr "" #. type: =item -#: ../scripts/salsa.pl:346 +#: ../scripts/salsa.pl:349 msgid "B, B: B + guest allowed" msgstr "" #. type: =item -#: ../scripts/salsa.pl:350 +#: ../scripts/salsa.pl:353 msgid "Unprotect" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:352 +#: ../scripts/salsa.pl:355 #, no-wrap msgid "" " salsa --group js-team protect_branch node-mongodb master no\n" @@ -21977,19 +21980,19 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:356 +#: ../scripts/salsa.pl:359 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:358 +#: ../scripts/salsa.pl:361 #, fuzzy #| msgid "B" msgid "List protected branches:" msgstr "B" #. type: verbatim -#: ../scripts/salsa.pl:360 +#: ../scripts/salsa.pl:363 #, no-wrap msgid "" " salsa --group js-team protected_branches node-mongodb\n" @@ -21997,46 +22000,46 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:362 +#: ../scripts/salsa.pl:365 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:364 +#: ../scripts/salsa.pl:367 msgid "" "Create a new project from a local Debian source directory configured with " "git." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:367 +#: ../scripts/salsa.pl:370 msgid "B executes the following steps:" msgstr "" #. type: =item -#: ../scripts/salsa.pl:371 +#: ../scripts/salsa.pl:374 msgid "gets project name using debian/changelog file;" msgstr "" #. type: =item -#: ../scripts/salsa.pl:373 +#: ../scripts/salsa.pl:376 msgid "launches B;" msgstr "" #. type: =item -#: ../scripts/salsa.pl:375 +#: ../scripts/salsa.pl:378 msgid "launches B;" msgstr "" #. type: =item -#: ../scripts/salsa.pl:377 +#: ../scripts/salsa.pl:380 #, fuzzy #| msgid "Delete a repository." msgid "pushes local repository." msgstr "Löscht ein Depot." #. type: verbatim -#: ../scripts/salsa.pl:383 +#: ../scripts/salsa.pl:386 #, no-wrap msgid "" " salsa --user yadd push_repo ./test\n" @@ -22045,12 +22048,12 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:386 +#: ../scripts/salsa.pl:389 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:388 +#: ../scripts/salsa.pl:391 msgid "" "Rename branch given in B<--source-branch> with name given in B<--dest-" "branch>. You can use B<--no-fail>, B<--all> and B<--all-archived> options " @@ -22058,21 +22061,21 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:391 +#: ../scripts/salsa.pl:394 #, fuzzy #| msgid "B, B, B" msgid "B or B or B" msgstr "B, B, B" #. type: textblock -#: ../scripts/salsa.pl:393 +#: ../scripts/salsa.pl:396 msgid "" "Search for a project using given string. Shows name, owner ID and other " "information." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:396 +#: ../scripts/salsa.pl:399 #, no-wrap msgid "" " salsa search_projects devscripts\n" @@ -22082,12 +22085,12 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:400 +#: ../scripts/salsa.pl:403 msgid "B or B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:402 +#: ../scripts/salsa.pl:405 msgid "" "Configure projects using parameters given to command line. A project name " "has to be given unless B<--all> or B<--all-archived> is set. Prefer to use " @@ -22095,7 +22098,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:406 +#: ../scripts/salsa.pl:409 #, no-wrap msgid "" " salsa --user yadd --tagpending --kgb --irc=devscripts update_projects test\n" @@ -22106,7 +22109,7 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:411 +#: ../scripts/salsa.pl:414 msgid "" "By default when using B<--all>, salsa will fail on first error. If you want " "to continue, set B<--no-fail>. In this case, salsa will display a warning " @@ -22115,19 +22118,19 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:416 +#: ../scripts/salsa.pl:419 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:418 +#: ../scripts/salsa.pl:421 msgid "" "Launch B and ask before launching B (unless " "B<--yes>)." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:420 +#: ../scripts/salsa.pl:423 #, no-wrap msgid "" " salsa --user yadd --tagpending --kgb --irc=devscripts update_safe test\n" @@ -22137,40 +22140,73 @@ msgid "" "\n" msgstr "" +#. type: =item +#: ../scripts/salsa.pl:428 +#, fuzzy +#| msgid "B" +msgid "B" +msgstr "B" + +#. type: textblock +#: ../scripts/salsa.pl:430 +msgid "" +"Update C file for each given project to L." +msgstr "" + +#. type: textblock +#: ../scripts/salsa.pl:432 +msgid "Options B<--all> and B<--debian-branch> are usable here." +msgstr "" + +#. type: textblock +#: ../scripts/salsa.pl:436 +msgid "Little subcommand to get salsa path from a local git repo:" +msgstr "" + +#. type: verbatim +#: ../scripts/salsa.pl:438 +#, no-wrap +msgid "" +" salsa path\n" +" salsa path ./directory\n" +"\n" +msgstr "" + #. type: =head2 -#: ../scripts/salsa.pl:427 +#: ../scripts/salsa.pl:443 msgid "Other" msgstr "" #. type: =item -#: ../scripts/salsa.pl:431 +#: ../scripts/salsa.pl:447 msgid "B" msgstr "B" #. type: textblock -#: ../scripts/salsa.pl:433 +#: ../scripts/salsa.pl:449 msgid "Empty local cache." msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:439 +#: ../scripts/salsa.pl:455 msgid "General options" msgstr "Allgemeine Optionen" #. type: =item -#: ../scripts/salsa.pl:443 +#: ../scripts/salsa.pl:459 #, fuzzy #| msgid "B<--dirs>, B<-d>" msgid "B<--chdir> or B<-C>" msgstr "B<--dirs>, B<-d>" #. type: textblock -#: ../scripts/salsa.pl:445 +#: ../scripts/salsa.pl:461 msgid "Change directory before launching command:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:447 +#: ../scripts/salsa.pl:463 #, no-wrap msgid "" " salsa --chdir ~/debian checkout debian/libapache2-mod-fcgid\n" @@ -22178,36 +22214,36 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:449 +#: ../scripts/salsa.pl:465 msgid "B<--cache-file>" msgstr "B<--cache-file>" #. type: textblock -#: ../scripts/salsa.pl:451 +#: ../scripts/salsa.pl:467 msgid "" "File to store cached values. An empty value disables cache. Default: " "C<~/.cache/salsa.json>." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:454 +#: ../scripts/salsa.pl:470 msgid "C<.devscripts> value: B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:458 +#: ../scripts/salsa.pl:474 msgid "Disable cache usage. Same as B<--cache-file ''>" msgstr "" #. type: =item -#: ../scripts/salsa.pl:460 +#: ../scripts/salsa.pl:476 #, fuzzy #| msgid "B<--conffile>, B<--conf-file>" msgid "B<--conf-file> or B<--conffile>" msgstr "B<--conffile>, B<--conf-file>" #. type: textblock -#: ../scripts/salsa.pl:462 +#: ../scripts/salsa.pl:478 #, fuzzy #| msgid "" #| "Do not read any configuration files. This can only be used as the first " @@ -22221,12 +22257,12 @@ msgstr "" "Befehlszeile angegebene Option benutzt werden." #. type: =item -#: ../scripts/salsa.pl:469 ../scripts/uscan.pl:1639 +#: ../scripts/salsa.pl:485 ../scripts/uscan.pl:260 msgid "replace:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:471 +#: ../scripts/salsa.pl:487 #, no-wrap msgid "" " salsa --conf-file test.conf ...\n" @@ -22235,12 +22271,12 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:474 ../scripts/uscan.pl:1643 +#: ../scripts/salsa.pl:490 ../scripts/uscan.pl:264 msgid "add:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:476 +#: ../scripts/salsa.pl:492 #, no-wrap msgid "" " salsa --conf-file +test.conf ...\n" @@ -22249,20 +22285,20 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:479 ../scripts/uscan.pl:1647 +#: ../scripts/salsa.pl:495 ../scripts/uscan.pl:268 msgid "" "If one B<--conf-file> has no C<+>, default configuration files are ignored." msgstr "" #. type: =item -#: ../scripts/salsa.pl:483 +#: ../scripts/salsa.pl:499 #, fuzzy #| msgid "B<--no-conf>, B<--noconf>" msgid "B<--no-conf> or B<--noconf>" msgstr "B<--no-conf>, B<--noconf>" #. type: textblock -#: ../scripts/salsa.pl:485 ../scripts/uscan.pl:1653 +#: ../scripts/salsa.pl:501 ../scripts/uscan.pl:274 msgid "" "Don't read any configuration files. This can only be used as the first " "option given on the command-line." @@ -22271,29 +22307,29 @@ msgstr "" "Befehlszeile angegebene Option benutzt werden." #. type: textblock -#: ../scripts/salsa.pl:490 +#: ../scripts/salsa.pl:506 #, fuzzy #| msgid "Enable verbose output." msgid "Enable debugging output." msgstr "Erzeugt eine detaillierte Ausgabe." #. type: =item -#: ../scripts/salsa.pl:492 +#: ../scripts/salsa.pl:508 msgid "B<--group>" msgstr "B<--group>" #. type: textblock -#: ../scripts/salsa.pl:494 +#: ../scripts/salsa.pl:510 msgid "Team to use. Use C to find it." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:496 +#: ../scripts/salsa.pl:512 msgid "If you want to use a subgroup, you have to set its full path:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:498 +#: ../scripts/salsa.pl:514 #, no-wrap msgid "" " salsa --group perl-team/modules/packages check_projects lemonldap-ng\n" @@ -22301,12 +22337,12 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:500 +#: ../scripts/salsa.pl:516 msgid "C<.devscripts> value: B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:502 +#: ../scripts/salsa.pl:518 msgid "" "Be careful when you use B in your C<.devscripts> file. Every " "B command will be executed in group space, for example if you want to " @@ -22317,7 +22353,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:508 +#: ../scripts/salsa.pl:524 #, no-wrap msgid "" " alias jsteam_admin=\"salsa --group js-team\"\n" @@ -22325,7 +22361,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:512 ../scripts/salsa.pl:541 +#: ../scripts/salsa.pl:528 ../scripts/salsa.pl:557 #, no-wrap msgid "" " alias jsteam_admin=\"salsa --conf-file ~/.js.conf\n" @@ -22333,12 +22369,12 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:514 +#: ../scripts/salsa.pl:530 msgid "or to use both .devscripts and .js.conf:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:516 +#: ../scripts/salsa.pl:532 #, no-wrap msgid "" " alias jsteam_admin=\"salsa --conf-file +~/.js.conf\n" @@ -22346,18 +22382,18 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:518 +#: ../scripts/salsa.pl:534 msgid "then you can fix B in C<~/.js.conf>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:520 +#: ../scripts/salsa.pl:536 msgid "" "To enable bash completion for your alias, add this in your .bashrc file:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:522 +#: ../scripts/salsa.pl:538 #, no-wrap msgid "" " _completion_loader salsa\n" @@ -22366,22 +22402,22 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:525 +#: ../scripts/salsa.pl:541 msgid "B<--group-id>" msgstr "B<--group-id>" #. type: textblock -#: ../scripts/salsa.pl:527 +#: ../scripts/salsa.pl:543 msgid "Group ID to use. Use C to find it." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:529 +#: ../scripts/salsa.pl:545 msgid "C<.devscripts> value: B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:531 +#: ../scripts/salsa.pl:547 msgid "" "Be careful when you use B in your C<.devscripts> file. Every " "B command will be executed in group space, for example if you want to " @@ -22392,7 +22428,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:537 +#: ../scripts/salsa.pl:553 #, no-wrap msgid "" " alias jsteam_admin=\"salsa --group-id 2666\"\n" @@ -22400,71 +22436,71 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:543 +#: ../scripts/salsa.pl:559 msgid "then you can fix B in C<~/.js.conf>." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:547 +#: ../scripts/salsa.pl:563 #, fuzzy #| msgid "Display pending changes." msgid "Displays this manpage." msgstr "zeigt ausstehende Änderungen." #. type: =item -#: ../scripts/salsa.pl:549 +#: ../scripts/salsa.pl:565 #, fuzzy #| msgid "B<--lint>, B<-l>" msgid "B<--info> or B<-i>" msgstr "B<--lint>, B<-l>" #. type: textblock -#: ../scripts/salsa.pl:551 +#: ../scripts/salsa.pl:567 msgid "Prompt before sensible changes." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:553 +#: ../scripts/salsa.pl:569 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:555 +#: ../scripts/salsa.pl:571 msgid "B<--path>" msgstr "B<--path>" #. type: textblock -#: ../scripts/salsa.pl:557 +#: ../scripts/salsa.pl:573 msgid "Repository path. Default to group or user path." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:560 +#: ../scripts/salsa.pl:576 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:562 +#: ../scripts/salsa.pl:578 msgid "B<--token>" msgstr "B<--token>" #. type: textblock -#: ../scripts/salsa.pl:564 +#: ../scripts/salsa.pl:580 msgid "Token value (see above)." msgstr "Token-Wert (siehe oben)." #. type: =item -#: ../scripts/salsa.pl:566 +#: ../scripts/salsa.pl:582 msgid "B<--token-file>" msgstr "B<--token-file>" #. type: textblock -#: ../scripts/salsa.pl:568 +#: ../scripts/salsa.pl:584 msgid "File to find token (see above)." msgstr "Datei mit Token (siehe oben)." #. type: textblock -#: ../scripts/salsa.pl:572 +#: ../scripts/salsa.pl:588 #, fuzzy #| msgid "" #| "Username to use. If neither B<--group>, B<--group-id>, B<--user> or B<--" @@ -22480,12 +22516,12 @@ msgstr "" "privaten Salsa-Token gehört)." #. type: =item -#: ../scripts/salsa.pl:575 +#: ../scripts/salsa.pl:591 msgid "B<--user-id>" msgstr "B<--user-id>" #. type: textblock -#: ../scripts/salsa.pl:577 +#: ../scripts/salsa.pl:593 #, fuzzy #| msgid "" #| "User id to use. Use C to find one. If neither B<--" @@ -22502,42 +22538,42 @@ msgstr "" "gehört)." #. type: textblock -#: ../scripts/salsa.pl:581 +#: ../scripts/salsa.pl:597 msgid "C<.devscripts> value: B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:585 +#: ../scripts/salsa.pl:601 msgid "Enable verbose output." msgstr "Erzeugt eine detaillierte Ausgabe." #. type: =item -#: ../scripts/salsa.pl:587 +#: ../scripts/salsa.pl:603 msgid "B<--yes>" msgstr "B<--yes>" #. type: textblock -#: ../scripts/salsa.pl:589 +#: ../scripts/salsa.pl:605 msgid "Never ask for consent." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:591 +#: ../scripts/salsa.pl:607 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:595 +#: ../scripts/salsa.pl:611 msgid "List/search project options" msgstr "" #. type: =item -#: ../scripts/salsa.pl:599 +#: ../scripts/salsa.pl:615 msgid "B<--archived>, B<--no-archived>" msgstr "B<--archived>, B<--no-archived>" #. type: textblock -#: ../scripts/salsa.pl:601 +#: ../scripts/salsa.pl:617 msgid "" "Instead of looking to active projects, list or search in archived projects. " "Note that you can't have both archived and unarchived projects in the same " @@ -22545,22 +22581,22 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:606 +#: ../scripts/salsa.pl:622 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:610 +#: ../scripts/salsa.pl:626 msgid "Update/create project options" msgstr "" #. type: =item -#: ../scripts/salsa.pl:614 +#: ../scripts/salsa.pl:630 msgid "B<--all>, B<--all-archived>" msgstr "B<--all>, B<--all-archived>" #. type: textblock -#: ../scripts/salsa.pl:616 +#: ../scripts/salsa.pl:632 msgid "" "When set, all projects of group/user are affected by command. B<--all> will " "filter all active projects, whereas B<--all-archived> will include active " @@ -22568,19 +22604,19 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:622 +#: ../scripts/salsa.pl:638 #, fuzzy #| msgid "B<--desc>, B<--no-desc>" msgid "B<--skip>, B<--no-skip>" msgstr "B<--desc>, B<--no-desc>" #. type: textblock -#: ../scripts/salsa.pl:624 +#: ../scripts/salsa.pl:640 msgid "Ignore project with B<--all> or B<--all-achived>. Example:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:626 +#: ../scripts/salsa.pl:642 #, no-wrap msgid "" " salsa update_projects --tagpending --all --skip qa --skip devscripts\n" @@ -22588,12 +22624,12 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:628 +#: ../scripts/salsa.pl:644 msgid "To set multiples values, use spaces. Example:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:630 +#: ../scripts/salsa.pl:646 #, no-wrap msgid "" " SALSA_SKIP=qa devscripts\n" @@ -22601,30 +22637,30 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:632 +#: ../scripts/salsa.pl:648 msgid "" "Using B<--no-skip> will ignore any projects to be skipped and include them." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:634 +#: ../scripts/salsa.pl:650 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:636 +#: ../scripts/salsa.pl:652 #, fuzzy #| msgid "B<--token-file>" msgid "B<--skip-file>" msgstr "B<--token-file>" #. type: textblock -#: ../scripts/salsa.pl:638 +#: ../scripts/salsa.pl:654 msgid "Ignore projects in this file (1 project per line)." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:640 +#: ../scripts/salsa.pl:656 #, no-wrap msgid "" " salsa update_projects --tagpending --all --skip-file ~/.skip\n" @@ -22632,24 +22668,24 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:642 +#: ../scripts/salsa.pl:658 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:646 +#: ../scripts/salsa.pl:662 msgid "B<--build-timeout>" msgstr "B<--build-timeout>" #. type: textblock -#: ../scripts/salsa.pl:648 +#: ../scripts/salsa.pl:664 msgid "" "The maximum amount of time, in seconds, that a job can run. Default: 3600 " "(60 minutes)." msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:651 +#: ../scripts/salsa.pl:667 #, no-wrap msgid "" " salsa update_safe myrepo --build-timeout 3600\n" @@ -22657,40 +22693,40 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:653 +#: ../scripts/salsa.pl:669 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:655 +#: ../scripts/salsa.pl:671 msgid "B<--avatar-path>" msgstr "B<--avatar-path>" #. type: textblock -#: ../scripts/salsa.pl:657 +#: ../scripts/salsa.pl:673 msgid "" "Path to an image for the project's avatar. If path value contains \"%p\", " "it is replaced by project name." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:660 +#: ../scripts/salsa.pl:676 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:662 +#: ../scripts/salsa.pl:678 msgid "B<--ci-config-path>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:664 +#: ../scripts/salsa.pl:680 msgid "" "Configure configuration file path of GitLab CI. Default: empty. Example:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:668 +#: ../scripts/salsa.pl:684 #, no-wrap msgid "" " salsa update_safe --ci-config-path recipes/debian.yml@salsa-ci-team/pipeline debian/devscripts\n" @@ -22698,33 +22734,33 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:670 +#: ../scripts/salsa.pl:686 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:672 +#: ../scripts/salsa.pl:688 msgid "B<--desc>, B<--no-desc>" msgstr "B<--desc>, B<--no-desc>" #. type: textblock -#: ../scripts/salsa.pl:674 +#: ../scripts/salsa.pl:690 msgid "" "Configure a project's description using pattern given in B." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:676 +#: ../scripts/salsa.pl:692 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:678 +#: ../scripts/salsa.pl:694 msgid "B<--desc-pattern>" msgstr "B<--desc-pattern>" #. type: textblock -#: ../scripts/salsa.pl:680 +#: ../scripts/salsa.pl:696 msgid "" "Project's description pattern. \"%p\" is replaced by project's name, while " "\"%P\" is replaced by project's name given in command (may contains full " @@ -22732,37 +22768,37 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:685 +#: ../scripts/salsa.pl:701 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:687 +#: ../scripts/salsa.pl:703 msgid "B<--email>, B<--no-email>, B<--disable-email>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:689 +#: ../scripts/salsa.pl:705 msgid "Enable, ignore or disable email-on-push." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:691 +#: ../scripts/salsa.pl:707 msgid "C<.devscripts> value: B (yes/ignore/no, default: ignore)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:693 +#: ../scripts/salsa.pl:709 msgid "B<--email-recipient>" msgstr "B<--email-recipient>" #. type: textblock -#: ../scripts/salsa.pl:695 +#: ../scripts/salsa.pl:711 msgid "Email-on-push recipient. Can be multi valued:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:697 +#: ../scripts/salsa.pl:713 #, no-wrap msgid "" " $ salsa update_safe myrepo \\\n" @@ -22772,417 +22808,417 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:701 +#: ../scripts/salsa.pl:717 msgid "If recipient value contains \"%p\", it is replaced by project name." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:703 +#: ../scripts/salsa.pl:719 msgid "" "C<.devscripts> value: B (use spaces to separate " "multiples recipients)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:706 +#: ../scripts/salsa.pl:722 msgid "B<--analytics>" msgstr "B<--analytics>" #. type: textblock -#: ../scripts/salsa.pl:708 +#: ../scripts/salsa.pl:724 msgid "Set analytics feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:710 +#: ../scripts/salsa.pl:726 msgid "" "C<.devscripts> value: B (yes/private/no, default: " "yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:712 +#: ../scripts/salsa.pl:728 msgid "B<--auto-devops>" msgstr "B<--auto-devops>" #. type: textblock -#: ../scripts/salsa.pl:714 +#: ../scripts/salsa.pl:730 msgid "Set auto devops feature." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:716 +#: ../scripts/salsa.pl:732 msgid "" "C<.devscripts> value: B (yes/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:718 +#: ../scripts/salsa.pl:734 msgid "B<--container>" msgstr "B<--container>" #. type: textblock -#: ../scripts/salsa.pl:720 +#: ../scripts/salsa.pl:736 msgid "Set container feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:722 +#: ../scripts/salsa.pl:738 msgid "" "C<.devscripts> value: B (yes/private/no, default: " "yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:724 +#: ../scripts/salsa.pl:740 #, fuzzy #| msgid "B<--requirements>" msgid "B<--environments>" msgstr "B<--requirements>" #. type: textblock -#: ../scripts/salsa.pl:726 +#: ../scripts/salsa.pl:742 msgid "Set environments feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:728 +#: ../scripts/salsa.pl:744 msgid "" "C<.devscripts> value: B (yes/private/no, default: " "yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:730 +#: ../scripts/salsa.pl:746 #, fuzzy #| msgid "B<--exclude-tags>" msgid "B<--feature-flags>" msgstr "B<--exclude-tags>" #. type: textblock -#: ../scripts/salsa.pl:732 +#: ../scripts/salsa.pl:748 msgid "Set feature flags feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:734 +#: ../scripts/salsa.pl:750 msgid "" "C<.devscripts> value: B (yes/private/no, " "default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:736 +#: ../scripts/salsa.pl:752 #, fuzzy #| msgid "B<--first>" msgid "B<--forks>" msgstr "B<--first>" #. type: textblock -#: ../scripts/salsa.pl:738 +#: ../scripts/salsa.pl:754 msgid "Set forking a project feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:740 +#: ../scripts/salsa.pl:756 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:742 +#: ../scripts/salsa.pl:758 #, fuzzy #| msgid "B<--signature>" msgid "B<--infrastructure>" msgstr "B<--signature>" #. type: textblock -#: ../scripts/salsa.pl:744 +#: ../scripts/salsa.pl:760 msgid "Set infrastructure feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:746 +#: ../scripts/salsa.pl:762 msgid "" "C<.devscripts> value: B (yes/private/no, " "default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:748 +#: ../scripts/salsa.pl:764 msgid "B<--issues>" msgstr "B<--issues>" #. type: textblock -#: ../scripts/salsa.pl:750 +#: ../scripts/salsa.pl:766 msgid "Set issues feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:752 +#: ../scripts/salsa.pl:768 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:754 +#: ../scripts/salsa.pl:770 msgid "B<--jobs>" msgstr "B<--jobs>" #. type: textblock -#: ../scripts/salsa.pl:756 +#: ../scripts/salsa.pl:772 msgid "Set jobs feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:758 +#: ../scripts/salsa.pl:774 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:760 +#: ../scripts/salsa.pl:776 msgid "B<--lfs>" msgstr "B<--lfs>" #. type: textblock -#: ../scripts/salsa.pl:762 +#: ../scripts/salsa.pl:778 msgid "Set Large File Storage (LFS) feature." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:764 +#: ../scripts/salsa.pl:780 msgid "C<.devscripts> value: B (yes/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:766 +#: ../scripts/salsa.pl:782 msgid "B<--mr>" msgstr "B<--mr>" #. type: textblock -#: ../scripts/salsa.pl:768 +#: ../scripts/salsa.pl:784 msgid "Set merge requests feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:770 +#: ../scripts/salsa.pl:786 msgid "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:772 +#: ../scripts/salsa.pl:788 #, fuzzy #| msgid "B<--control>" msgid "B<--monitor>" msgstr "B<--control>" #. type: textblock -#: ../scripts/salsa.pl:774 +#: ../scripts/salsa.pl:790 msgid "Set monitor feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:776 +#: ../scripts/salsa.pl:792 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:778 +#: ../scripts/salsa.pl:794 msgid "B<--packages>" msgstr "B<--packages>" #. type: textblock -#: ../scripts/salsa.pl:780 +#: ../scripts/salsa.pl:796 #, fuzzy #| msgid "Source package name." msgid "Set packages feature." msgstr "Name des Quellpakets" #. type: textblock -#: ../scripts/salsa.pl:782 +#: ../scripts/salsa.pl:798 msgid "C<.devscripts> value: B (yes/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:784 +#: ../scripts/salsa.pl:800 msgid "B<--pages>" msgstr "B<--pages>" #. type: textblock -#: ../scripts/salsa.pl:786 +#: ../scripts/salsa.pl:802 msgid "Set pages feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:788 +#: ../scripts/salsa.pl:804 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:790 +#: ../scripts/salsa.pl:806 msgid "B<--releases>" msgstr "B<--releases>" #. type: textblock -#: ../scripts/salsa.pl:792 +#: ../scripts/salsa.pl:808 msgid "Set releases feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:794 +#: ../scripts/salsa.pl:810 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:796 +#: ../scripts/salsa.pl:812 msgid "B<--enable-remove-source-branch>, B<--disable-remove-source-branch>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:798 +#: ../scripts/salsa.pl:814 msgid "" "Enable or disable deleting source branch option by default for all new merge " "requests." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:801 +#: ../scripts/salsa.pl:817 msgid "" "C<.devscripts> value: B (yes/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:803 +#: ../scripts/salsa.pl:819 msgid "B<--repo>" msgstr "B<--repo>" #. type: textblock -#: ../scripts/salsa.pl:805 +#: ../scripts/salsa.pl:821 msgid "Set the project's repository feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:807 +#: ../scripts/salsa.pl:823 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:809 +#: ../scripts/salsa.pl:825 msgid "B<--request-access>" msgstr "B<--request-access>" #. type: textblock -#: ../scripts/salsa.pl:811 +#: ../scripts/salsa.pl:827 msgid "Allow users to request member access." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:813 +#: ../scripts/salsa.pl:829 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:815 +#: ../scripts/salsa.pl:831 msgid "B<--requirements>" msgstr "B<--requirements>" #. type: textblock -#: ../scripts/salsa.pl:817 +#: ../scripts/salsa.pl:833 msgid "Set requirements feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:819 +#: ../scripts/salsa.pl:835 msgid "" "C<.devscripts> value: B (yes/private/no, default: " "yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:821 +#: ../scripts/salsa.pl:837 #, fuzzy #| msgid "B<--exclude-component>" msgid "B<--security-compliance>" msgstr "B<--exclude-component>" #. type: textblock -#: ../scripts/salsa.pl:823 +#: ../scripts/salsa.pl:839 msgid "Enable or disabled Security and Compliance feature." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:825 +#: ../scripts/salsa.pl:841 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:827 +#: ../scripts/salsa.pl:843 #, fuzzy #| msgid "B<--preserve-env>" msgid "B<--service-desk>" msgstr "B<--preserve-env>" #. type: textblock -#: ../scripts/salsa.pl:829 +#: ../scripts/salsa.pl:845 msgid "Allow service desk feature." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:831 +#: ../scripts/salsa.pl:847 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:833 +#: ../scripts/salsa.pl:849 msgid "B<--snippets>" msgstr "B<--snippets>" #. type: textblock -#: ../scripts/salsa.pl:835 +#: ../scripts/salsa.pl:851 msgid "Set snippets feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:837 +#: ../scripts/salsa.pl:853 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:839 +#: ../scripts/salsa.pl:855 msgid "B<--wiki>" msgstr "B<--wiki>" #. type: textblock -#: ../scripts/salsa.pl:841 +#: ../scripts/salsa.pl:857 msgid "Set wiki feature with permissions." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:843 +#: ../scripts/salsa.pl:859 msgid "" "C<.devscripts> value: B (yes/private/no, default: yes)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:845 +#: ../scripts/salsa.pl:861 msgid "B<--irc-channel>" msgstr "B<--irc-channel>" #. type: textblock -#: ../scripts/salsa.pl:847 +#: ../scripts/salsa.pl:863 msgid "" "IRC channel for KGB or Irker. Can be used more than one time only with B<--" "irker>." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:850 +#: ../scripts/salsa.pl:866 msgid "" "B: channel must not include the first \"#\". If salsa finds a " "channel starting with \"#\", it will consider that the channel starts with 2 " @@ -23190,17 +23226,17 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:853 +#: ../scripts/salsa.pl:869 msgid "C<.devscript> value: B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:855 +#: ../scripts/salsa.pl:871 msgid "Multiple values must be space separated." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:857 +#: ../scripts/salsa.pl:873 msgid "" "Since configuration files are read using B, be careful when using \"#\": " "you must enclose the channel with quotes, else B will consider it as a " @@ -23208,72 +23244,72 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:861 +#: ../scripts/salsa.pl:877 msgid "B<--irker>, B<--no-irker>, B<--disable-irker>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:863 +#: ../scripts/salsa.pl:879 msgid "Enable, ignore or disable Irker service." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:865 +#: ../scripts/salsa.pl:881 msgid "C<.devscripts> value: B (yes/ignore/no, default: ignore)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:867 +#: ../scripts/salsa.pl:883 msgid "B<--irker-host>" msgstr "B<--irker-host>" #. type: textblock -#: ../scripts/salsa.pl:869 +#: ../scripts/salsa.pl:885 msgid "Irker host. Default: ruprecht.snow-crash.org." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:872 +#: ../scripts/salsa.pl:888 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:874 +#: ../scripts/salsa.pl:890 msgid "B<--irker-port>" msgstr "B<--irker-port>" #. type: textblock -#: ../scripts/salsa.pl:876 +#: ../scripts/salsa.pl:892 msgid "Irker port. Default: empty (default value)." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:879 +#: ../scripts/salsa.pl:895 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:881 +#: ../scripts/salsa.pl:897 msgid "B<--kgb>, B<--no-kgb>, B<--disable-kgb>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:883 +#: ../scripts/salsa.pl:899 msgid "Enable, ignore or disable KGB webhook." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:885 +#: ../scripts/salsa.pl:901 msgid "C<.devscripts> value: B (yes/ignore/no, default: ignore)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:887 +#: ../scripts/salsa.pl:903 msgid "B<--kgb-options>" msgstr "B<--kgb-options>" #. type: textblock -#: ../scripts/salsa.pl:889 +#: ../scripts/salsa.pl:905 msgid "" "List of KGB enabled options (comma separated). Default: issues_events, " "merge_requests_events, note_events, pipeline_events, push_events, " @@ -23281,7 +23317,7 @@ msgid "" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:894 +#: ../scripts/salsa.pl:910 #, no-wrap msgid "" " $ salsa update_safe debian/devscripts --kgb --irc-channel devscripts \\\n" @@ -23290,7 +23326,7 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:897 +#: ../scripts/salsa.pl:913 msgid "" "List of available options: confidential_comments_events, " "confidential_issues_events, confidential_note_events, " @@ -23299,133 +23335,147 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:902 +#: ../scripts/salsa.pl:918 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:904 +#: ../scripts/salsa.pl:920 msgid "B<--no-fail>" msgstr "B<--no-fail>" #. type: textblock -#: ../scripts/salsa.pl:906 +#: ../scripts/salsa.pl:922 msgid "" "Don't stop on error when using B with B<--all> or B<--all-" "archived> when set to yes." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:909 +#: ../scripts/salsa.pl:925 msgid "C<.devscripts> value: B (yes/no, default: no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:911 +#: ../scripts/salsa.pl:927 msgid "B<--rename-head>, B<--no-rename-head>" msgstr "B<--rename-head>, B<--no-rename-head>" #. type: textblock -#: ../scripts/salsa.pl:913 +#: ../scripts/salsa.pl:929 msgid "" "Rename HEAD branch given by B<--source-branch> into B<--dest-branch> and " "change \"default branch\" of project. Works only with B." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:916 +#: ../scripts/salsa.pl:932 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:920 +#: ../scripts/salsa.pl:936 #, fuzzy #| msgid "B<--mr-src-branch>" msgid "B<--source-branch>" msgstr "B<--mr-src-branch>" #. type: textblock -#: ../scripts/salsa.pl:922 +#: ../scripts/salsa.pl:938 msgid "Default: \"master\"." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:924 +#: ../scripts/salsa.pl:940 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:926 +#: ../scripts/salsa.pl:942 #, fuzzy #| msgid "B<--mr-src-branch>" msgid "B<--dest-branch>" msgstr "B<--mr-src-branch>" #. type: textblock -#: ../scripts/salsa.pl:928 +#: ../scripts/salsa.pl:944 #, fuzzy #| msgid "GitLab API. Default: L." msgid "Default: \"debian/latest\"." msgstr "GitLab-API. Standardwert: L." #. type: textblock -#: ../scripts/salsa.pl:930 +#: ../scripts/salsa.pl:946 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:934 +#: ../scripts/salsa.pl:950 msgid "B<--tagpending>, B<--no-tagpending>, B<--disable-tagpending>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:936 +#: ../scripts/salsa.pl:952 msgid "Enable, ignore or disable \"tagpending\" webhook." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:938 +#: ../scripts/salsa.pl:954 msgid "" "C<.devscripts> value: B (yes/ignore/no, default: ignore)" msgstr "" +#. type: =item +#: ../scripts/salsa.pl:956 +#, fuzzy +#| msgid "B<--mr-src-branch>" +msgid "B<--debian-branch>" +msgstr "B<--mr-src-branch>" + +#. type: textblock +#: ../scripts/salsa.pl:958 +msgid "" +"Set the branch to update for B command. Default to project's " +"default branch." +msgstr "" + #. type: =head2 -#: ../scripts/salsa.pl:942 +#: ../scripts/salsa.pl:963 msgid "Pipeline schedules" msgstr "" #. type: =item -#: ../scripts/salsa.pl:946 +#: ../scripts/salsa.pl:967 msgid "B<--schedule-desc>" msgstr "B<--schedule-desc>" #. type: textblock -#: ../scripts/salsa.pl:948 +#: ../scripts/salsa.pl:969 msgid "Description of the pipeline schedule." msgstr "" #. type: =item -#: ../scripts/salsa.pl:950 +#: ../scripts/salsa.pl:971 msgid "B<--schedule-ref>" msgstr "B<--schedule-ref>" #. type: textblock -#: ../scripts/salsa.pl:952 +#: ../scripts/salsa.pl:973 msgid "Branch or tag name that is triggered." msgstr "" #. type: =item -#: ../scripts/salsa.pl:954 +#: ../scripts/salsa.pl:975 msgid "B<--schedule-cron>" msgstr "B<--schedule-cron>" #. type: textblock -#: ../scripts/salsa.pl:956 +#: ../scripts/salsa.pl:977 msgid "Cron schedule. Example:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:958 +#: ../scripts/salsa.pl:979 #, no-wrap msgid "" " 0 1 * * *.\n" @@ -23433,99 +23483,99 @@ msgid "" msgstr "" #. type: =item -#: ../scripts/salsa.pl:960 +#: ../scripts/salsa.pl:981 msgid "B<--schedule-tz>" msgstr "B<--schedule-tz>" #. type: textblock -#: ../scripts/salsa.pl:962 +#: ../scripts/salsa.pl:983 msgid "Time zone to run cron schedule. Default: UTC." msgstr "" #. type: =item -#: ../scripts/salsa.pl:965 +#: ../scripts/salsa.pl:986 msgid "B<--schedule-enable>, B<--schedule-disable>" msgstr "B<--schedule-enable>, B<--schedule-disable>" #. type: textblock -#: ../scripts/salsa.pl:967 +#: ../scripts/salsa.pl:988 msgid "Enable/disable the pipeline schedule to run. Default: disabled." msgstr "" #. type: =item -#: ../scripts/salsa.pl:970 +#: ../scripts/salsa.pl:991 msgid "B<--schedule-run>" msgstr "B<--schedule-run>" #. type: textblock -#: ../scripts/salsa.pl:972 +#: ../scripts/salsa.pl:993 msgid "" "Trigger B<--schedule-desc> scheduled pipeline to run immediately. Default: " "false." msgstr "" #. type: =item -#: ../scripts/salsa.pl:975 +#: ../scripts/salsa.pl:996 msgid "B<--schedule-delete>" msgstr "B<--schedule-delete>" #. type: textblock -#: ../scripts/salsa.pl:977 +#: ../scripts/salsa.pl:998 msgid "Delete B<--schedule-desc> pipeline schedule." msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:981 +#: ../scripts/salsa.pl:1002 msgid "Merge requests options" msgstr "" #. type: =item -#: ../scripts/salsa.pl:985 +#: ../scripts/salsa.pl:1006 msgid "B<--mr-title>" msgstr "B<--mr-title>" #. type: textblock -#: ../scripts/salsa.pl:987 +#: ../scripts/salsa.pl:1008 msgid "Title for merge request. Default: last commit title." msgstr "" #. type: =item -#: ../scripts/salsa.pl:990 +#: ../scripts/salsa.pl:1011 msgid "B<--mr-desc>" msgstr "B<--mr-desc>" #. type: textblock -#: ../scripts/salsa.pl:992 +#: ../scripts/salsa.pl:1013 msgid "Description of new MR. Default:" msgstr "" #. type: =item -#: ../scripts/salsa.pl:997 +#: ../scripts/salsa.pl:1018 msgid "empty if B<--mr-title> is set" msgstr "" #. type: =item -#: ../scripts/salsa.pl:999 +#: ../scripts/salsa.pl:1020 msgid "last commit description if any" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1003 +#: ../scripts/salsa.pl:1024 msgid "B<--mr-dst-branch> (or second command line argument)" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1005 +#: ../scripts/salsa.pl:1026 msgid "Destination branch. Default: \"master\"." msgstr "" #. type: =item -#: ../scripts/salsa.pl:1008 +#: ../scripts/salsa.pl:1029 msgid "B<--mr-dst-project> (or first command line argument)" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1010 +#: ../scripts/salsa.pl:1031 msgid "" "Destination project. Default: project from which the current project was " "forked; or, if not found, \"upstream\" value found using B is set to B, salsa will use source project as " "destination." msgstr "" #. type: =item -#: ../scripts/salsa.pl:1018 +#: ../scripts/salsa.pl:1039 msgid "B<--mr-src-branch>" msgstr "B<--mr-src-branch>" #. type: textblock -#: ../scripts/salsa.pl:1020 +#: ../scripts/salsa.pl:1041 msgid "Source branch. Default: current branch." msgstr "" #. type: =item -#: ../scripts/salsa.pl:1023 +#: ../scripts/salsa.pl:1044 msgid "B<--mr-src-project>" msgstr "B<--mr-src-project>" #. type: textblock -#: ../scripts/salsa.pl:1025 +#: ../scripts/salsa.pl:1046 msgid "" "Source project. Default: current project found using B." msgstr "" #. type: =item -#: ../scripts/salsa.pl:1029 +#: ../scripts/salsa.pl:1050 msgid "B<--mr-allow-squash>, B<--no-mr-allow-squash>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1031 +#: ../scripts/salsa.pl:1052 msgid "Allow upstream project to squash your commits, this is the default." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1033 +#: ../scripts/salsa.pl:1054 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1035 +#: ../scripts/salsa.pl:1056 msgid "B<--mr-remove-source-branch>, B<--no-mr-remove-source-branch>" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1037 +#: ../scripts/salsa.pl:1058 msgid "Remove source branch if merge request is accepted. Default: no." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1040 +#: ../scripts/salsa.pl:1061 msgid "C<.devscripts> value: B (yes/no)" msgstr "" #. type: =head2 -#: ../scripts/salsa.pl:1044 +#: ../scripts/salsa.pl:1065 msgid "Options to manage other GitLab instances" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1048 +#: ../scripts/salsa.pl:1069 msgid "B<--api-url>" msgstr "B<--api-url>" #. type: textblock -#: ../scripts/salsa.pl:1050 +#: ../scripts/salsa.pl:1071 #, fuzzy #| msgid "GitLab API. Default: L." msgid "GitLab API. Default: L." msgstr "GitLab-API. Standardwert: L." #. type: textblock -#: ../scripts/salsa.pl:1053 +#: ../scripts/salsa.pl:1074 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1055 +#: ../scripts/salsa.pl:1076 msgid "B<--git-server-url>" msgstr "B<--git-server-url>" #. type: textblock -#: ../scripts/salsa.pl:1057 +#: ../scripts/salsa.pl:1078 #, fuzzy #| msgid "GitLab API. Default: L." msgid "Default: \"git@salsa.debian.org:\"." msgstr "GitLab-API. Standardwert: L." #. type: textblock -#: ../scripts/salsa.pl:1059 +#: ../scripts/salsa.pl:1080 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1061 +#: ../scripts/salsa.pl:1082 msgid "B<--irker-server-url>" msgstr "B<--irker-server-url>" #. type: textblock -#: ../scripts/salsa.pl:1063 +#: ../scripts/salsa.pl:1084 msgid "Default: \"ircs://irc.oftc.net:6697/\"." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1065 +#: ../scripts/salsa.pl:1086 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1067 +#: ../scripts/salsa.pl:1088 msgid "B<--kgb-server-url>" msgstr "B<--kgb-server-url>" #. type: textblock -#: ../scripts/salsa.pl:1069 +#: ../scripts/salsa.pl:1090 msgid "Default: L." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1071 +#: ../scripts/salsa.pl:1092 msgid "C<.devscripts> value: B" msgstr "" #. type: =item -#: ../scripts/salsa.pl:1073 +#: ../scripts/salsa.pl:1094 msgid "B<--tagpending-server-url>" msgstr "B<--tagpending-server-url>" #. type: textblock -#: ../scripts/salsa.pl:1075 +#: ../scripts/salsa.pl:1096 #, fuzzy #| msgid "GitLab API. Default: L." msgid "Default: L." msgstr "GitLab-API. Standardwert: L." #. type: textblock -#: ../scripts/salsa.pl:1077 +#: ../scripts/salsa.pl:1098 msgid "C<.devscripts> value: B" msgstr "" #. type: =head3 -#: ../scripts/salsa.pl:1081 +#: ../scripts/salsa.pl:1102 msgid "Configuration file example" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1083 +#: ../scripts/salsa.pl:1104 msgid "" "Example to use salsa with L (group \"lemonldap-ng\"):" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:1085 +#: ../scripts/salsa.pl:1106 #, no-wrap msgid "" " SALSA_TOKEN=`cat ~/.ow2-gitlab-token`\n" @@ -23700,12 +23750,12 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1090 +#: ../scripts/salsa.pl:1111 msgid "Then to use it, add something like this in your C<.bashrc> file:" msgstr "" #. type: verbatim -#: ../scripts/salsa.pl:1092 +#: ../scripts/salsa.pl:1113 #, no-wrap msgid "" " alias llng_admin='salsa --conffile ~/.salsa-ow2.conf'\n" @@ -23713,29 +23763,29 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1096 +#: ../scripts/salsa.pl:1117 msgid "B" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1100 +#: ../scripts/salsa.pl:1121 msgid "Xavier Guimard Eyadd@debian.orgE" msgstr "Xavier Guimard Eyadd@debian.orgE" #. type: textblock -#: ../scripts/salsa.pl:1104 +#: ../scripts/salsa.pl:1125 msgid "Copyright (C) 2018, Xavier Guimard Eyadd@debian.orgE" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1106 +#: ../scripts/salsa.pl:1127 msgid "" "It contains code formerly found in L I<(pkg-perl-tools)> " "copyright 2018, gregor herrmann Egregoa@debian.orgE." msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1109 +#: ../scripts/salsa.pl:1130 msgid "" "This library is free software; you can redistribute it and/or modify it " "under the terms of the GNU General Public License as published by the Free " @@ -23748,7 +23798,7 @@ msgstr "" "ändern." #. type: textblock -#: ../scripts/salsa.pl:1114 +#: ../scripts/salsa.pl:1135 msgid "" "This program is distributed in the hope that it will be useful, but WITHOUT " "ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or " @@ -23757,7 +23807,7 @@ msgid "" msgstr "" #. type: textblock -#: ../scripts/salsa.pl:1119 +#: ../scripts/salsa.pl:1140 msgid "" "You should have received a copy of the GNU General Public License along with " "this program. If not, see L." @@ -24448,11 +24498,17 @@ msgstr "" #. type: =item #: ../scripts/uscan.pl:103 -msgid "" -"* The new B enables handling of multiple upstream tarball (MUT) " -"packages but this is a rare case for Debian packaging. For a single " -"upstream tarball package, there is only one watch line and no I<< ../" -"_.orig-.tar.gz >> ." +#, fuzzy +#| msgid "" +#| "* The new B enables handling of multiple upstream tarball " +#| "(MUT) packages but this is a rare case for Debian packaging. For a " +#| "single upstream tarball package, there is only one watch line and no " +#| "I<< ../_.orig-.tar.gz >> ." +msgid "" +"* Since version 4 of debian/watch, B enables handling of multiple " +"upstream tarball (MUT) packages but this is a rare case for Debian " +"packaging. For a single upstream tarball package, there is only one watch " +"line and no I<< ../_.orig-.tar.gz >>." msgstr "" "* Die neue B aktiviert die Behandlung von Paketen mit mehreren " "Tarbällen der Ursprungsautoren (MUT), dies ist aber ein seltener Fall bei " @@ -24539,3998 +24595,18 @@ msgstr "FORMAT DER WATCH-DATEI" #. type: textblock #: ../scripts/uscan.pl:135 msgid "" -"The current version 4 format of F can be summarized as follows:" -msgstr "" -"Das derzeitig Format der Version 4 von F kann wie folgt " -"zusammengefasst werden" - -#. type: =item -#: ../scripts/uscan.pl:139 -msgid "* Leading spaces and tabs are dropped." -msgstr "* Führende Leerzeichen und Tabulatoren werden weggelassen." - -#. type: =item -#: ../scripts/uscan.pl:141 -msgid "* Empty lines are dropped." -msgstr "* Leere Zeilen werden weggelassen." - -# http://www.zeichen.tv/ -#. type: =item -#: ../scripts/uscan.pl:143 -msgid "* A line started by B<#> (hash) is a comment line and dropped." -msgstr "" -"* Eine Zeile, die mit B<#> (Doppelkreuz) beginnt, ist eine Kommentarzeile " -"und wird weggelassen." - -#. type: =item -#: ../scripts/uscan.pl:145 -msgid "" -"* A single B<\\> (back slash) at the end of a line is dropped and the next " -"line is concatenated after removing leading spaces and tabs. The " -"concatenated line is parsed as a single line. (The existence or non-" -"existence of the space before the tailing single B<\\> is significant.)" -msgstr "" -"* Ein einzelner B<\\> (Rückwärtsschrägstrich) am Ende einer Zeile wird " -"weggelassen und die nächste Zeile wird nach dem Entfernen führender " -"Leerzeichen und Tabulatoren angehängt. Die verbundene Zeile wird als " -"einzelne Zeile ausgewertet. (Es ist maßgeblich, ob das Leerzeichen vor dem " -"einzelnen B<\\> vorhanden ist oder nicht.)" - -#. type: =item -#: ../scripts/uscan.pl:150 -msgid "* The first non-comment line is:" -msgstr "* Die erste Nichtkommentarzeile ist:" - -#. type: =item -#: ../scripts/uscan.pl:154 -msgid "B" -msgstr "B" - -#. type: textblock -#: ../scripts/uscan.pl:158 -msgid "This is a required line and the recommended version number." -msgstr "Dies ist eine benötigte Zeile und die empfohlene Versionsnummer." - -#. type: textblock -#: ../scripts/uscan.pl:160 -msgid "" -"If you use \"B\" instead here, some features may not work as " -"documented here. See L." -msgstr "" -"Falls Sie hier stattdessen »B« benutzen, funktionieren einige " -"Funktionalitäten möglicherweise nicht wie hier beschrieben. Siehe L." - -#. type: =item -#: ../scripts/uscan.pl:163 -msgid "" -"* The following non-comment lines (watch lines) specify the rules for the " -"selection of the candidate upstream tarball URLs and are in one of the " -"following three formats:" -msgstr "" -"* Die folgenden Nichtkommentarzeilen (Watch-Zeilen) geben die Regeln für die " -"Auswahl der Kandidaten für Tarball-URLs der Ursprungsautoren in einem der " -"folgenden drei Formate an:" - -#. type: =item -#: ../scripts/uscan.pl:169 -msgid "" -"* B I<...> B<\"> BI I [I " -"[I