wip commod-update-receiver

[ypp-sc-tools.web-live.git] / pctb / Commods.pm

diff --git a/pctb/Commods.pm b/pctb/Commods.pm
index d59529b0a6b1eb0121d3761e45a5a34c42686993..e695f15a5efe27afefba5ecdec381f1d87900e4e 100644 (file)
--- a/pctb/Commods.pm
+++ b/pctb/Commods.pm
@@ -11,7 +11,8 @@ BEGIN {
     $VERSION     = 1.00;
     @ISA         = qw(Exporter);
     @EXPORT      = qw(&parse_masters %oceans %commods %clients
-                     &parse_pctb_commodmap %pctb_commodmap @pctb_commodmap);
+                     &parse_pctb_commodmap %pctb_commodmap @pctb_commodmap
+                     &get_our_version);
     %EXPORT_TAGS = ( );
 
     @EXPORT_OK   = qw();
@@ -51,7 +52,7 @@ sub parse_master_master1 ($$) {
                    $oceans{$ocean}{$arch}{$_} .= $src;
                };
            });
-       } elsif (m/^client (\S+)$/) {
+       } elsif (m/^client (\S+.*\S)$/) {
            my $client= $1;
            $clients{$client}= [ ];
            @ctx= (sub {
@@ -108,4 +109,15 @@ sub parse_pctb_commodmap () {
     return 1;
 }
 
+sub get_our_version ($) {
+    my ($prefix);
+    {
+       no strict (qw(refs));
+       ${ "${prefix}name"  }= 'ypp-sc-tools yarrg';
+        ${ "${prefix}fixes" }= 'lastpage';
+        ${ "${prefix}version" }= `git-describe --tags HEAD`;
+        $? and die $?;
+    }
+}
+
 1;