35 lines
645 B
Perl
35 lines
645 B
Perl
|
#file:Stasis/Web.pm
|
||
|
|
#----------------------
|
||
|
|
package StasisWeb::Web;
|
||
|
|
|
||
|
|
use threads::shared;
|
||
|
|
my $thelock :shared;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Apache2::RequestRec ();
|
||
|
|
use Apache2::RequestIO ();
|
||
|
|
use Apache2::Const -compile => qw(OK);
|
||
|
|
|
||
|
|
sub handler {
|
||
|
|
my $r = shift;
|
||
|
|
$r->content_type('text/html');
|
||
|
|
print "<html><head></head><body><h1>Stasis</h1>" . `pwd`;
|
||
|
|
my $xid = Stasis::Tbegin();
|
||
|
|
warn "a\n";
|
||
|
|
my %h;
|
||
|
|
tie %h, 'Stasis::Hash', $xid, Stasis::ROOT_RID();
|
||
|
|
|
||
|
|
$h{foo}++;
|
||
|
|
|
||
|
|
print ("$xid $h{foo}\n");
|
||
|
|
|
||
|
|
Stasis::Tcommit($xid);
|
||
|
|
warn "b\n"; $| = 1;
|
||
|
|
|
||
|
|
print "</body></html>\n";
|
||
|
|
|
||
|
|
return Apache2::Const::OK;
|
||
|
|
}
|
||
|
|
1;
|