Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

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', 0, DETACHED_PROCESS, $fullpath);
print $input->redirect("/cgi-bin/koha/$pid");
Jump to Line
Something went wrong with that request. Please try again.