root-context/exec/mknod

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 my $slicename=$ARGV[0];
   6 my $slice_dev="/vservers/$slicename/dev";
   7
   8 my $name = <STDIN>;
   9 my $major = <STDIN>;
  10 my $minor = <STDIN>;
  11 chomp($name);
  12 chomp($major);
  13 chomp($minor);
  14
  15 $name=~s/\.\.//g;
  16 system("mknod $slice_dev".$name."c $major $minor");