[bse.git] / site / cgi-bin / user.pl

#!/usr/bin/perl -w
# -d:ptkdb
BEGIN { $ENV{DISPLAY} = '192.168.32.54:0.0'; }
use strict;
use FindBin;
use lib "$FindBin::Bin/modules";
use Constants;
use BSE::UserReg;
use BSE::Request;
use Carp 'confess';

$SIG{__DIE__} = sub { confess $@ };

my $req = BSE::Request->new;
my $result = BSE::UserReg->new->dispatch($req);

# just for now, eventually all UserReg methods should properly return
# a result
if ($result) {
  my $cfg = $req->cfg;
  undef $req;
  BSE::Template->output_resultc($cfg, $result);
}
Commit	Line	Data
2eca61d5 TC	1	#!/usr/bin/perl -w
2eca61d5 TC	2	# -d:ptkdb
6430ee52	3	BEGIN { $ENV{DISPLAY} = '192.168.32.54:0.0'; }
2eca61d5 TC	4	use strict;
	5	use FindBin;
	6	use lib "$FindBin::Bin/modules";
94140734 TC	7	use Constants;
	8	use BSE::UserReg;
	9	use BSE::Request;
	10	use Carp 'confess';
2eca61d5	11
94140734 TC	12	$SIG{__DIE__} = sub { confess $@ };
	13
	14	my $req = BSE::Request->new;
	15	my $result = BSE::UserReg->new->dispatch($req);
	16
	17	# just for now, eventually all UserReg methods should properly return
	18	# a result
	19	if ($result) {
	20	my $cfg = $req->cfg;
	21	undef $req;
	22	BSE::Template->output_resultc($cfg, $result);
	23	}