]>
Commit | Line | Data |
---|---|---|
c9e12479 | 1 | diff -urN _FAQ-OMatic-2.719/fom.PL FAQ-OMatic-2.719/fom.PL |
2 | --- _FAQ-OMatic-2.719/fom.PL 2003-02-11 14:47:13.000000000 +0100 | |
f899fd6c | 3 | +++ FAQ-OMatic-2.719/fom.PL 2003-07-29 15:13:52.000000000 +0200 |
4 | @@ -25,6 +25,10 @@ | |
5 | # both readable and executable, then we've reopened the window of | |
6 | # trivial vulnerability for that site. | |
c9e12479 | 7 | |
f899fd6c | 8 | +open THEPASS, ">fom_pass.txt" or die "Writing \"pass\": $!"; |
9 | +print THEPASS "$temppass\n"; | |
10 | +close THEPASS; | |
11 | + | |
12 | open THECGI, ">fom" or die "Writing \"fom\": $!"; | |
13 | print THECGI "#!$perl -wT\n"; | |
14 | print THECGI "use lib '.'; # for suid installations\n"; | |
15 | @@ -35,9 +39,10 @@ | |
16 | ## Uncomment following two lines (and replace second argument for | |
17 | ## setlocale()) if you want to use some locale, different from default. | |
c9e12479 | 18 | |
f899fd6c | 19 | -# use POSIX qw(locale_h); |
20 | +use POSIX qw(locale_h); | |
21 | # $ENV{LANG} = 'ja_JP.EUC'; | |
22 | -# POSIX::setlocale(LC_ALL, $ENV{LANG}); | |
23 | +# $ENV{LANG} = 'pl_PL.EUC'; | |
24 | +POSIX::setlocale(LC_ALL, $ENV{LANG}); | |
25 | ||
26 | use locale; | |
27 | EOF | |
28 | @@ -71,4 +76,3 @@ | |
c9e12479 | 29 | |
30 | Press enter to continue. | |
31 | __EOF__ | |
32 | -my $dummy = <STDIN>; |