z3950/zebraqueue_windows_start.pl

   1 #!/usr/bin/perl
   2 # script that starts the zebraquee
   3 #  Written by TG on 01/08/2006
   4 use strict;
   5
   6 use Win32::Process;
   7 use Win32;
   8 use C4::Context;
   9 use CGI;
  10 my $input=new CGI;
  11 my $fileplace=C4::Context->config('intranetdir');
  12 my $fullpath=$fileplace."/cgi-bin/z3950";
  13 my $ZebraObj;
  14  my $pid=Win32::Process::Create($ZebraObj,      "C:/usr/bin/perl.exe",'perl zebraqueue_start.pl',       0, DETACHED_PROCESS,$fullpath)  ;
  15
  16 print $input->redirect("/cgi-bin/koha/mainpage.pl?pid=$pid");