/[gnump3d]/gnump3d/bin/gnump3d2
ViewVC logotype

Diff of /gnump3d/bin/gnump3d2

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by skx, Mon Oct 27 15:45:33 2003 UTC revision 1.32 by skx, Mon Oct 27 19:29:35 2003 UTC
# Line 117  my $advanced_playlist; # Should we inclu Line 117  my $advanced_playlist; # Should we inclu
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)/;
# Line 125  $VERSION =~ s/(\S+)$/($1)/; Line 125  $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  #  #
# Line 1241  sub getErrorPage( $ $ ) Line 1240  sub getErrorPage( $ $ )
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;
# Line 1855  sub serveDirectory( $ $ ) Line 1855  sub serveDirectory( $ $ )
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          #          #

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26