Mercurial > hg > anonet-resdb

comparison 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
comparison
equal deleted inserted replaced
1177:92e75cf00024 1178:1112129d9653
18 exit 0; 18 exit 0;
19 } 19 }
20 my $out; 20 my $out;
21 my $title; 21 my $title;
22 my $value; 22 my $value;
23 my @value;
23 my @parts; 24 my @parts;
24 my $i; 25 my $i;
25 26
26 if($QUERY eq "!!\n") { 27 if($QUERY eq "!!\n") {
27 $QUERY=<stdin>; 28 $QUERY=<stdin>;
67 } 68 }
68 } 69 }
69 foreach(split(/\n/,`grep '' -r .`)) { 70 foreach(split(/\n/,`grep '' -r .`)) {
70 $out = $_; 71 $out = $_;
71 $out =~ s/^\.\///g; 72 $out =~ s/^\.\///g;
72 ($title, $value) = split(/:/,$out); 73 ($title, @value) = split(/:/,$out);
74 $value=join(":",@value);
73 printf "%-20s %s\n", $title . ":", $value unless $HACK; 75 printf "%-20s %s\n", $title . ":", $value unless $HACK;
74 if($title eq "owner") { 76 if($title eq "owner") {
75 $QUERY = $value; 77 $QUERY = $value;
76 } 78 }
77 } 79 }