- Timestamp:
- Nov 30, 2010, 12:12:47 AM (14 years ago)
- Location:
- config/iris/node/FreeBSD/8.0-RELEASE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl
r8672 r8677 9 9 my $conf_file = dirname(__FILE__) . "/genesis.conf"; 10 10 do($conf_file) || die("Cann't open $conf_file"); 11 12 11 13 12 … … 73 72 if ( $debug ) { print "File: $file\n"; } 74 73 } 75 else {76 $title="listing";77 };78 79 74 80 75 #controleer wat de browser is … … 94 89 95 90 #als geen node gespecificeerd dan kijken of svn geupdate is gevraagd 96 if( $ENV{"QUERY_STRING"}=~/update/i) { 97 printline("<PRE>"); 98 #select(STDERR); $| = 1; # make unbuffered 99 #select(STDOUT); $| = 1; # make unbuffered 100 printline(`$svn update $ndir`); 101 printline("</PRE>"); 102 printline("<H2>Done.<H2><P>"); 103 printline("Click <A HREF=$source>here</A>"); 104 printline("if you're not forwarded automaticly in 5 seconds.<P>"); 105 printline("<META HTTP-EQUIV=REFRESH CONTENT=5;URL=$source>"); 106 } 107 else { 108 g_list( ); 109 } 110 111 if( $node eq 'filelist' ) { 91 if(!$node) { 92 if( $ENV{"QUERY_STRING"}=~/update/i) { 93 printline("<PRE>"); 94 #select(STDERR); $| = 1; # make unbuffered 95 #select(STDOUT); $| = 1; # make unbuffered 96 printline(`$svn update $ndir`); 97 printline("</PRE>"); 98 printline("<H2>Done.<H2><P>"); 99 printline("Click <A HREF=$source>here</A>"); 100 printline("if you're not forwarded automaticly in 5 seconds.<P>"); 101 printline("<META HTTP-EQUIV=REFRESH CONTENT=5;URL=$source>"); 102 } 103 else { 104 g_list( ); 105 } 106 } 107 elsif( $node eq 'filelist' ) { 112 108 filelist( ); 113 109 } … … 170 166 printline("<TR><TD><A HREF=$node/config>$node</A></TD>"); 171 167 foreach $file (sort @filelist) { 172 printline("<TD><A HREF=$ node/$file>$file</A></TD>\n");168 printline("<TD><A HREF=$uri$node/$file>$file</A></TD>\n"); 173 169 }; 174 170 }; -
config/iris/node/FreeBSD/8.0-RELEASE/genesis.conf
r8676 r8677 38 38 39 39 chomp($hostname); 40 $uri='/config/iris/node/ freebsd/8.0-RELEASE/';40 $uri='/config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl/'; 41 41 $cgi_dir="$uri"; 42 42 $source="$cgi_dir"; … … 64 64 ## ssh key variablen ## 65 65 #global ssh_keys 66 $global_keyPath="$home/ config/nodes/global_keys";66 $global_keyPath="$home/../../../../../nodes/global_keys"; 67 67 #node specific 68 68 $ssh_file='ssh_key'
Note:
See TracChangeset
for help on using the changeset viewer.