Make the base directory configurable.

[wloh] / train.pl

diff --git a/train.pl b/train.pl
index e55f37c307f8489db4c75673af2c1158dcbbb4c9..95dcd06208b61f87bfadcafb3093d68407ae9144 100755 (executable)
--- a/train.pl
+++ b/train.pl
@@ -57,7 +57,7 @@ close DATA;
 $dbh->do('DELETE FROM ratings');
 my $iq = $dbh->prepare('INSERT INTO ratings ( id, rating ) VALUES (?, ?)');
 
-open RATINGS, "/home/sesse/dev/bayeswf/bayeswf < $tmpnam |"
+open RATINGS, "$config::base_dir/bayeswf < $tmpnam |"
        or die "bayeswf: $!";
 while (<RATINGS>) {
        /(.*) (.*)/ or next;