src/ins

   1 #!/usr/bin/perl
   2
   3 # this applet is to load the clock device driver and create
   4 # the corresponding /dev/clock file.
   5
   6 use strict;
   7
   8 my $device = "ckpt";
   9 my $devfile = "/dev/ckpt";
  10 my $listfile = "/proc/devices";
  11 my $major = -1;
  12
  13 system "/sbin/insmod ckpt.ko";
  14
  15 # get the major number from /dev/clock
  16 open LIST, $listfile or die "can't open $listfile!\n";
  17
  18 my $line;
  19
  20 while ($line = <LIST>) {
  21     chomp $line;
  22     my $dev = substr($line, 4);
  23     if ($dev eq $device) {           # is it "ckpt"?
  24         $major = substr($line, 0, 3);
  25         $major =~ s/ //g;
  26         last;
  27     }
  28 }
  29
  30 close LIST;
  31
  32 # not found?
  33 die "loading failed..please check your code\n" if ($major == -1);
  34
  35 if (-e $devfile) {
  36     print STDERR "$devfile exists\n";        # dev file already exists
  37 }
  38 else {
  39 #    print "mknod $devfile c $major 0\n";
  40     system "mknod $devfile c $major 0";
  41     system "chmod 666 $devfile";
  42     print "ckpt loaded\n";
  43 }
  44
  45
  46
  47
  48
  49
  50
  51