--- trunk/vhost/webpac2.cgi	2009/06/09 21:34:21	1218
+++ trunk/vhost/webpac2.cgi	2009/06/09 21:36:22	1219
@@ -109,7 +109,12 @@
 sub read_config_txt {
 	my ( $file ) = @_;
 	my $input;
-	foreach ( split(/[\n\r]+/, read_file( "$dir/$path/$path-$file.txt" ) ) ) {
+	my $path ="$dir/$path/$path-$file.txt";
+	if ( ! -e $path ) {
+		warn "missing $path";
+		return;
+	}
+	foreach ( split(/[\n\r]+/, read_file( $path ) ) ) {
 		my ( $val,$label ) = split(/\s*\t\s*/,$_,2);
 		push @{ $input->{ '-values' } }, $val;
 				$input->{ '-labels' }->{$val} = $label;