Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 18 lines (15 sloc) 0.474 kB
#!/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");
Jump to Line
Something went wrong with that request. Please try again.