← Back to branch summary

~ubuntu-branches/ubuntu/raring/ibutils/raring-proposed

« back to all changes in this revision

Viewing changes to ibis/doc/ibis_pod2man

  • Committer: Bazaar Package Importer
  • Author(s): Benoit Mortier
  • Date: 2010-01-11 22:22:00 UTC
  • Revision ID: james.westby@ubuntu.com-20100111222200-53kum2et5nh13rv3
Tags: upstream-1.2-OFED-1.4.2
Import upstream version 1.2-OFED-1.4.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
ibis/doc/ibis_pod2man
 
1
eval '(exit $?0)' &&
 
2
  eval 'exec perl -S $0 ${1+"$@"}' &&
 
3
  eval 'exec perl -S $0 $argv:q'
 
4
  if 0;
 
5
 
 
6
use Pod::Man;
 
7
$VERSION = "IBIS 1.0";
 
8
$CENTER = "IB MANAGEMENT IN-BAND SERVICES PACKAGE";
 
9
my $parser = Pod::Man->new (release => $VERSION, center => $CENTER);
 
10
 
 
11
if (scalar(@ARGV) < 1) {
 
12
   print "Usage $0 podFile [outFile]\n";
 
13
   exit(1);
 
14
}
 
15
$inFile = $ARGV[0];
 
16
if ($inFile !~ m/(.*)\.pod$/) {
 
17
   print "Usage $0 podFile [outFile]\n";
 
18
   print "Given podFile:$inFile extension != .pod\n";
 
19
   exit(1);
 
20
} else {
 
21
   $base = $1;
 
22
}
 
23
 
 
24
if (scalar(@ARGV) > 1) {
 
25
   $outFile = $ARGV[1];
 
26
} else {
 
27
   $outFile = "$base.1";
 
28
}
 
29
 
 
30
# Read POD from file.pod and write to file.1.
 
31
$parser->parse_from_file ($inFile, $outFile);
 
32
exit(0);