#!/usr/bin/perl -w


use strict;
use CGI qw(:standard);

my $query = new CGI;
my $stylesheet = $query->cookie(-name=>'stylesheet', -domain=>'.stidman.com');


unless ( $stylesheet ) {
   $stylesheet = "DEFAULT";
}

printf("Content-type: text/css\n\n");


if ( open(STYLESHEET_FILE, "< ../stylesheets/directory-${stylesheet}.css") ) {
   while ( <STYLESHEET_FILE> ) {
      print($_);
   }
} else {
   printf("\r\n/* Stylesheet Not Found: %s */\r\n\r\n", $stylesheet);
}