Navigation

Changeset 3963

Timestamp:

05/06/07 06:46:22 (6 years ago)

Author:

diego_iastrubni

Message:

this patch is called "open or die".

The syntax of all teh "open die" commands has been unified, and the scripts now tell you why they failed.

Files:

r3919	r3963
96	96	}
97	97
98		open( EXTEN, ">$iax_conf" ) or die "Cannot create/overwrite IAX file: $iax_conf (!$)\n";
99		open( REG, ">$iax_reg" ) or die "Cannot create/overwrite IAX Registration file: $iax_reg (!$)\n";
	98	open( EXTEN, ">$iax_conf" ) or die "Cannot create/overwrite IAX file: $iax_conf ($!)\n";
	99	open( REG, ">$iax_reg" ) or die "Cannot create/overwrite IAX Registration file: $iax_reg ($!)\n";
100	100
101	101	print EXTEN $warning_banner;

r3919	r3963
64	64	$zaplabel="Zap \%c";
65	65	$lastlabelnum=0;
66		open ~~ZAPATA, "<$conffile" \|\| die "Cannot open config file: $zapataconf~~\n";
	66	open( ZAPATA, "<$conffile" ) or die "Cannot open config file: $zapataconf ($!)\n";
67	67	while( $line = <ZAPATA> ) {
68	68	next if $line =~ /^(\s)*$/;
…	…
199	199	}
200	200
201		open( EXTEN, ">$op_conf" ) or die "Cannot create/overwrite config file: $op_conf (!$)\n";
	201	open( EXTEN, ">$op_conf" ) or die "Cannot create/overwrite config file: $op_conf ($!)\n";
202	202	print EXTEN $warning_banner;
203	203

r3775	r3963
16	16	);
17	17
18		open(AMPCONF, $filename) or die "Cannot open $filename";
	18	open(AMPCONF, $filename) or die "Cannot open $filename ($!)";
19	19
20	20	while (<AMPCONF>)

r3919	r3963
88	88	}
89	89
90		open( EXTEN, ">$queues_conf" ) or die "Cannot create/overwrite extensions file: $queues_conf (!$)\n";
	90	open( EXTEN, ">$queues_conf" ) or die "Cannot create/overwrite extensions file: $queues_conf ($!)\n";
91	91	print EXTEN $warning_banner;
92	92

r3919	r3963
93	93	}
94	94
95		open( EXTEN, ">$zap_conf" ) or die "Cannot create/overwrite extensions file: $zap_conf (!$)\n";
	95	open( EXTEN, ">$zap_conf" ) or die "Cannot create/overwrite extensions file: $zap_conf ($!)\n";
96	96	print EXTEN $warning_banner;
97	97