diff options
Diffstat (limited to 'xpp/perl_modules/Dahdi/Config/Gen')
-rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm | 2 | ||||
-rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen/System.pm | 2 | ||||
-rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen/Unicall.pm | 2 | ||||
-rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen/Users.pm | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm b/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm index f48455d..1f39a7a 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm @@ -131,7 +131,7 @@ sub generate($) { my $file = $self->{FILE}; my $gconfig = $self->{GCONFIG}; my $genopts = $self->{GENOPTS}; - #Dahdi::Config::Gen::show_gconfig($gconfig); + #$gconfig->dump; my @spans = @_; warn "Empty configuration -- no spans\n" unless @spans; rename "$file", "$file.bak" diff --git a/xpp/perl_modules/Dahdi/Config/Gen/System.pm b/xpp/perl_modules/Dahdi/Config/Gen/System.pm index da60ec4..f805b65 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen/System.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen/System.pm @@ -107,7 +107,7 @@ sub generate($$$) { rename "$file", "$file.bak" or $! == 2 # ENOENT (No dependency on Errno.pm) or die "Failed to backup old config: $!\n"; - #Dahdi::Config::Gen::show_gconfig($gconfig); + #$gconfig->dump; print "Generating $file\n" if $genopts->{verbose}; open(F, ">$file") || die "$0: Failed to open $file: $!\n"; my $old = select F; diff --git a/xpp/perl_modules/Dahdi/Config/Gen/Unicall.pm b/xpp/perl_modules/Dahdi/Config/Gen/Unicall.pm index 526b62b..1a796f4 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen/Unicall.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen/Unicall.pm @@ -22,7 +22,7 @@ sub generate($) { my $file = $self->{FILE}; my $gconfig = $self->{GCONFIG}; my $genopts = $self->{GENOPTS}; - #Dahdi::Config::Gen::show_gconfig($gconfig); + #$gconfig->dump; my @spans = @_; warn "Empty configuration -- no spans\n" unless @spans; die "Only for R2" unless $gconfig->{'pri_connection_type'} eq 'R2'; diff --git a/xpp/perl_modules/Dahdi/Config/Gen/Users.pm b/xpp/perl_modules/Dahdi/Config/Gen/Users.pm index 36c2e65..e9d8ab9 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen/Users.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen/Users.pm @@ -73,7 +73,7 @@ sub generate($) { my $file = $self->{FILE}; my $gconfig = $self->{GCONFIG}; my $genopts = $self->{GENOPTS}; - #Dahdi::Config::Gen::show_gconfig($gconfig); + #$gconfig->dump; my @spans = @_; warn "Empty configuration -- no spans\n" unless @spans; rename "$file", "$file.bak" |