diff options
author | bbaetz%student.usyd.edu.au <> | 2002-03-31 12:19:06 +0000 |
---|---|---|
committer | bbaetz%student.usyd.edu.au <> | 2002-03-31 12:19:06 +0000 |
commit | d8dad92ff903380dfec153f254ec671fbe91f969 (patch) | |
tree | fb088c399349072a80302b86dc68007d6e4a9099 /checksetup.pl | |
parent | Bug 133210 - typo in checksetup; uses $::params instead of $::param (diff) | |
download | bugzilla-d8dad92ff903380dfec153f254ec671fbe91f969.tar.gz bugzilla-d8dad92ff903380dfec153f254ec671fbe91f969.tar.bz2 bugzilla-d8dad92ff903380dfec153f254ec671fbe91f969.zip |
Bug 120537 - Allow the use of a local 'dot' binary to generate dependancy
graphs
patch by zeroJ@null.net (John Vandenberg), r=gerv, bbaetz
Diffstat (limited to 'checksetup.pl')
-rwxr-xr-x | checksetup.pl | 40 |
1 files changed, 37 insertions, 3 deletions
diff --git a/checksetup.pl b/checksetup.pl index 30ed3cc6e..d98676073 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -684,8 +684,7 @@ END print "Creating data/webdot/.htaccess...\n"; open HTACCESS, ">data/webdot/.htaccess"; print HTACCESS <<'END'; -# Allow access to nothing in this directory except for .dot files -# and don't allow access to those to anyone except research.att.com +# Restrict access to .dot files to the public webdot server at research.att.com # if research.att.com ever changed their IP, or if you use a different # webdot server, you'll need to edit this <FilesMatch ^[0-9]+\.dot$> @@ -693,6 +692,12 @@ END Deny from all </FilesMatch> +# Allow access by a local copy of 'dot' to .png, .gif, .jpg, and +# .map files +<FilesMatch ^[0-9]+\.(png|gif|jpg|map)$> + Allow from all +</FilesMatch> + # And no directory listings, either. Deny from all END @@ -922,7 +927,7 @@ if ($my_db_check) { # Check what version of MySQL is installed and let the user know # if the version is too old to be used with Bugzilla. if ( vers_cmp($sql_vers,$sql_want) > -1 ) { - print "ok: found v$sql_vers\n\n"; + print "ok: found v$sql_vers\n"; } else { die "Your MySQL server v$sql_vers is too old./n" . " Bugzilla requires version $sql_want or later of MySQL.\n" . @@ -958,7 +963,36 @@ my $dbh = DBI->connect($connectstring, $my_db_user, $my_db_pass) END { $dbh->disconnect if $dbh } +########################################################################### +# Check GraphViz setup +########################################################################### + +# +# If we are using a local 'dot' binary, verify the specified binary exists +# and that the generated images are accessible. +# + +if(-e "data/params") { + require "data/params"; + if( $::param{'webdotbase'} && $::param{'webdotbase'} !~ /^https?:/ ) { + printf("Checking for %15s %-9s ", "GraphViz", "(any)"); + if(-x $::param{'webdotbase'}) { + print "ok: found\n"; + } else { + print "not a valid executable: $::param{'webdotbase'}\n"; + } + + # Check .htaccess allows access to generated images + open HTACCESS, "data/webdot/.htaccess"; + if(! grep(/png/,<HTACCESS>)) { + print "Dependency graph images are not accessible.\n"; + print "Delete data/webdot/.htaccess and re-run checksetup.pl to rectify.\n"; + } + close HTACCESS; + } +} +print "\n"; ########################################################################### |