1*7aec1d6eScindi#!/bin/perl 2*7aec1d6eScindi# 3*7aec1d6eScindi# CDDL HEADER START 4*7aec1d6eScindi# 5*7aec1d6eScindi# The contents of this file are subject to the terms of the 6*7aec1d6eScindi# Common Development and Distribution License, Version 1.0 only 7*7aec1d6eScindi# (the "License"). You may not use this file except in compliance 8*7aec1d6eScindi# with the License. 9*7aec1d6eScindi# 10*7aec1d6eScindi# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 11*7aec1d6eScindi# or http://www.opensolaris.org/os/licensing. 12*7aec1d6eScindi# See the License for the specific language governing permissions 13*7aec1d6eScindi# and limitations under the License. 14*7aec1d6eScindi# 15*7aec1d6eScindi# When distributing Covered Code, include this CDDL HEADER in each 16*7aec1d6eScindi# file and include the License file at usr/src/OPENSOLARIS.LICENSE. 17*7aec1d6eScindi# If applicable, add the following below this CDDL HEADER, with the 18*7aec1d6eScindi# fields enclosed by brackets "[]" replaced with your own identifying 19*7aec1d6eScindi# information: Portions Copyright [yyyy] [name of copyright owner] 20*7aec1d6eScindi# 21*7aec1d6eScindi# CDDL HEADER END 22*7aec1d6eScindi# 23*7aec1d6eScindi 24*7aec1d6eScindi# 25*7aec1d6eScindi# Copyright 2006 Sun Microsystems, Inc. All rights reserved. 26*7aec1d6eScindi# Use is subject to license terms. 27*7aec1d6eScindi# 28*7aec1d6eScindi# ident "%Z%%M% %I% %E% SMI" 29*7aec1d6eScindi# 30*7aec1d6eScindi 31*7aec1d6eScindiuse strict; 32*7aec1d6eScindiuse File::Basename; 33*7aec1d6eScindi 34*7aec1d6eScindimy $PROGNAME = basename($0); 35*7aec1d6eScindi 36*7aec1d6eScindimy ($funcunit, $error); 37