bin/confdiff

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::Conf;
   5
   6 adminsuidsetup('ivan');
   7
   8 my $conf = new FS::Conf;
   9
  10 my $file2 = pop @ARGV;
  11 my $file1 = pop @ARGV;
  12
  13 open(FILE1, ">/tmp/$file1") or die "can't open /tmp/$file1: $!";
  14 print FILE1 $conf->config($file1);
  15 print FILE1 "\n";
  16 close FILE1 or die $!;
  17
  18 open(FILE2, ">/tmp/$file2") or die "can't open /tmp/$file2: $!";
  19 print FILE2 $conf->config($file2);
  20 print FILE2 "\n";
  21 close FILE2 or die $!;
  22
  23 my @opt = @ARGV;
  24
  25 system('diff', @opt, "/tmp/$file1", "/tmp/$file2");
  26
  27 #unlink("/tmp/$file1', "/tmp/$file2");