site/cgi-bin/fileprogress.fcgi

   1 #!/usr/bin/perl -w
   2 # -d:ptkdb
   3 BEGIN { $ENV{DISPLAY} = '192.168.32.54:0.0' }
   4 use strict;
   5 use FindBin;
   6 use CGI::Fast;
   7 use lib "$FindBin::Bin/modules";
   8 use BSE::Request;
   9 use BSE::Template;
  10 use BSE::UI::FileProgress;
  11
  12 my $cfg = BSE::Cfg->new; # only do this once
  13
  14 while (my $cgi = CGI::Fast->new) {
  15   my $req = BSE::Request->new
  16       (
  17        nosession => 1,
  18        nodatabase => 1,
  19        cfg => $cfg,
  20        cgi => $cgi,
  21        fastcgi => $FCGI::global_request->IsFastCGI,
  22       );
  23
  24   my $result = BSE::UI::FileProgress->dispatch($req);
  25
  26   $req->output_result($result);
  27 }
  28