[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-admin
Subject:    Win32::Process problem solved!!!!!
From:       "Norris, Joseph" <NorrisJ () mcdss ! org>
Date:       2002-09-19 17:31:39
[Download RAW message or body]

Thanks to all for the input - here is what I did and it works just fine.

sub build_voicemail_update{
	my ($suffix) = @_;
	$suffix =~ s/'//g;
	my ($pid, $arg);
	my $perl_path = qq!c:\\winnt\\system32\\cmd.exe!;
	my $app = qq!\/c perl
C:\\web\\cgi-bin\\PHONEL~1\\UPDATE~2\\DISABL~1.PL!;
	$arg =  "$app $suffix";
	if(!(Win32::Spawn($perl_path, $arg, $pid))){
		die " could not spawn $path - $arg  - $!";
	}
}
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[prev in list] [next in list] [prev in thread] [next in thread]