log warning about missing files

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1219 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 83c658d..838cfd9 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -109,7 +109,12 @@ my $db = $config->{databases}->{$database};
 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;