[SSI] openssi/openssi-tools/distro/debian ssi_distro.pm,1.25,1.26

Update of /cvsroot/ssic-linux/openssi/openssi-tools/distro/debian
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8859/distro/debian

Modified Files:
      Tag: OPENSSI-DEBIAN
        ssi_distro.pm 
Log Message:
Add fstab parsing APIs to utils and use them in ssi_distro.pm for debian


Index: ssi_distro.pm
===================================================================
RCS file: 
/cvsroot/ssic-linux/openssi/openssi-tools/distro/debian/ssi_distro.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** ssi_distro.pm       28 Jan 2004 01:56:07 -0000      1.25
--- ssi_distro.pm       29 Jan 2004 22:59:15 -0000      1.26
***************
*** 83,86 ****
--- 83,91 ----
        my $dir;
  
+       if( is_mountpoint("/var/log") ) {
+               print "/var/log appears to be a mount point. You need to fix it 
\n";
+               exit(1);
+       }
+ 
        # -d follows links  using "! -l" instead of "-d"
        # SSI_XXX we can move some of these command to perl func
***************
*** 224,252 ****
  sub prompt_failover {
        my $nodenum = shift;
!       my ($rootdev, $type, $opts);
        my $input_line;
        my @line_entry;
  
-       open FSTAB, "< /etc/fstab" or die;
-       while (! eof(FSTAB)) {
- 
-               $input_line = <FSTAB>;
-               @line_entry = split(/[\t ]+/ ,$input_line);
- 
-               if ( $line_entry[0] =~ /^#/ ) {
-               #Neglect the line that starts with #
-                       next;
-               }
- 
-               if ( $line_entry[1] =~ /^\/$/ ) { 
-                       ($rootdev, $type, $opts) = ($line_entry[0], 
$line_entry[2], $line_entry[3]);
-                       last;
-               } else {
-                       next;
-               }
-       }
-       close FSTAB;
- 
- 
        die "Root filesystem cannot be found\n" unless $rootdev;
  
--- 229,236 ----
  sub prompt_failover {
        my $nodenum = shift;
!       my ($rootdev, $type, $opts) = get_fstabentry("/etc/fstab","/");
        my $input_line;
        my @line_entry;
  
        die "Root filesystem cannot be found\n" unless $rootdev;
  



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn