Changeset 8620 in genesis for config/iris/node


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

Fix relative path definitions

Location:
config/iris/node/FreeBSD/8.0-RELEASE
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • config/iris/node/FreeBSD/8.0-RELEASE/INSTALL.txt

    r8614 r8620  
    44put marvilous code in there, which will potentially ruin your machine
    55!!! END WARNING !!!!
     6
     7XXX: Cleanup to match new reality
     8== apache configuration CleanURL ==
     9/usr/local/etc/apache22/Includes/something.conf:
     10  # WLConfig
     11  ScriptAliasMatch /config/iris/freebsd/8.0-RELEASE/(.*) /usr/local/www/wlconfig/freebsd/iris-8.0/g_list.pl
     12  <Directory /usr/local/www/wlconfig>
     13    Allow from all
     14  </Directory>
    615
    716

  • 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

  • config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf

    r8614 r8620  
    3737
    3838chomp($hostname);
    39 $cgi_dir="http://$hostname/freebsd/iris-8.0";
    40 $source="$cgi_dir/g_list.pl";
     39$uri='/config/iris/freebsd/8.0-RELEASE/';
     40$cgi_dir="http://${hostname}$uri";
     41$source="$cgi_dir";
    4142
    4243#path variablen
Note: See TracChangeset for help on using the changeset viewer.