[- $args = shift @param; @interfaces = split(/[\s,]+/, $EMU::c{'ifaces'}); $default_interface = &EMU::get_var('type') || &EMU::get_var('emu_type') || $EMU::emu_cookies{'emu_type'} || $EMU::c{"default_interface"}; @mailhosts = split(/[\s,]+/, $EMU::c{'mail_hosts'}); $default_host = &EMU::get_var('hostname') || $emu_cookies{'host'}; if (&EMU::get_var('user_name') && $default_host) { $email = &EMU::get_var('user_name')."\@$default_host"; } $theme = $args->{theme}; # This is a browser check to identify if the user's browser is one known to have poor CSS implementation if ($ENV{HTTP_USER_AGENT} =~ /^Mozilla\/4/ && $ENV{HTTP_USER_AGENT} !~ /MSIE|Opera/i) { $args->{BADCSS} = 1; } else { $args->{BADCSS} = 0; } -]