Mercurial > hg > anonet-resdb

diff contrib/whoisd/whoisd.pl @ 1178:1112129d9653 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hey, pgp key! don't remember what I changed in whoisd.pl
author epoch <epoch@hacking.allowed.ano>
date Tue, 14 Oct 2014 03:05:00 +0000
parents da853b90f62b
children 98707534e274
line wrap: on
line diff
--- a/contrib/whoisd/whoisd.pl	Thu Sep 25 04:18:56 2014 +0000
+++ b/contrib/whoisd/whoisd.pl	Tue Oct 14 03:05:00 2014 +0000
@@ -20,6 +20,7 @@
 my $out;
 my $title;
 my $value;
+my @value;
 my @parts;
 my $i;
 
@@ -69,7 +70,8 @@
  foreach(split(/\n/,`grep '' -r .`)) {
   $out = $_;
   $out =~ s/^\.\///g;
-  ($title, $value) = split(/:/,$out);
+  ($title, @value) = split(/:/,$out);
+  $value=join(":",@value);
   printf "%-20s %s\n", $title . ":", $value unless $HACK;
   if($title eq "owner") {
    $QUERY = $value;