The first part checks for the filesystem type.. zfs - do nothing, since it doesn't use SVM... the 2nd part of the if statement processes the ufs part, by running metastat -p and counting the number occurrences of the letter d... for a mirror with 2 plexes it should be 3, one for the metadevice, and one for each plex. Anything less than 3 gets thrown out as being unsynched. The $mirror_cmd is the metastat -p |grep m to get the metadevices only.

Here is the while loop for that part of the code:


        while ( defined ($line = $ssh->read_line()) ) {
                if($line =~ m/zfs/) {
                        open(MIR,">>$MIRRORS");
                        print MIR "$_ - has ZFS root, no metadevices e
+xist\n";
                        close(MIR);
                }
                else {   # Not ZFS, presumably ufs
                        # Execute SVM Mirror check - looking for unsyn
+ched mirrors
                        my $mirror_output = $ssh->send("$mirror_cmd");
                        my $line2;
                        while ( defined ($line2 = $ssh->read_line()) )
+ {
                                my $tmpcount = ($line2 =~ tr/d//);
                                if($tmpcount < 3) {
                                        open(MIR,">>$MIRRORS");
                                        print MIR "$_:  ";
                                        chomp();
                                        print MIR "$line2 - Not Mirror
+ed\n";
                                        close(MIR);
                                }


                        }
                }
        }
[download]


On a side note, apparently setting PS = ; had no effect, because it's still showing the same output as earlier.

Thanks!

This doesn't look like expect code. It looks like regular old read-the-file-regex-output code. So, you may be missing the cool expect features.

I have a guess: ssh and Expect can't really know what's prompt and what's command output. It's all a stream on stdout. You probably have to clear a buffer or something like that after you log in but before you run the command. It's significant that it's the 1st line on server2, because that's what you'd expect to see if you logged in and typed a command.

Does it always happen on server2? If so, it might be a shell setting specific to that account and that server.

Finally, you could just regex out the prompt from the input. You don't need to worry about speed so an extra regex on each line won't hurt anyone.

Really Finally, you could scrap SSH::Expect and use ssh with public keys instead of passwords. That might set up the environment better and not show you the prompt. Since you're not really using the expect features, that might be an easier way to go.

IMO, it should be your last resort when trying to automate any SSH work with Perl because it is not reliable.

Net::SSH2, Net::OpenSSH and Net::SSH::Perl are usually better alternatives.