adding SMS stuff so we don't forget about it
[wip/koha-chris_n.git] / sms / sms_listen_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/sms";
13 my $ZebraObj;
14  my $pid=Win32::Process::Create($ZebraObj,      "C:/perl/bin/perl.exe",'perl sms_listen.pl',    0, DETACHED_PROCESS,$fullpath)  ;
15
16 print $input->redirect("/cgi-bin/koha/mainpage.pl?pid=$pid");