Apache::Scriptor::Simple - The simplest way to activate Apache::Scriptor.

Apache-Scriptor-Simple documentation Contained in the Apache-Scriptor-Simple distribution.

Index

Code Index:

NAME

Top

Apache::Scriptor::Simple - The simplest way to activate Apache::Scriptor.

SYNOPSIS

Top

  #!/usr/local/bin/perl -w 
  # Use "handlers" handler directory:
  use Apache::Scriptor::Simple; 
  # that's all!

  #!/usr/local/bin/perl -w 
  # Custom handler directory:
  use Apache::Scriptor::Simple("myhandlers"); 
  # that's all!

DESCRIPTION

Top

This module is used to make the work of creation Apache handler schipt easily. See example in Apache::Scriptor module.

EXAMPLE

Top

  ### File /.htaccess:
    # Setting up the conveyor for .htm:
    # "input" => eperl => s_copyright => "output" 
    Action     perl "/_Kernel/Scriptor.pl"
    AddHandler perl .htm
    Action     s_copyright "/_Kernel/Scriptor.pl"
    AddHandler s_copyright .htm

  ### File /_Kernel/Scriptor.pl:
    #!/usr/local/bin/perl -w 
  use Apache::Scriptor::Simple; 

  ### File /test.htm:
    print "<html><body>Hello, world!</body></html>";

  ### File /_Kernel/handlers/s_copyright.pl:
    sub s_copyright
    {  my ($input)=@_;
       -f $ENV{SCRIPT_FILENAME} or return -1; # Error indicator
       # Adds the comment string BEFORE all the output.
       print '<!-- Copyright (C) by Dmitry Koterov (koterov at cpan dot org) -->\n'.$input;
       return 0; # OK
    }

  ### Then, user enters the URL: http://ourhost.com/test.htm.
  ### The result will be:
    Content-type: text/html\n\n
    <!-- Copyright (C) by Dmitry Koterov (koterov at cpan dot org) -->\n
    Hello, world!

AUTHOR

Top

Dmitry Koterov <koterov at cpan dot org>, http://www.dklab.ru

SEE ALSO

Top

Apache::Scriptor.

Apache-Scriptor-Simple documentation Contained in the Apache-Scriptor-Simple distribution. 
package Apache::Scriptor::Simple;
$VERSION="1.21";
use Apache::Scriptor;

# Äèðåêòîðèÿ îáðàáîò÷èêîâ ïî óìîë÷àíèþ
my $DefHandDir="handlers";

#############################################################################
# Ïåðâûì äåëîì ïðîâåðÿåì, íå çàïóñêàåòñÿ ëè ñëó÷àåì ýòîò ñêðèïò 
# íåëåãàëüíûì îáðàçîì è, åñëè ýòî òàê, ïåðåáðàñûâàåì â êîðåíü.
# Çàïóñê íå êàê CGI?
if(!$ENV{DOCUMENT_ROOT} || !$ENV{SCRIPT_NAME} || !$ENV{SERVER_NAME}) {
  print "This script has to be used only as Apache handler!\n\n";
  exit;
}
# Çàïóñê "íàïðÿìóþ"?
if(!$ENV{REDIRECT_URL}) {
  print "Location: http://$ENV{SERVER_NAME}/\n\n";
  exit;
}
#############################################################################

sub import 
{ my ($pkg,$HandDir);
  # Ïî óìîë÷àíèþ?
  if(!defined $HandDir) {
    use FindBin qw($Bin);
    ($Bin) = $Bin=~/(.*)/;
    $HandDir = "$Bin/$DefHandDir";
  }
  require Apache::Scriptor;
  my $Scr=Apache::Scriptor->new();
  # Óñòàíàâëèâàåì äèðåêòîðèþ ñ îáðàáîò÷èêàìè.
  $Scr->set_handlers_dir($HandDir);
  # Ïîåõàëè.
  my ($uri)  = $ENV{REQUEST_URI}=~/(.*)/;
  my ($path) = $ENV{PATH_TRANSLATED}=~/(.*)/;
  $Scr->run_uri($uri, $path);
}

return 1;
__END__