Author: ranger
Date: Thu May 11 07:07:59 2006
New Revision: 16
URL:
<http://svn.finkproject.org/websvn/listing.php?sc=1&rev=16&repname=user%3a+ranger>
Log:
just some stuf to make it easier with a fresh setup
Modified:
trunk/phenomenon/schema.sql
trunk/phenomenon/startup.pl
Modified: trunk/phenomenon/schema.sql
URL:
<http://svn.finkproject.org/websvn/diff.php?path=/trunk/phenomenon/schema.sql&rev=16&repname=user%3a+ranger>
==============================================================================
--- trunk/phenomenon/schema.sql (original)
+++ trunk/phenomenon/schema.sql Thu May 11 07:07:59 2006
@@ -1,3 +1,4 @@
+BEGIN TRANSACTION;
CREATE TABLE visitors (id integer primary key autoincrement, session_id test);
CREATE TABLE hits (id integer primary key autoincrement, visitor_id integer
not null references visitors(id), url text, page text, referrer text,
user_agent text, remote_addr text, browser_width integer, browser_height
integer);
CREATE TABLE keywords (id integer primary key autoincrement, keyword text);
@@ -6,4 +7,5 @@
CREATE TABLE hit_language_map (hit_id integer not null references hits(id),
language_id integer not null references languages(id));
CREATE TABLE charsets (id integer primary key autoincrement, charset text);
CREATE TABLE hit_charset_map (hit_id integer not null references hits(id),
charset_id integer not null references charsets(id));
-
+COMMIT;
+.quit
Modified: trunk/phenomenon/startup.pl
URL:
<http://svn.finkproject.org/websvn/diff.php?path=/trunk/phenomenon/startup.pl&rev=16&repname=user%3a+ranger>
==============================================================================
--- trunk/phenomenon/startup.pl (original)
+++ trunk/phenomenon/startup.pl Thu May 11 07:07:59 2006
@@ -1,3 +1,26 @@
use lib qw(/Users/ranger/cvs/phenomenon/lib /sw/lib/perl5/5.8.6 /sw/lib/perl5);
+use Phenomenon::DB;
+use File::Path;
+
+my $db = Phenomenon::DB->new();
+
+# I know this is ugly, it's just for now until I have proper configuration
stuff. :)
+
+if ($db->dbi_driver eq "SQLite")
+{
+ if (not -f $db->database and -f
"/Users/ranger/cvs/phenomenon/schema.sql")
+ {
+ system("echo '' | /usr/bin/sqlite3 -init
/Users/ranger/cvs/phenomenon/schema.sql " . $db->database);
+ }
+}
+
+if (not -d "/tmp/sessions/lock")
+{
+ mkpath("/tmp/sessions/lock");
+}
+
+system("chown www:www " . $db->database);
+system("chown -R www:www /tmp/sessions");
+
1;
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
