/usr/share/doc/libapache-session-perl/examples/example.perl is in libapache-session-perl 1.93-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | #!/usr/bin/perl
######################################################################
#
# Consult the documentation before trying to run this file.
# You need a /tmp directory or you need to change the Directory option!
# This file also assumes PerlSendHeader Off.
#
######################################################################
use strict;
use Apache;
use CGI;
use Apache::Session::File;
my $r = Apache->request();
$r->status(200);
$r->content_type("text/html");
$r->send_http_header;
my $session_id = $r->path_info();
$session_id =~ s/^\///;
$session_id = $session_id ? $session_id : undef;
my %session;
my $opts = { Directory => '/tmp', LockDirectory => 'tmp', Transaction => 1 };
tie %session, 'Apache::Session::File', $session_id, $opts;
my $input = CGI::param('input');
$session{name} = $input if $input;
print<<__EOS__;
Hello<br>
Session ID number is: $session{_session_id}<br>
The Session ID is embedded in the URL<br>
<br>
Your input to the form was: $input<br>
Your name is $session{name}<br>
<br>
<a href="http://localhost/example.perl/$session{_session_id}">Reload this session</a><br>
<a href="http://localhost/example.perl">New session</a>
<form action="http://localhost/example.perl/$session{_session_id}" method="post">
Type in your name here:
<input name="input">
<input type="submit" value="Go!">
</form>
__EOS__
|