Data file can be specified by MOJOWKA_DATAFILE environment variable

chorny · Jul 14, 2010 · 85249d9 · 85249d9
1 parent 34bf711
commit 85249d9
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/mojowka b/mojowka
@@ -23,7 +23,10 @@ use Text::Textile;
 use DBI;
 
 
-my $dbfile = 'data.sqlite';
+my $dbfile
+    = $ENV{'MOJOWKA_DATAFILE'}
+    || 'data.sqlite';
+
 our $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", '', '');
 
 our $txt = new Text::Textile;