Re: Datestyle and Postmaster

On Thu, 16 Nov 2000, Jason Everett wrote:

> work using psql but I'm not quite sure how to get my programs to do the
> same (other than rewrite them to use the ISO, US style).  Is there a way

I use this in my open_database() Perl function:

# NAME
#    open_database
# DESCRIPTION
#    Opens a database and sets up a reasonable set of defaults.
# RESULT
#    The database handle, or undef.
# NOTES
# BUGS
# TODO
sub open_database {
   # NOTES
   #    - We set AutoCommit to 1 (no transactions for now)
   #      and RaiseError to 0, since we check explicitely all
   #      results.
   my $dbh = DBI->connect("dbi:Pg"
                          . ":dbname=$the_database"
                          . ";host=$the_server",
                          $the_user,
                          $the_password,
                          { RaiseError => 0,
                            AutoCommit => 1
                          });

   if (defined($dbh)) {
      # Also sets up reasonable defaults.

      my $result = 0;
      my $sth = $dbh->prepare("SET DATESTYLE=\'ISO\'");
      if (defined($sth)) {
         my $rv = $sth->execute;

         if (defined($rv)) {
            $result = 1;
            undef $rv;
         }

         $sth->finish;
         undef $sth;
      }

      if ($result == 0) {
         undef $dbh;
      }
   }

   return $dbh;
}