[914] in BarnOwl Developers
[D-O-H] r901 - branches/barnowl_sqlite/owl
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:11:04 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@MIT.EDU
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Thu, 24 Jan 2008 16:42:10 -0500 (EST)
Author: nelhage
Date: 2008-01-24 16:42:10 -0500 (Thu, 24 Jan 2008)
New Revision: 901
Modified:
branches/barnowl_sqlite/owl/createdb.pl
Log:
Default createdb.pl to ~/.owl/messagedb
Modified: branches/barnowl_sqlite/owl/createdb.pl
===================================================================
--- branches/barnowl_sqlite/owl/createdb.pl 2008-01-24 04:20:12 UTC (rev 900)
+++ branches/barnowl_sqlite/owl/createdb.pl 2008-01-24 21:42:10 UTC (rev 901)
@@ -77,9 +77,9 @@
my $schema = DBIx::DBSchema->new($messages, $attrs);
-my $dsn = shift;
-my $user = shift;
-my $pass = shift;
+my $dsn = shift || "DBI:SQLite:dbname=$ENV{HOME}/.owl/messagedb";
+my $user = shift || undef;
+my $pass = shift || undef;
my $dbh = DBI->connect($dsn, $user, $pass, {RaiseError => 1, AutoCommit => 0});
my @sql = $schema->sql($dbh);
