Home | History | Annotate | Download | only in scripts
      1 #!/usr/bin/perl
      2 #
      3 # CDDL HEADER START
      4 #
      5 # The contents of this file are subject to the terms of the
      6 # Common Development and Distribution License (the "License").
      7 # You may not use this file except in compliance with the License.
      8 #
      9 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
     10 # or http://www.opensolaris.org/os/licensing.
     11 # See the License for the specific language governing permissions
     12 # and limitations under the License.
     13 #
     14 # When distributing Covered Code, include this CDDL HEADER in each
     15 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
     16 # If applicable, add the following below this CDDL HEADER, with the
     17 # fields enclosed by brackets "[]" replaced with your own identifying
     18 # information: Portions Copyright [yyyy] [name of copyright owner]
     19 #
     20 # CDDL HEADER END
     21 #
     22 #
     23 # Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
     24 # Use is subject to license terms.
     25 
     26 #
     27 # Put commands in  here to flush the file system cache after
     28 # file set creation but prior to steady state
     29 #
     30 # For most file systems, filebench already handles fs cache flushing
     31 # For ZFS, it needs some help, so this script does
     32 #    "zpool export <poolname>" then "zpool import <poolname>"
     33 #
     34 
     35 $fs = $ARGV[0];
     36 $dir = $ARGV[1];
     37 
     38 #
     39 # if not zfs, inform user and exit.
     40 #
     41 if (($fs =~ m/^zfs$/) != 1) {
     42         print "filesystem type is: $fs, no action required, so exiting\n";
     43         exit(0);
     44 }
     45 
     46 #
     47 # It is zfs. Find name of pool to export/import from supplied
     48 # directory path name $dir
     49 #
     50 # Example:
     51 # # zfs list -H
     52 # tank    164K    24.0G   19K     /tank
     53 # tank/a  18K     24.0G   18K     /tank/a
     54 # tank/b  18K     24.0G   18K     /wombat
     55 # # 
     56 # # ./fs_flush zfs /wombat
     57 # 'zpool export tank'
     58 # 'zpool import tank'
     59 # # 
     60 #
     61 
     62 # Get a list of zfs file systems mounted locally
     63 @zlist = `/usr/sbin/zfs list -H`;
     64 
     65 #
     66 # Compare the list with the supplied directory path name
     67 #
     68 chomp @zlist;
     69 foreach ( @zlist ) {
     70 	#
     71 	# For listed zfs file systems, extract the root and
     72 	# mount point information
     73 	#
     74         my $zline = $_;
     75         ($root, $b, $c, $d, $mntpnt) = split /\t/, $zline, 5;
     76 
     77 	# See if the supplied directory path includes this mount point
     78         if(($mntpnt ne "\/") && ($dir =~/^$mntpnt/)) {
     79 
     80 		#
     81 		# We have a winner! The root name up to the
     82 		# first forward slash is the pool name
     83 		#
     84                 ($pool) = split /\//, $root;
     85 
     86 		# save zpool.cache
     87 		my $tempfile = "/tmp/zpool.cache$$";
     88 		my $cachefile = "";
     89 
     90 		if (run_prog("cp /etc/zfs/zpool.cache $tempfile") == 0) {
     91 			$cachefile = "-c $tempfile "
     92 		}
     93 
     94 		# Do the cache flushing
     95 		
     96                 print "'zpool export \/ import $pool'\n";
     97 		if (run_prog("zpool export $pool") == 0) {
     98 			system("zpool import $cachefile$pool");
     99 		}
    100 		system("rm -f $tempfile")	if ($cachefile ne "");
    101                 exit(0);
    102         }
    103 }
    104 exit(-1);
    105 
    106 sub run_prog
    107 {
    108 	my $progname = shift;
    109 
    110 	my $res = system($progname);
    111 
    112 	#return error if failed for any reason
    113 	return -1 if (($res == -1) || ($res & 127));
    114 
    115 	return ($res >> 8);
    116 }
    117