mknod script for chopstix

diff --git a/exec/mknod b/exec/mknod
new file mode 100755 (executable)
index 0000000..2dc11b4
--- /dev/null
+++ b/exec/mknod
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $slicename=$ARGV[0];
+my $slice_dev="/vservers/$slicename/dev";
+
+my $name = <STDIN>;
+my $major = <STDIN>;
+my $minor = <STDIN>;
+chomp($name);
+chomp($major);
+chomp($minor);
+
+$name=~s/\.\.//g;
+system("mknod $slice_dev".$name."c $major $minor");