#!/opt/bcs/bin/perl
# #!c:/cygwin/bin/perl.exe
##
##  return the appropriate theme css 
##

my $cookie = $ENV{'HTTP_COOKIE'};
my $theme;
if ($cookie =~ /^([-\@\w.=;\s]+)$/)
{
  $cookie = $1;
  ($theme) = $cookie =~ /nde-style=([a-zA-Z]+)/;
  $theme =~ tr/A-Z/a-z/;
}
$theme = $theme || 'blue';
print "Location: ", "/lib/css/nde-$theme.css\n\n";