{ use esmith::AccountsDB; my $adb = esmith::AccountsDB->open_ro(); local @page = ('206','301','302','400','401','404','405','500','502'); local $texte = ""; foreach my $ibay ($adb->ibays) { $texte = ""; foreach my $err_num (@page) { local $errorMessage = $ibay->prop("err$err_num"); if ($errorMessage) { $texte .= " ErrorDocument $err_num $errorMessage\n"; } } if ($texte) { $OUT .= "\nkey . "/html>\n"; $OUT .= $texte; $OUT .= "\n"; } } }