Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 17 lines (15 sloc) 0.474 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/env perl
# script that starts the zebraqueue
# Written by TG on 01/08/2006
use strict;

use Win32::Process;
use Win32;
use Koha;
use C4::Context;
use CGI;
my $input=new CGI;
my $fileplace=C4::Context->config('intranetdir');
my $fullpath=$fileplace."/cgi-bin/sms";
my $ZebraObj;
my $pid=Win32::Process::Create($ZebraObj, "C:/perl/bin/perl.exe", 'perl sms_listen.pl', 0, DETACHED_PROCESS, $fullpath);

print $input->redirect("/cgi-bin/koha/mainpage.pl?pid=$pid");
Something went wrong with that request. Please try again.