diff options
Diffstat (limited to 'winsup/doc/bodysnatcher.pl')
-rwxr-xr-x | winsup/doc/bodysnatcher.pl | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/winsup/doc/bodysnatcher.pl b/winsup/doc/bodysnatcher.pl deleted file mode 100755 index 1db30aad4..000000000 --- a/winsup/doc/bodysnatcher.pl +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl -w -# Copyright © 2013 by Red Hat, Inc. -# -# This file is part of Cygwin. -# -# This software is a copyrighted work licensed under the terms of the -# Cygwin license. Please consult the file "CYGWIN_LICENSE" for -# details. - -use strict; - -if (@ARGV) { - my $infile = $ARGV[0]; - my $outfile = $infile; - $outfile =~ s/\.html$/.body/; - if ($infile ne $outfile) { - open my $input, '<', $infile or die "Failed to open $infile: $!\n"; - my $html = do { local $/; <$input> }; # slurp! - my ($body) = $html =~ m|<body[^>]*>(.*)</body>|is; - if ($body) { - open my $output, '>', $outfile - or die "Failed to write $outfile: $!\n"; - print $output $body; - } - else { - print STDERR "Could not find <body> element in $infile!\n\n"; - exit 3; - } - } - else { - print STDERR "Input file name must end in .html!\n\n"; - exit 2; - } -} -else { - print STDERR <<USAGE; -usage: $0 <input.html> - - Transforms input.html to input.body by extracting whatever is - between <body> and </body> in input.html. - -USAGE - exit 1; -} |