[Thu Mar 22 10:55:17 2007] [error] [client 127.0.0.1] Options ExecCGI is off in this directory: /Users/sarah/Sites/test.cgi

I thought to myself, “B.S.! ExecCGI is on for that directory!” Sure enough, in my httpd.conf file, I had:

<Directory /Users/*/Sites>
    AllowOverride FileInfo AuthConfig Limit
    Options ExecCGI MultiViews Indexes SymLinksIfOwnerMatch Includes
    DirectoryIndex index.htm index.html index.cgi
    <Limit GET POST OPTIONS PROPFIND>
        Order allow,deny
        Allow from all
    </Limit>
    <LimitExcept GET POST OPTIONS PROPFIND>
        Order deny,allow
        Deny from all
    </LimitExcept>
</Directory>

I had restarted Apache with sudo apachectl graceful, so what was up? Then I noticed something else in error_log:

Processing config directory: /private/etc/httpd/users/*.conf
Processing config file: /private/etc/httpd/users/sarah.conf

What was this /private/etc/httpd/users/sarah.conf that it was talking about? I had never created this file. I checked and it certainly existed. It also had an Options line without ExecCGI—bingo! I simply removed the file because it was just redefining what I had already specified in httpd.conf for Users/*/Site directories (shown above). I then restarted Apache and voila, my scripts worked. :) I can only assume something auto-generated that file, because it certainly wasn’t me.

Other things to check if you’re still seeing the source of your scripts or getting a 403 error:

• Is your script executable? Chmod it to 755 to be sure.
• Ensure these lines are uncommented in your /etc/httpd/httpd.conf (or whatever your Apache config file is):
  • LoadModule cgi_module libexec/httpd/mod_cgi.so
  • LoadModule perl_module libexec/httpd/libperl.so
  • AddModule mod_cgi.c
  • AddModule mod_perl.c
  • AddHandler cgi-script .cgi .pl
• Be sure to restart Apache after making any config file changes. You can do this via Terminal with the command sudo apachectl graceful, which will prompt you for your password, or via System Preferences > Sharing, where you Stop “Personal Web Sharing” and Start it again.

• Download the program and instructions

The only change you might have to make is if you’re on a Linux machine and Perl is not at /usr/bin/perl, but somewhere else, in which case you would need to change the first line to contain the proper path. I’ve not tested this program on a Windows box.

#!/usr/bin/perl
# Renames file extensions
#
# Syntax:
#     perl extensionChanger.pl --from=FIRST_EXTENSION --to=SECOND_EXTENSION
# Example use:
#      perl extensionChanger.pl --from=html --to=php
# Optional:
#      Specify a directory to work in. Defaults to PWD.
#      --dir=DIRECTORY
# Example use:
#      perl extensionChanger.pl --from=exe --to=pl --dir=tmp
#
# Sarah; 2005-12-18

use Getopt::Long;
GetOptions(
     "from=s" => \$ext1,
     "to=s" => \$ext2,
     "dir=s" => \$dir
);

if ($ext1 eq "" or $ext2 eq "") {
     print "Syntax:\n";
     print "\tperl extensionChanger.pl --from=FIRST_EXTENSION --to=SECOND_EXTENSION\n\n";
     print "Example:\n";
     print "\tperl extensionChanger.pl --from=txt --to=php\n\n";
     print "Optional:\n";
     print "\tSpecify a directory to work in. Defaults to PWD.\n";
     print "\t--dir=DIRECTORY\n\n";
     print "Example:\n";
     print "\tperl extensionChanger.pl --from=exe --to=pl --dir=tmp\n";
     exit;
} else {
     if ($dir eq "") {
          $dir = ".";
     }

     opendir(DIR, $dir) || die "Could not open directory for reading.";

     # Get an array of all files with the old extension that are in the given directory
     @files = grep(/\.$ext1$/, readdir(DIR));

     if ($files[0] eq “”) {
          print "There are no files of extension '$ext1' ";
          if ($dir eq ".") {
               print "in PWD";
          } else {
               print "in $dir";
          }
          print ".\n";
     } else {
          # For every file with the old extension in the given directory...
          foreach $file (@files) {
               print "$file ";

               if ($dir ne ".") {
                    print "in $dir/ ";
               }

               # Remove the current extension from the $file variable
               $file =~ s/\.$ext1//g;

               # Rename the file to have the new extension
               $error = `mv $dir/$file.$ext1 $dir/$file.$ext2`;

               print "is now $file.$ext2\n";

               # If there were errors, print them
               if ($error ne "") {
                    print "E: $error\n";
               }
          }
     }
     closedir(DIR);
}