#!/usr/bin/perl
+=begin comment
+
+This script generates the manpage.
+
+Example: gen.pl mainpage > curl.1
+
+Dev notes:
+
+We open *input* files in :crlf translation (a no-op on many platforms) in
+case we have CRLF line endings in Windows but a perl that defaults to LF.
+Unfortunately it seems some perls like msysgit can't handle a global input-only
+:crlf so it has to be specified on each file open for text input.
+
+=end comment
+=cut
+
my $some_dir=".";
opendir(my $dh, $some_dir) || die "Can't opendir $some_dir: $!";
sub single {
my ($f, $standalone)=@_;
- open(F, "<$f") ||
+ open(F, "<:crlf", "$f") ||
return 1;
my $short;
my $long;
sub getshortlong {
my ($f)=@_;
- open(F, "<$f");
+ open(F, "<:crlf", "$f");
my $short;
my $long;
my $help;
sub header {
my ($f)=@_;
- open(F, "<$f");
+ open(F, "<:crlf", "$f");
my @d;
while(<F>) {
push @d, $_;
Help: Use ASCII/text transfer
Protocols: FTP LDAP
---
-Enable ASCII transfer. For FTP, this can also be enforced by using an URL that
+Enable ASCII transfer. For FTP, this can also be enforced by using a URL that
ends with ";type=A". This option causes data sent to stdout to be in text mode
for win32 systems.