File: cgi_dir.cgi

package info (click to toggle)
libplack-perl 1.0050-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 1,484 kB
  • sloc: perl: 5,289; makefile: 4; sh: 4; javascript: 1
file content (12 lines) | stat: -rwxr-xr-x 357 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/env perl
use File::Basename qw/dirname/;
use Cwd;

my $cgi_dir  = Cwd::abs_path( dirname( __FILE__ ) );
my $exec_dir = Cwd::abs_path( Cwd::getcwd );
my $result = $cgi_dir eq $exec_dir ? "MATCH" : "DIFFERENT";
if ($result ne "MATCH") {
    $result .= "\nCGI_DIR: $cgi_dir\nEXEC_DIR: $exec_dir\n";
}

print "Content-Type: text/plain\n\n", $result;