Ignore:
Timestamp:
Oct 31, 2010, 8:47:20 PM (14 years ago)
Author:
rick
Message:

Fix relative path definitions

File:
1 edited

Legend:

Unmodified
Added
Removed

  • config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl

    r8614 r8620  
    44# Rick van der Zwet
    55#
     6use File::Basename;
    67
    78# Config located at other file
    8 my $conf_file="/usr/local/www/wlconfig/freebsd/iris-8.0/genesis.conf";
     9my $conf_file = dirname(__FILE__) . "/genesis.conf";
    910do($conf_file) || die("Cann't open $conf_file");
    1011
    … …  
    6667#REQUEST parsen
    6768$request=$ENV{'REQUEST_URI'};
    68 if( $request=~/.*g_list.pl\/(.*)$/) {
     69if( $request =~ /$uri(.*)$/) {
    6970  ($node,$file)=split(/\//,$1);
    7071  $title="$node $file";
    … …  
    8586else {
    8687  $HTML=1;
    87   printline("<HTML>");
     88  printline("<HTML><HEAD>");
    8889  printline("<TITLE>Genesis $title</TITLE>");
    89   printline("<BODY BGcolor=white>");
     90  printline("<base href='$source'></base>");
     91  printline("</HEAD><BODY BGcolor=white>");
    9092};
    9193
    … …  
    167169    }
    168170    else {
    169       printline("<TR><TD><A HREF=g_list.pl/$node/config>$node</A></TD>");
     171      printline("<TR><TD><A HREF=$node/config>$node</A></TD>");
    170172      foreach $file (sort @filelist) {
    171         printline("<TD><A HREF=g_list.pl/$node/$file>$file</A></TD>\n");
     173        printline("<TD><A HREF=$node/$file>$file</A></TD>\n");
    172174      };
    173175    };
    … …  
    313315
    314316  if( $HTML) {
    315     printline("<H1>Genesis $file voor: $hostname</H1><P>");
     317    printline("<H1>Genesis $file voor: $node</H1><P>");
    316318  };
    317319
Note: See TracChangeset for help on using the changeset viewer.