Changeset 4047 in genesis


Ignore:
Timestamp:
Mar 13, 2005, 11:59:57 PM (20 years ago)
Author:
rick
Message:

Made some fixes to make it more portable

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tools/g_list.pl

    r4025 r4047  
    44#
    55
    6 $home="/home/wcl/wcl_html/genesis";
     6$home="/home/genesis/";
    77$ndir="$home/nodes";
    88$html=1;
    9 $source='http://www.wleiden.net/cgi-bin/g_list.pl';
     9$baseref='http://rambo.wleiden.net';
     10$base_href="baseref/cgi-bin";
     11$source="$base_href/g_list.pl";
    1012$svn='/usr/local/bin/svn';
    11 $toolfile='/home/wcl/wcl_html/genesis/tools/wleiden.pl';
     13$toolfile="wleiden.pl";
    1214
    1315$functions_only=1;do $toolfile || die;
    … …  
    3638<TITLE>Genesis $title</TITLE>
    3739<BODY BGcolor=white>
    38 <BASE HREF=http://www.wleiden.net/cgi-bin/>
     40<BASE HREF=$base_href>
    3941EOH
    4042}
    … …  
    5254
    5355             print "<H2>Please wait while updating svn...</H2><P><PRE>\n";
    54              system("$svn update /home/wcl/wcl_html/genesis");
     56             system("$svn update $ndir");
    5557             close(SVN);
    5658             print <<EOZ;
    5759</PRE>
    5860<H2>Done.<H2><P>
    59 Click <A HREF=g_list.pl>here</A> if you're not forwarded automaticly in 5
     61Click <A HREF=$source>here</A> if you're not forwarded automaticly in 5
    6062seconds.<P>
    61 <META HTTP-EQUIV=REFRESH CONTENT=5;URL=g_list.pl>\n
     63<META HTTP-EQUIV=REFRESH CONTENT=5;URL=$source>\n
    6264EOZ
    6365
    … …  
    101103  if ($HTML)
    102104  {
    103         $svn_version=svn_version("/home/wcl/wcl_html/genesis");
     105        $svn_version=svn_version("$ndir");
    104106        if ($svn_version=~/Last Changed Rev: (\d+)/) {$revision=$1;}
    105107
    106108        print "<H1>Genesis config (revision: $revision):</H1><P>\n<PRE>";
    107109        print $svn_version;
    108         print "</PRE><TABLE BORDER=1>\n";
     110        print <<EOX;
     111</PRE>
     112<FORM METHOD=get ACTION=g_list.pl>
     113<INPUT TYPE="submit" NAME="Update" VALUE="Update">
     114</FORM>
     115<TABLE BORDER=1>
     116EOX
    109117  }
    110118
    … …  
    131139print <<EOX;
    132140</TABLE><P>
    133 <FORM METHOD=get ACTION=g_list.pl>
    134 <INPUT TYPE="submit" NAME="Update" VALUE="Update">
    135 </FORM>
    136141EOX
    137142}
Note: See TracChangeset for help on using the changeset viewer.