| Some(str)->
(
try openfile str [O_WRONLY;O_NONBLOCK] 0o777 with
- _->printf "Problemo:%s\n" str;flush Pervasives.stdout;stdout
+ _->printf "Output pipe not open, using stdout in place of %s\n" str;flush Pervasives.stdout;stdout
)
| None-> printf "Bug, nameless pipe\n";raise Bug
in
--- /dev/null
+#!/bin/bash
+
+case "$1" in
+ start|restart|reload|update)
+ ;;
+ stop|status)
+ exit 0
+ ;;
+ *)
+ echo $"Usage: $0 {start|stop|restart|status}"
+ exit 1
+ ;;
+esac
+
+# Source function library.
+. /etc/rc.d/init.d/functions
--- /dev/null
+#
+# Vsys filesystem
+#
+# RPM spec file
+#
+# $Id: vsys.spec,v 1.40 2007/04/03 02:08:55 mef Exp $
+#
+
+%define name vsys
+%define version 0.4
+%define release 2%{?pldistro:.%{pldistro}}%{?date:.%{date}}
+
+Vendor: PlanetLab
+Packager: PlanetLab Central <support@planet-lab.org>
+Distribution: PlanetLab 4.0
+URL: http://cvs.planet-lab.org/cvs/vsys
+
+Summary: Vsys filesystem
+Name: %{name}
+Version: %{version}
+Release: %{release}
+License: GPL
+Group: System Environment/Kernel
+BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-buildroot
+#Requires:
+
+Source0: vsys-%{version}.tar.gz
+
+%description
+vsys is a file-system-based interface that lets slices on PlanetLab safely
+invoke services installed by the PlanetLab administration. Slices invoke and
+interact with these services through fifo pipes. Services can be added and
+removed dynamically.
+
+%prep
+%setup
+
+%build
+rm -rf $RPM_BUILD_ROOT
+make
+
+%install
+make install
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%files
+/usr/bin/vsys
+/etc/init.d/vsys
+
+%post
+chkconfig --add vsys
+chkconfig vsys on
+
+%postun
+
+%changelog