site/cgi-bin/nuser.pl

   1 #!/usr/bin/perl -w
   2 # -d:ptkdb
   3 BEGIN { $ENV{DISPLAY} = '192.168.32.51:0.0' }
   4 use strict;
   5 use FindBin;
   6 use lib "$FindBin::Bin/modules";
   7 use BSE::DB;
   8 use BSE::Request;
   9 use BSE::Template;
  10 use Carp 'confess';
  11 use BSE::UI::NUser;
  12
  13 $SIG{__DIE__} = sub { confess $@ };
  14
  15 my $req = BSE::Request->new;
  16
  17 my $result = BSE::UI::NUser->dispatch($req);
  18
  19 BSE::Template->output_result($req, $result);
  20