version 1.159, 2003/05/08 18:41:16
|
version 1.160, 2003/05/08 19:16:42
|
Line 1749 sub printHelper {
|
Line 1749 sub printHelper {
|
|
|
# "Delete everything after the last slash." |
# "Delete everything after the last slash." |
$subdir =~ s|/[^/]+$||; |
$subdir =~ s|/[^/]+$||; |
if (not defined $helper->{VARS}->{'construction'}) { |
if (not $helper->{VARS}->{'construction'}) { |
$subdir = '/home/httpd/html/res'.$subdir; |
$subdir='/home/httpd/html/res/'.$subdir; |
} else { |
|
$helper->{VARS}->{'construction'}=~/^([^\/]+)\/\/([^\/]+)(.*)\/[^\/]*$/; |
|
$subdir = $3; |
|
$subdir=~/\/~([^\/]+)\/(.*)$/; |
|
$subdir = '/home/'.$1.'/public_html/'.$2; |
|
} |
} |
#### $r->print('Dir: '.$subdir.' '); |
|
#### return OK; |
|
|
|
|
|
# What can be printed is a very dynamic decision based on |
# What can be printed is a very dynamic decision based on |