#### Method: save
# Write values out to a filehandle in such a way that they can
# be reinitialized by the filehandle form of the new() method
####
'save' => <<'END_OF_FUNC',
sub save {
    my($self,$filehandle) = self_or_default(@_);
    $filehandle = to_filehandle($filehandle);
    my($param);
    local($,) = '';  # set print field separator back to a sane value
    local($\) = '';  # set output line separator to a sane value
    foreach $param ($self->param) {
    my($escaped_param) = escape($param);
    my($value);
    foreach $value ($self->param($param)) {
        print $filehandle "$escaped_param=",escape("$value"),"\n";
    }
    }
    foreach (keys %{$self->{'.fieldnames'}}) {
          print $filehandle ".cgifields=",escape("$_"),"\n";
    }
    print $filehandle "=\n";    # end of record
}
END_OF_FUNC
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

First a quote direct from CGI::save method comment.

#### Method: save
# Write values out to a filehandle in such a way that they can
# be reinitialized by the filehandle form of the new() method
####
[download]

1. sub-class CGI (an example of this is CGI::Pretty look at it if you are not sure how to do this)
2. two choices in your new sub-class, overide CGI::save method or creat a new save_db method either way 90% of the code you need is in original save method.
3. Must overide CGI::new to handle case when previous state has been save using your new save_db form.

mitd-Made in the Dark
'Interactive! Paper tape is interactive!
If you don't believe me I can show you my paper cut scars!'

The easiest way to do it in a few lines is this:

use CGI;
my $q = new CGI;

# to save object to a database as a single string
my $string = $q->query_string();
save_to_db($string);

# to retrieve object just get the string back
my $string = get_from_db();
# and use it to initinalise a new CGI object
my $reconstituted_q = new CGI($string);
[download]

This works because the query_string() method generates a query string equivalent to your object data and you can ititialise a CGI object fron a query string like $q = new CGI( "foo=bar&baz=spaz" )

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print