X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=machines.cgi;h=1b2c0228235c96427c3b87039b8e414c33487b6c;hb=a624b016dbd549ba5afb72e09478dccab18f53b6;hp=973b43294ba338f44fa390b573eb1113a22fb53c;hpb=f6150f1be630c767aa6ff51a3319afbe985980cc;p=mirror%2Fuserdir-ldap-cgi.git diff --git a/machines.cgi b/machines.cgi index 973b432..1b2c022 100755 --- a/machines.cgi +++ b/machines.cgi @@ -1,5 +1,6 @@ #!/usr/bin/perl -#$Id: machines.cgi,v 1.2 1999/09/30 05:38:29 tausq Exp $ +# $Id: machines.cgi,v 1.3 1999/09/30 06:21:28 tausq Exp $ + # (c) 1999 Randolph Chung. Licensed under the GPL. use lib '.'; @@ -18,7 +19,6 @@ my (%attrs, @attrorder, %summaryattrs, @summaryorder); 'distribution' => 'Distribution', 'access' => 'Access', 'sponsor' => 'Sponsor', - 'sponsorurl' => 'Sponsor URL', 'sponsor-admin' => 'Sponsor admin', 'location' => 'Location', 'machine' => 'Processor', @@ -87,7 +87,18 @@ foreach $dn (sort {$entries->{$a}->{host}->[0] <=> $entries->{$b}->{host}->[0]} $output{'sponsor-admin'} = sprintf("%s", $output{'sponsor-admin'}, $output{'sponsor-admin'}); # URL - $output{sponsor} = sprintf("%s", $output{sponsorurl}, $output{sponsor}); + my $sponsor; + $output{sponsor} = undef; + foreach $sponsor (@{$data->{sponsor}}) { + print "\n"; + $sponsor =~ /(.*)\s*(http.*)?/i; + $output{sponsor} .= "
" if ($output{sponsor}); + if ($2) { + $output{sponsor} .= sprintf("%s", $1, $2); + } else { + $output{sponsor} .= $1; + } + } $selected = " selected "; } @@ -109,7 +120,7 @@ if ($output{havehostdata}) { $hostdetails .= "\n";