From: Rob H. <for...@us...> - 2002-01-26 23:28:02
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv2483/lib/SandWeb Modified Files: Browse.pm Log Message: changed "location" to "path" and "browse_menu" to "browse_repository_menu" to make room for new "browse_menu" to support multiple repositories on Hack SandWeb Dat Index: Browse.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v retrieving revision 1.30 retrieving revision 1.31 diff -U2 -r1.30 -r1.31 --- Browse.pm 2002/01/26 22:12:24 1.30 +++ Browse.pm 2002/01/26 23:27:59 1.31 @@ -32,5 +32,5 @@ sub browse { my $self = shift; - my $path = shift; + my $location = shift; my $progname = shift; my $vcs_commands = shift; @@ -56,13 +56,12 @@ my $location; - if ($path eq '/') { - $path = ''; + if ($location eq '/') { + $location = ''; } - if ($path) { + if ($location) { # Security check, no "/.." or "../" allowed mister! - $path =~ s:/\.\.::g; - $path =~ s:\.\./::g; - $location = $path; + $location =~ s:/\.\.::g; + $location =~ s:\.\./::g; } else { $location = '/'; @@ -106,8 +105,8 @@ - if ( opendir(SANDBOX, "$sandbox/$path") ) { - $log->debug("Opened folder : $sandbox/$path"); + if ( opendir(SANDBOX, "$sandbox/$location") ) { + $log->debug("Opened folder : $sandbox/$location"); } else { - $log->debug("Cannot open folder $sandbox/$path : $!"); + $log->debug("Cannot open folder $sandbox/$location : $!"); } my @entries = readdir(SANDBOX); @@ -127,5 +126,5 @@ my $entryname = $row_data{ENTRY}; my $file = SandWeb::File->new( - location => "$sandbox/$path", + location => "$sandbox/$location", filename => "$entryname", ); @@ -138,5 +137,5 @@ } $row_data{FILETYPE} = "dir"; - $row_data{LINK} = "action=browse_menu&path=$path/$filename"; + $row_data{LINK} = "action=browse_menu&location=$location/$filename"; if ($counter eq "0") { $row_data{COLOR} = "$color0"; |