#--
# Copyright (c) 2004-2010 Mellanox Technologies LTD. All rights reserved.
#
# This software is available to you under the terms of the
# OpenIB.org BSD license included below:
#
#     Redistribution and use in source and binary forms, with or
#     without modification, are permitted provided that the following
#     conditions are met:
#
#      - Redistributions of source code must retain the above
#        copyright notice, this list of conditions and the following
#        disclaimer.
#
#      - Redistributions in binary form must reproduce the above
#        copyright notice, this list of conditions and the following
#        disclaimer in the documentation and/or other materials
#        provided with the distribution.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
# BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
# ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
#--


eval '(exit $?0)' &&
  eval 'exec perl -S $0 ${1+"$@"}' &&
  eval 'exec perl -S $0 $argv:q'
  if 0;

use Pod::Man;
$VERSION = "IBDM 1.0";
$CENTER = "IB DATA MODEL PACKAGE";
my $parser = Pod::Man->new (release => $VERSION, center => $CENTER);

if (scalar(@ARGV) < 1) {
   print "Usage $0 podFile [outFile]\n";
   exit(1);
}
$inFile = $ARGV[0];
if ($inFile !~ m/(.*)\.pod$/) {
   print "Usage $0 podFile [outFile]\n";
   print "Given podFile:$inFile extension != .pod\n";
   exit(1);
} else {
   $base = $1;
}

if (scalar(@ARGV) > 1) {
   $outFile = $ARGV[1];
} else {
   $outFile = "$base.1";
}

# Read POD from file.pod and write to file.1.
$parser->parse_from_file ($inFile, $outFile);
exit(0);

