[Xen-devel] [OSSTEST PATCH 1/6] Debian: Provide cfg_tftp_di_version

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

And a shell function to do the same thing.

No callers yet.

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 Osstest/Debian.pm |    7 +++++++
 cri-getconfig     |    9 +++++++++
 2 files changed, 16 insertions(+)

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index d3eff1e..f3c2f63 100644
--- a/Osstest/Debian.pm
+++ b/Osstest/Debian.pm
@@ -46,6 +46,7 @@ BEGIN {
                       preseed_hook_cmds
                       di_installcmdline_core
                       di_vg_name
+                      cfg_tftp_di_version
                       );
     %EXPORT_TAGS = ( );
 
@@ -1358,6 +1359,12 @@ sub preseed_hook_cmds () {
     return $preseed;
 }
 
+sub cfg_tftp_di_version ($) {
+    my ($suite) = @_;
+    $suite //= 'x def suite'; # will not find $c{...}
+    return $c{"TftpDiVersion_$suite"} // $c{TftpDiVersion};
+}
+
 sub debian_guest_suite ($) {
     my ($gho) = @_;
 
diff --git a/cri-getconfig b/cri-getconfig
index 7b75700..8b76f32 100644
--- a/cri-getconfig
+++ b/cri-getconfig
@@ -25,6 +25,15 @@ getconfig () {
         '
 }
 
+getconfig_TftpDiVersion_suite () {
+       perl -e '
+               use Osstest;
+               use Osstest::Debian;
+               readglobalconfig();
+               print cfg_tftp_di_version($ARGV[0]) or die $!;
+       ' "$1"
+}
+
 getrepos() {
        local repos=`getconfig Repos`
        if [ -z "$repos" ] ; then
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel