916 | | $gsdl_cgi->checked_chdir($site_dir_path); |
917 | | opendir(DIR,$site_dir_path); |
918 | | @site_dir=readdir(DIR); |
919 | | closedir(DIR); |
920 | | |
921 | | foreach $sub_dir_file(@site_dir) |
922 | | { |
923 | | if ($sub_dir_file eq "siteConfig.xml"){ |
924 | | print STDOUT "$sites_dir" . "-----"; |
| 916 | if (-d $site_dir_path) { |
| 917 | $gsdl_cgi->checked_chdir($site_dir_path); |
| 918 | opendir(DIR,$site_dir_path); |
| 919 | @site_dir=readdir(DIR); |
| 920 | closedir(DIR); |
| 921 | |
| 922 | foreach $sub_dir_file(@site_dir) |
| 923 | { |
| 924 | if ($sub_dir_file eq "siteConfig.xml"){ |
| 925 | print STDOUT "$sites_dir" . "-----"; |
| 926 | last; |
| 927 | } |