diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-20 00:21:35 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-30 16:35:58 +0000 |
commit | 6b9101bc9749d9b7399cb5d89bacbec097bf0d4d (patch) | |
tree | eae51cfc44c47810bc358196675a2e1fd9073828 | |
parent | a92b0585c8d2438c45b25ff92185d263901f4d87 (diff) |
archive_query: Provide file_in_archive methods
No functional change as no callers yet.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | dgit | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -1080,6 +1080,15 @@ sub archive_query_ftpmasterapi () { return @rows; } +sub file_in_archive_ftpmasterapi { + my ($proto,$data,$filename) = @_; + my $pat = $filename; + $pat =~ s/_/\\_/g; + $pat = "%/$pat"; + $pat =~ s#[^-+_.0-9a-z/]# sprintf '%%%02x', ord $& #ge; + my $info = api_query($data, "file_in_archive/$pat", 1); +} + #---------- `madison' archive query method ---------- sub archive_query_madison { @@ -1128,6 +1137,8 @@ sub canonicalise_suite_madison { return $r[0][2]; } +sub file_in_archive_madison { return undef; } + #---------- `sshpsql' archive query method ---------- sub sshpsql ($$$) { @@ -1203,6 +1214,8 @@ END return $rows[0]; } +sub file_in_archive_sshpsql ($$$) { return undef; } + #---------- `dummycat' archive query method ---------- sub canonicalise_suite_dummycat ($$) { @@ -1244,6 +1257,8 @@ sub archive_query_dummycat ($$) { return sort { -version_compare($a->[0],$b->[0]); } @rows; } +sub file_in_archive_dummycat () { return undef; } + #---------- tag format handling ---------- sub access_cfg_tagformats () { |