[- $args = shift @param; # 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; } $name = $EMU::userdb{'options.real_name'}; if (defined $EMU::userdb{'options.email'}) { $email = $EMU::userdb{'options.email'}; } else { $email = &EMU::get_var('user_name'); } $now = &EMU::get_date(undef,undef,undef,1); -]