← Back to branch summary

~ubuntu-branches/ubuntu/feisty/openafs/feisty

« back to all changes in this revision

Viewing changes to src/packaging/MacOS/csrvdbmerge.pl

  • Committer: Package Import Robot
  • Author(s): Russ Allbery
  • Date: 2007-03-26 18:56:55 UTC
  • Revision ID: package-import@ubuntu.com-20070326185655-osce8n0y0dptgurh
http://bugs.debian.org/415699
http://bugs.debian.org/409797
http://bugs.debian.org/410120
http://bugs.debian.org/410314
http://bugs.debian.org/409357
* New upstream release.  (Closes: #415699)
  - Support newer Linux kernels.  (Closes: #409797, #410120)
  - Add aklog fallbacks for null realms to support the referral
    capability in MIT Kerberos 1.6 and later.  (Closes: #410314)
* Apply patch from Thomas Sesselmann to support setting options to pass
  to bosserver in /etc/default/openafs-fileserver.  (Closes: #409357)
* Remove the rx_Init calls in the PAM module.  The internal counters
  that had to be initialized that way have been removed.
* Now that we're running regen.sh as part of the build process, only
  patch the Autoconf source files and not the generated output to make
  the diff easier to audit.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/packaging/MacOS/csrvdbmerge.pl
1
 
#!/usr/bin/perl
2
 
# CellServDB merging script
3
 
# only tested on darwin systems
4
 
 
5
 
use File::Copy;
6
 
use IO::File;
7
 
use Fcntl;
8
 
use strict;
9
 
 
10
 
 
11
 
sub doit {
12
 
  my ($cur,$in,$last,$new);
13
 
  my ($line, $oline, $cell, $pos, $which);
14
 
  my %cellstat;
15
 
 
16
 
  $cur=new IO::File '<CellServDB';
17
 
  $last=new IO::File '<CellServDB.master.last';
18
 
  
19
 
  while (defined($line=<$cur>)) {
20
 
    if ($line =~ /^>([-a-zA-Z0-9\._]+)\s/) {
21
 
      if ($cell) {
22
 
        $oline=<$last>;
23
 
        if ($oline && $oline !~ /^>/) { # fewer servers in user's file than master
24
 
          $cellstat{$cell} = 1;
25
 
        }
26
 
      }
27
 
      $cell=$1;
28
 
      $cellstat{$cell}=2; 
29
 
      # start at the beginning of the old file, and find $cell
30
 
      $last->seek(0,SEEK_SET);
31
 
      while (<$last>) {
32
 
        if (/>$cell\s/) { # note that we don't compare the cell comments
33
 
          $cellstat{$cell}=0; 
34
 
          last;
35
 
        }
36
 
      }
37
 
      next;
38
 
    }
39
 
    if (! $cell) {
40
 
      die "First CellServDB line isn't a cell\n";
41
 
    }
42
 
    next if ($cellstat{$cell} == 2); # cell only in local CellServDB
43
 
    next if ($cellstat{$cell} == 1); # already found a local change
44
 
    $oline=<$last>;
45
 
    if ($oline =~ /^>/) { # more servers in user's file than master
46
 
      $last->setpos($pos);
47
 
      $cellstat{$cell} = 1;
48
 
      next;
49
 
    }
50
 
    next if ($line eq $oline);
51
 
    $cellstat{$cell} = 1;
52
 
  }
53
 
  close($last);
54
 
  $cur->seek(0,SEEK_SET);
55
 
  $cur=new IO::File '<CellServDB' or die "No CellServDB: $!\n";
56
 
  $in=new IO::File '<CellServDB.master' or die "No CellServDB.master: $!\n";
57
 
  $new=new IO::File '>CellServDB.NEW' or die "Cannot create output CellServDB: $!\n";
58
 
  while (defined($line=<$cur>)) {
59
 
    if ($line =~ /^>([-a-zA-Z0-9\._]+)\s/) {
60
 
      $cell=$1;
61
 
      $which=$cellstat{$cell};
62
 
      unless ($which) {
63
 
        $in->seek(0,SEEK_SET);
64
 
        while (<$in>) {
65
 
          if (/>$cell\s/) {
66
 
            last;
67
 
          }
68
 
        }
69
 
        if (defined($_)) {
70
 
          print $new $_;
71
 
          while (defined($line=<$in>) && $line !~ /^>/) {
72
 
            print $new $line;
73
 
          }
74
 
        } 
75
 
      }
76
 
    }
77
 
    if (! $cell) {
78
 
      die "First CellServDB line isn't a cell\n";
79
 
    }
80
 
    if ($which) {
81
 
      print $new $line;
82
 
    }
83
 
  }
84
 
  close($in);
85
 
  close($cur);
86
 
  close($new);
87
 
  rename('CellServDB.NEW', 'CellServDB');
88
 
  copy('CellServDB.master', 'CellServDB.master.last');
89
 
}
90
 
 
91
 
doit;