our @EXPORT_OK = (
'STATE', 'TEXT_MODE', 'INTF_STATE', 'CHAT_STATE', 'CHAT_ACTION',
'get_remote_addr', 'get_id', 'get_frame', 'get_password',
- 'merge_settings',
'print_html_start', 'print_html_end',
'print_html_head_start', 'print_html_head_end',
'print_html_body_start', 'print_html_body_end',
'join_path',
'copy_encoded', 'open_encoded', '_x_encoded',
'http_header_line', 'http_status',
- 'http_header_status', 'http_header_allow', 'http_header_location'
+ 'http_header_status', 'http_header_allow', 'http_header_location',
+ 'merge_settings'
);
###PERL_PATH_SEPARATOR: PATH_SEPARATOR = /
}
-sub merge_settings {
- my %final_settings;
-
- foreach my $settings (@_) {
- foreach my $ind (keys %$settings) {
- $final_settings{$ind} = $settings->{$ind};
- }
- }
- return %final_settings;
-}
-
-
# BB code stuff
# different & simpler implementation than in post library
# to consider: