solaris-tools.lib

Perl写的CA认证程序

## Subroutines Section : main subroutines are the createTable wich 
## creates the base Table with the main row ( with Descriptions ),
## the addFile wich adds a Row with the File description and date of
## creations and so on, and the subVars ehich substitutes the variables
## name contained in the $page var with their correct values.

sub checkDisk {
        my @keys;
        my $req;
        @key = @_;

        print "<LI> Verifico l'esistenza del dischetto .......... ";

        $ret=`/bin/volcheck -v /dev/diskette0`;

        if ( "$ret" =~ m/\/dev\/diskette0 has media/ ) {
                print "Ok.</LI>\n";
                return;
        } else {
                print "<PRE>\n\nFailed!\n\n\t  Errore Riportato :";
		print " Floppy non inserito!\n\n</PRE>";
                print $ret;
		closePage();
		exit 200;
        }
        return;
}

1;