Process modules for perl scripts.

3 files changed, 76 insertions, 0 deletions

diff --git a/bin/Process.pm b/bin/Process.pm
new file mode 100644
index 00000000000..46deb2f572e
--- /dev/null
+++ b/bin/Process.pm
@@ -0,0 +1,12 @@
+$inc = "Process_Unix.pm";
+$DIR_SEPARATOR = "/";
+
+if ($^O eq "MSWin32")
+{
+	$inc = "Process_Win32.pm";
+	$DIR_SEPARATOR = "\\";
+}
+
+require $inc;
+
+1;
\ No newline at end of file
diff --git a/bin/Process_Unix.pm b/bin/Process_Unix.pm
new file mode 100644
index 00000000000..0537074dbb7
--- /dev/null
+++ b/bin/Process_Unix.pm
@@ -0,0 +1,35 @@
+package Process;
+
+$EXE_EXT = "";
+
+sub Create
+{
+  my $name = shift;
+  my $args = shift;
+  my $self = [];
+  unless ($self->[0] = fork ()) 
+  {        
+    unless (fork ()) 
+    {
+      exec $name." ".$args;
+      die "no exec";
+    }
+    exit 0;    
+  }
+  bless $self;
+}
+
+sub Kill
+{
+  my $self = shift;
+  kill (1, $self->[0]);
+}
+
+sub Wait
+{
+  my $self = shift;
+  waitpid ($self->[0], 0);
+}
+
+
+1;
diff --git a/bin/Process_Win32.pm b/bin/Process_Win32.pm
new file mode 100644
index 00000000000..bf850022d03
--- /dev/null
+++ b/bin/Process_Win32.pm
@@ -0,0 +1,29 @@
+package Process;
+
+use Win32::Process;
+
+$EXE_EXT = ".exe";
+
+sub Create
+{
+  my $name = shift;
+  my $args = shift;
+  my $self = [];
+  Win32::Process::Create ($self->[0], $name, $name." ".$args, 0, 
+                          CREATE_NEW_CONSOLE, ".");
+  bless $self;
+}  
+
+sub Kill
+{
+  my $self = shift;
+  Win32::Process::Kill ($self->[0], -1);
+}
+
+sub Wait
+{
+  my $self = shift;
+  Win32::Process::Wait ($self->[0], INFINITE);
+}
+
+1;
\ No newline at end of file