######################################################################
+#####
# Get_cookie - Gets all the cookies and returns them in a hash
# Usage: my %cookie = &get_cookie;
######################################################################
+#####
sub get_cookie {
  my @cstuff = @_;
  my ($cookie, $value, $char, %cookie);
  my @Cdec = ('\+', '\%3A\%3A', '\%3D', '\%2C', '\%25', '\%2B', '\%26'
+,'\%3B');
  my %Cdec = ('\+',' ','\%3A\%3A','::','\%3D','=','\%2C',',','\%25','%
+','\%2B','+','\%26','&','\%3B',';');
  if ($ENV{'HTTP_COOKIE'}) {
    foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
    ($cookie,$value) = split(/=/);
      foreach $char (@Cdec) {
        $cookie =~ s/$char/$Cdec{$char}/g;
        $value =~ s/$char/$Cdec{$char}/g;
      }
      $cookie{$cookie} = $value;
    }
  }
  return %cookie;
}

######################################################################
+#####
# set_cookie - Sets a cookie.
# Usage : set_cookie('Name',"Value",?) ? = 0 or 1. 0 = temp, 1 = perma
+nent
######################################################################
+#####
sub set_cookie {
  my @cookie = @_;
  my ($cookie, $value, $type, $char);
  my @Cenc = ('\;','\&','\+','\%','\,','\=','\:\:','\s');
  my %Cenc = ('\;','%3B','\&','%26','\+','%2B','\%','%25','\,','%2C','
+\=','%3D','\:\:','%3A%3A','\s','+');
  my $header = '';
  for (my $i = 0; $i <= $#cookie; $i = $i + 3) {
    ($cookie, $value, $type) = @cookie[$i .. $i+2];
    foreach $char (@Cenc) {
      $cookie =~ s/$char/$Cenc{$char}/g;
      $value =~ s/$char/$Cenc{$char}/g;
    }
    $header = 'Set-Cookie: ' . $cookie . '=' . $value . ';';
    if ($type == 1) {
      $header .= ' expires=Friday, 31-Dec-2010 00:00:00 GMT; path=/';
    }
    print "$header\n";
  }
}
[download]

I've seen those on cookie-lib.pl (inspired by cgi-lib.pl). I might still have a copy around here somewhere, if anyone wants to check it out I can look for it on tape. Just /msg me in the chatterbox and I'll put a link here or something.

#!/home/bbq/bin/perl
# Trust no1!

-- Kirby

Tuxtops: Laptops with Linux!

$foo='/path/to/my/module';
use lib $foo;
[download]

And thus spoke bluelines:

$foo='/path/to/my/module'; 
use lib $foo;
[download]

Which won't work, because the use will be at compile time, but the setting of $foo will not happen until runtime. {sigh}.

Either put the assignment inside a BEGIN, or just use lib '/path/to/my/module';

-- Randal L. Schwartz, Perl hacker

argh. stupid compile time.

BlueLines

Disclaimer: This post may contain inaccurate information, be habit forming, cause atomic warfare between peaceful countries, speed up male pattern baldness, interfere with your cable reception, exile you from certain third world countries, ruin your marriage, and generally spoil your day. No batteries included, no strings attached, your mileage may vary.

I like the Idea but the Server admins would not. Not that I would have to tell them.

I would read the contents of CGI::Cookies.pm and see what you can scrounge from that code. You might also consider adding a subdirectory to the cgi-bin you are using and install libraries there. Then just add that directory to @INC inside a begin block in your script. (or on the #! line). There are many ways to get around evil sysops.