Changeset 5 in ProjectBuilder for devel/pb/bin/mkannounce.pl
- Timestamp:
- Jul 29, 2007, 12:50:34 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/mkannounce.pl
r2 r5 18 18 $ENV{LANG}="C"; 19 19 20 my $ TOOLHOME;20 my $PBROOT; 21 21 my $tmp = dirname($PROGRAM_NAME); 22 22 print "$tmp\n"; 23 23 if ($tmp =~ /^\//) { 24 $ TOOLHOME= $tmp;24 $PBROOT = $tmp; 25 25 } 26 26 else { 27 $ TOOLHOME= "$ENV{PWD}/$tmp";27 $PBROOT = "$ENV{PWD}/$tmp"; 28 28 } 29 29 30 my $db="$ TOOLHOME/../website/announces3.sql";30 my $db="$PBROOT/../website/announces3.sql"; 31 31 32 32 my $dbh = DBI->connect("dbi:SQLite:dbname=$db","","",
Note:
See TracChangeset
for help on using the changeset viewer.