scripts/html-install.in

   1 #!/usr/bin/perl
   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
   5
   6 use POSIX;
   7 require( '/etc/debbugs/config' );
   8
   9 $dirtree= shift(@ARGV);
  10 defined($dirtree) or die 'usage';
  11 chdir $dirtree or die $!;
  12
  13 $filenamere= '[0-9a-z]{2}/[0-9a-z][-+_:,.0-9a-zA-Z]*';
  14
  15 opendir(D,".") or die " opendir: $!";
  16 while ($dir=readdir(D)) {
  17     next if $dir =~ m/^\.\.?$/;
  18     if (-f $dir) {
  19         $remove{$dir}= 1;
  20     } else {
  21         opendir(E,"$dir") or die " opendir $dir: $!";
  22         while ($_=readdir(E)) {
  23             next if $_ =~ m/^\.\.?$/;
  24             $remove{"$dir/$_"}= 1;
  25         }
  26         closedir(E) or die " closedir $dir: $!";
  27         $rmdir{$dir}= 1;
  28     }
  29 }
  30 closedir(D) or die " closedir: $!";
  31
  32 while(<>) {
  33     chomp;
  34     if (m/^end$/) {
  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: $!"; }
  38         exit 0;
  39     } elsif (s/^progress //) {
  40         y/-+:._!#=,0-9a-zA-Z //cd;
  41         print " progress $_\n";
  42     } elsif (m/^preserve ($filenamere)$/o) {
  43         delete $remove{$1};
  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 $!;
  53         $tranfile= $file;
  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 $!; }
  57         $indata= 0;
  58         while ($linestodo--) {
  59             $z=<STDIN>;
  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<"; }
  64             }
  65             print DT $z or die $!;
  66         }
  67         if ($filediff eq 'diff') { print DT "w new.tmp\nq\n" or die $!; }
  68         close(DT) 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 $!;
  75         } else {
  76             rename("recv.tmp","$tranfile") or die "$tranfile $!";
  77         }
  78         if ($ii eq 'ref') {
  79             open(I,"$tranfile") or die $!;
  80             open(O,"> ref.tmp") or die $!;
  81             while (<I>) {
  82                 if (m/^\<\!\-\-ii (\d+)\-\-\>$/) {
  83                     defined($iival{$1}) or die "$tranfile $1";
  84                     print O $iival{$1} or die $!;
  85                 } else {
  86                     print O or die $!;
  87                 }
  88             }
  89             close(I) or die $!;
  90             close(O) or die $!;
  91             rename("ref.tmp","$file") or die $!;
  92         } elsif ($ii eq 'def') {
  93             open(I,"$file") or die $!;
  94             undef $cdef; $ctext= '';
  95             while (<I>) {
  96                 if (s/^\<\!\-\-iid (\d+)\-\-\>//) {
  97                     defined($cdef) and die $file;
  98                     $cdef= $1;
  99                     $ctext= $_;
 100                 } elsif (s/\<\!\-\-\/iid\-\-\>\n$//) {
 101                     defined($cdef) or die $file;
 102                     $iival{$cdef}= $ctext.$_."\n";
 103                     $ctext=''; undef $cdef;
 104                 } else {
 105                     $ctext.= $_ if defined($cdef);
 106                 }
 107             }
 108         }
 109     } elsif (m/^noremoves$/) {
 110         print "noremoves\n";
 111         exit 0;
 112     } else {
 113         die " huh ? $_";
 114     }
 115 }
 116
 117 die "eof $!";