Ignore:
Timestamp:
Jul 29, 2007, 12:50:34 AM (12 years ago)
Author:
bruno
Message:

Lots of modifs to find the right way. Probably still not good

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/mkannounce.pl

    r2 r5  
    1818$ENV{LANG}="C";
    1919
    20 my $TOOLHOME;
     20my $PBROOT;
    2121my $tmp = dirname($PROGRAM_NAME);
    2222print "$tmp\n";
    2323if ($tmp =~ /^\//) {
    24     $TOOLHOME = $tmp;
     24    $PBROOT = $tmp;
    2525    }
    2626else {
    27     $TOOLHOME = "$ENV{PWD}/$tmp";
     27    $PBROOT = "$ENV{PWD}/$tmp";
    2828    }
    2929
    30 my $db="$TOOLHOME/../website/announces3.sql";
     30my $db="$PBROOT/../website/announces3.sql";
    3131
    3232my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
Note: See TracChangeset for help on using the changeset viewer.