Changeset 8783 in genesis for config


Ignore:
Timestamp:
Feb 8, 2011, 10:13:43 AM (14 years ago)
Author:
richardvm
Message:

sunny proof

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r8677 r8783  
    8787};
    8888
    89 
    9089#als geen node gespecificeerd dan kijken of svn geupdate is gevraagd
    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   }
     90if( $ENV{"QUERY_STRING"}=~/update/i) {
     91  printline("<PRE>");
     92  #select(STDERR); $| = 1;     # make unbuffered
     93  #select(STDOUT); $| = 1;     # make unbuffered
     94  printline(`$svn update $ndir`);
     95  printline("</PRE>");
     96  printline("<H2>Done.<H2><P>");
     97  printline("Click <A HREF=$source>here</A>");
     98  printline("if you're not forwarded automaticly in 5 seconds.<P>");
     99  printline("<META HTTP-EQUIV=REFRESH CONTENT=5;URL=$source>");
     100}
     101elsif( !$node ) {
     102  g_list( );
    106103}
    107104elsif( $node eq 'filelist' ) {
Note: See TracChangeset for help on using the changeset viewer.