#! /usr/bin/perl # # $Id$ # perlpod(1) source for captive-cmdline(1) man page # Copyright (C) 2003 Jan Kratochvil # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; exactly version 2 of June 1991 is required # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA use vars qw($VERSION); $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; use strict; use warnings; my $sbindir='@sbindir@'; $sbindir=~s#\$\Q{exec_prefix}\E#'@exec_prefix@';#ge; $sbindir=~s#\$\Q{prefix}\E#'@prefix@';#ge; $sbindir="/usr/sbin" if $sbindir=~/^@/; print <<'POD_EOF'; =head1 NAME @PACKAGE@-cmdline - Command-line client for B<@PACKAGE@>(7) NTFS disk access =head1 SYNOPSIS =for man \fB@PACKAGE@-cmdline\fP \fB--load-module\fP=\fB/tmp/ntoskrnl.exe\fP .br \fB--filesystem\fP=\fB/tmp/ntfs.sys\fP .br POD_EOF print "\t\t".'[\fB--sandbox-server\fP=\fB'.$sbindir.'/@PACKAGE@-sandbox-server\fP]'."\n"; print <<'POD_EOF'; [\fB--bug-pathname\fP=\fB/tmp/captive-bug-%FT%T.captivebug.xml.gz\fP] [\fB--disk\fP|\fB--cdrom\fP] [\fB--ro\fP|\fB--blind\fP|\fB--rw\fP] {\fBimage-file\fP|\fBdevice\fP} =head1 DESCRIPTION Simple B(1)-like client to access disks by Microsoft Windows drivers. Use if B(7) not available; also useful during debugging. POD_EOF require "../../libcaptive/client/options.pod.pl"; print <<'POD_EOF'; =head1 SEE ALSO B<@PACKAGE@>(7), B(7) =head1 AUTHOR Jan Kratochvil >, I POD_EOF 1;