1.1 --- a/l3-cgi	Tue Nov 22 22:45:45 2005 +0200
     1.2 +++ b/l3-cgi	Tue Nov 22 23:27:51 2005 +0200
     1.3 @@ -100,13 +100,17 @@
     1.4  	print "<td colspan='3'>Пользователь</td>";
     1.5  	print "</tr>\n";
     1.6  	for my $host (sort keys %{$t->{host}}) {
     1.7 +
     1.8 +		my $prefix = "/cgi-bin/l3/current/";
     1.9 +		my $suffix = "";
    1.10 +		
    1.11  		print "<tr>\n";
    1.12  		my $h = $t->{host}->{$host};
    1.13  		print "<td>".$h->{firstname}." ".$h->{surname}."</td>";
    1.14  		print "<td>$host</td>";
    1.15 -		print "<td><a href='/cgi-bin/l3/current/".$host."/root'>root</a></td>";
    1.16 -		print "<td><a href='/cgi-bin/l3/current/".$host."/".$h->{user}."'>".$h->{user}."</a></td>";
    1.17 -		print "<td><a href='/cgi-bin/l3/current/".$host."'>все</a></td>";
    1.18 +		print "<td><a href='".$prefix.$host."/root$suffix'>root</a></td>";
    1.19 +		print "<td><a href='".$prefix.$host."/".$h->{user}."$suffix'>".$h->{user}."</a></td>";
    1.20 +		print "<td><a href='".$prefix.$host."$suffix'>все</a></td>";
    1.21  		print "</td>\n";
    1.22  		print "</tr>\n";
    1.23  	}