site/cgi-bin/admin/logon.pl

   1 #!/usr/bin/perl -w
   2 # -d:ptkdb
   3 BEGIN { $ENV{DISPLAY} = '192.168.32.15: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::AdminLogon;
  12
  13 $SIG{__DIE__} = sub { confess $@ };
  14
  15 my $req = BSE::Request->new;
  16
  17 my $result = BSE::AdminLogon->dispatch($req);
  18 $| = 1;
  19 push @{$result->{headers}}, "Content-Type: $result->{type}";
  20 push @{$result->{headers}}, $req->extra_headers;
  21 if (exists $ENV{GATEWAY_INTERFACE}
  22     && $ENV{GATEWAY_INTERFACE} =~ /^CGI-Perl\//) {
  23   use Apache;
  24   my $r = Apache->request or die;
  25   $r->send_cgi_header(join("\n", @{$result->{headers}})."\n");
  26 }
  27 else {
  28   print "$_\n" for @{$result->{headers}};
  29   print "\n";
  30 }
  31 print $result->{content};