defaria.com/cvsadm/test.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use CVSAdm;
   6
   7 sub Read {
   8   my $filename  = shift;
   9
  10   open FILE, $filename
  11     or DisplayError "Unable to open file $filename - $!";
  12
  13   my @lines = <FILE>;
  14
  15   close FILE;
  16
  17   return @lines;
  18 } # Read
  19
  20 my $groups = "penguin/andrew-cvs/CVSROOT/groups";
  21 my $group = "foobar";
  22
  23   my @groups = Read $groups;
  24
  25   open FILE, ">/tmp/groups.before";
  26   foreach (@groups) {
  27     print FILE $_;
  28   } # foreach
  29   close FILE;
  30   foreach (@groups) {
  31     my $line = $_;
  32     chomp $line;
  33     return 1, "Group $group already exists" if $group eq $line;
  34   } # foreach
  35   push @groups, $group . "\n";
  36
  37   open FILE, ">/tmp/groups.after";
  38   foreach (@groups) {
  39     print FILE $_;
  40   } # foreach
  41   close FILE;