RT#41866: Punctuation prevented package from billing
[freeside.git] / 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");