117 |
# Read-only variables. |
# Read-only variables. |
118 |
# |
# |
119 |
my $REVISION = '$Id$'; |
my $REVISION = '$Id$'; |
120 |
our $VERSION = ""; |
our $VERSION = ""; |
121 |
$VERSION = join (' ', (split (' ', $REVISION))[1..3]); |
$VERSION = join (' ', (split (' ', $REVISION))[1..3]); |
122 |
$VERSION =~ s/,v\b//; |
$VERSION =~ s/,v\b//; |
123 |
$VERSION =~ s/(\S+)$/($1)/; |
$VERSION =~ s/(\S+)$/($1)/; |
125 |
our $RELEASE = "2.6"; |
our $RELEASE = "2.6"; |
126 |
|
|
127 |
|
|
|
|
|
128 |
# |
# |
129 |
# We want to avoid SIG_PIPE signals. |
# We want to avoid SIG_PIPE signals. |
130 |
# |
# |
1240 |
# Make global substitutions. |
# Make global substitutions. |
1241 |
# |
# |
1242 |
$line =~ s/\$HOSTNAME/$host/g; |
$line =~ s/\$HOSTNAME/$host/g; |
1243 |
$line =~ s/\$VERSION/$RELEASE/g; |
$line =~ s/\$VERSION/$VERSION/g; |
1244 |
|
$line =~ s/\$RELEASE/$RELEASE/g; |
1245 |
$line =~ s/\$DIRECTORY/\//g; |
$line =~ s/\$DIRECTORY/\//g; |
1246 |
$line =~ s/\$TITLE/$text/g; |
$line =~ s/\$TITLE/$text/g; |
1247 |
$line =~ s/\$ERROR_MESSAGE/$text/g; |
$line =~ s/\$ERROR_MESSAGE/$text/g; |
1855 |
# Make global substitutions. |
# Make global substitutions. |
1856 |
# |
# |
1857 |
$line =~ s/\$HOSTNAME/$host/g; |
$line =~ s/\$HOSTNAME/$host/g; |
1858 |
$line =~ s/\$VERSION/$RELEASE/g; |
$line =~ s/\$VERSION/$VERSION/g; |
1859 |
|
$line =~ s/\$RELEASE/$RELEASE/g; |
1860 |
$line =~ s/\$DIRECTORY/$directory/g; |
$line =~ s/\$DIRECTORY/$directory/g; |
1861 |
|
|
1862 |
# |
# |