- C97446D52E0E61E4453130BF0C3E3DFCEB4C03AB336718629BE96BA1E364313DD3F8D1787F40AC235DF4DEDAD50D6E64C1C78709D4545A73C0217450591AD750+ 115B06A799EAE048FFBD18642234DC234E9BF879EBDEDF0ED9B4BE69A410187537B618D2B4B581954B89D1F63EF0925F9FF1AE26F0882C28F05D3A1FCDB1A732v/v.pl(8 . 9)(8 . 12)
5 # please always : read and understand any software ; verify any PGP signatures
6 # that you use - for any purpose.
7
8 # modified by Diana Coman to use vtools with keccak hashes (vpatch and ksum)
9 # version no changed to 99992
10
11 use strict;
12
13 my $version = "99993 K ";
14 my $version = "99992 K ";
15
16 my $tdir = "";
17
(26 . 8)(29 . 8)
19 my ($pdir, $sdir, $wdir) = "";
20 my (@pfiles, @sfiles, @wfiles) = ();
21
22 my @dep_bins = ("cat", "echo", "gpg", "ls", "mkdir", "patch", "pwd",
23 "rm", "sha512sum", "sort", "wget", "which", "mktemp");
24 my @dep_bins = ("cat", "echo", "gpg", "ls", "mkdir", "vpatch", "pwd",
25 "rm", "ksum", "sort", "wget", "which", "mktemp");
26
27 sub check_required_bins {
28 my (@bins) = @_;
(429 . 11)(432 . 11)
30 `mkdir -p $press[0]`;
31 foreach my $vp (@pp) {
32 if($v) {
33 my @out = `patch -F 0 -E --dir $press[0] -p1 < $pdir/$vp 2>&1`;
34 my @out = `cd $press[0] && vpatch < $pdir/$vp 2>&1`;
35 print "$vp\n";
36 foreach my $o (@out) { print " $o"; }
37 } else {
38 `patch -F 0 -E --dir $press[0] -p1 < $pdir/$vp`;
39 `cd $press[0] && vpatch < $pdir/$vp`;
40 }
41 %vp_map = ();
42 verify_pressed($press[0], add_pressed($vp));
(460 . 7)(463 . 7)
44 my $file_hash = $vp_map{$vp}{$src_file_name}{b};
45 if($file_hash ne "false") {
46 my $fp = $press_dir . "/" . get_filepath($src_file_name);
47 my $hashed = `sha512sum $fp`;
48 my $hashed = `ksum $fp`;
49 $hashed =~ /^(.*) .*$/;
50 my $pressed_hash = $1;
51 if($file_hash ne $pressed_hash) {
(773 . 7)(776 . 7)
53 # (se | sync-everything) (<mirror_url> <pdir> <sdir>) #
54 # (a | ante | antecedents) (<vpatch>) #
55 # (d | desc | descendants) (<vpatch>) #
56 # (o | origin) (<sha512_hash>) #
57 # (o | origin) (<keccak_hash>) #
58 # (g | graph) (<output_dotfile> [<output_svg_html_file>]) #
59 # (v | version) #
60 # (h | help) #
(874 . 7)(877 . 7)
62 # Finds the descendants of a given vpatch and prints the results to #
63 # stdout #
64 # #
65 # o, origin (<sha512_hash>) #
66 # o, origin (<keccak_hash>) #
67 # Returns the vpatch and signatories where the given hash originated in #
68 # the source tree. #
69 # #