2 # $Id: html-install.in,v 1.2 1999/09/02 22:27:29 gecko Exp $
3 # Takes 1 argument - directory tree to install into
4 # Tree _must_ be synch'd with one used by db2html to generate file
7 require( '/etc/debbugs/config' );
9 $dirtree= shift(@ARGV);
10 defined($dirtree) or die 'usage';
11 chdir $dirtree or die $!;
13 $filenamere= '[0-9a-z]{2}/[0-9a-z][-+_:,.0-9a-zA-Z]*';
15 opendir(D,".") or die " opendir: $!";
16 while ($dir=readdir(D)) {
17 next if $dir =~ m/^\.\.?$/;
21 opendir(E,"$dir") or die " opendir $dir: $!";
22 while ($_=readdir(E)) {
23 next if $_ =~ m/^\.\.?$/;
24 $remove{"$dir/$_"}= 1;
26 closedir(E) or die " closedir $dir: $!";
30 closedir(D) or die " closedir: $!";
35 print "end, removing\n";
36 for $k (keys %remove) { unlink($k) || $!==&ENOENT or die "$k: $!"; }
37 for $k (keys %rmdir) { rmdir($k) || $!==&ENOTEMPTY || $!==EEXIST or die "$k: $!"; }
39 } elsif (s/^progress //) {
40 y/-+:._!#=,0-9a-zA-Z //cd;
41 print " progress $_\n";
42 } elsif (m/^preserve ($filenamere)$/o) {
44 delete $remove{"$1.ref"};
45 print " preserve $1\n";
46 } elsif (m/^(file|diff) (\d+) (ref|def|non) ($filenamere)$/o) {
47 $filediff= $1; $linestodo= $2; $ii= $3; $file= $4;
48 print " $filediff $ii $file\n";
49 delete $remove{$file};
50 delete $remove{"$file.ref"} if $ii eq 'ref';
51 $file =~ m,^(..)/, or die $file;
52 mkdir($1,0777) || $!==EEXIST or die $!;
54 $tranfile.= '.ref' if $ii eq 'ref';
55 open(DT,"> recv.tmp") or die $!;
56 if ($filediff eq 'diff') { print DT "r $tranfile\n" or die $!; }
58 while ($linestodo--) {
60 if ($filediff eq 'diff') {
61 if ($indata) { $indata=0 if $incmd && m/^\.$/; }
62 elsif ($z =~ m/^[0-9,]+[ac]/) { $indata= 1; }
63 elsif ($z !~ m/^[0-9,]+[ds]/) { die "SECURITY $file >$z<"; }
65 print DT $z or die $!;
67 if ($filediff eq 'diff') { print DT "w new.tmp\nq\n" or die $!; }
69 ($z=<STDIN>) eq "that$filediff $file\n" or die die "not confirmed >$z<";
70 if ($filediff eq 'diff') {
71 $q= `ed -s <recv.tmp 2>&1`;
72 length($q) || $? and die "ed $q $?";
73 rename("new.tmp","$tranfile") or die "$tranfile $!";
74 unlink("recv.tmp") or die $!;
76 rename("recv.tmp","$tranfile") or die "$tranfile $!";
79 open(I,"$tranfile") or die $!;
80 open(O,"> ref.tmp") or die $!;
82 if (m/^\<\!\-\-ii (\d+)\-\-\>$/) {
83 defined($iival{$1}) or die "$tranfile $1";
84 print O $iival{$1} or die $!;
91 rename("ref.tmp","$file") or die $!;
92 } elsif ($ii eq 'def') {
93 open(I,"$file") or die $!;
94 undef $cdef; $ctext= '';
96 if (s/^\<\!\-\-iid (\d+)\-\-\>//) {
97 defined($cdef) and die $file;
100 } elsif (s/\<\!\-\-\/iid\-\-\>\n$//) {
101 defined($cdef) or die $file;
102 $iival{$cdef}= $ctext.$_."\n";
103 $ctext=''; undef $cdef;
105 $ctext.= $_ if defined($cdef);
109 } elsif (m/^noremoves$/) {