sms/sms_listen_windows_start.pl

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