Parent Directory | Revision Log | Patch
revision 14 by dpavlin, Mon Nov 3 20:42:55 2008 UTC | revision 15 by dpavlin, Mon Nov 3 21:39:44 2008 UTC | |
---|---|---|
# | Line 85 our $debug = 1; | Line 85 our $debug = 1; |
85 | my $sql_dir = $ENV{SCRIPT_FILENAME} || '.'; | my $sql_dir = $ENV{SCRIPT_FILENAME} || '.'; |
86 | $sql_dir =~ s,/[^/]+$,,; | $sql_dir =~ s,/[^/]+$,,; |
87 | ||
88 | my $config_path = "$sql_dir/config.pl"; | my $config_path = $1 if "$sql_dir/config.pl" =~ m/^(.+)$/; # untaint |
89 | warn "# using $config_path\n"; | warn "# using $config_path\n"; |
90 | require $config_path if -e $config_path; | require $config_path if -e $config_path; |
91 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |