X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=machines.cgi;h=8fe4bfa8110b87308962f7eb61e0431315f85ca8;hb=d807a73baa1d9bf27e6bf4351d5886e5b0761524;hp=383f7cd08ba0d7a2098b7d441f15b7927b18efa6;hpb=7d4df26c66fcce393db4f57374f92ed9407c43dd;p=mirror%2Fuserdir-ldap-cgi.git

diff --git a/machines.cgi b/machines.cgi
index 383f7cd..8fe4bfa 100755
--- a/machines.cgi
+++ b/machines.cgi
@@ -36,6 +36,7 @@ my (%attrs, @attrorder, %summaryattrs, @summaryorder);
 	  'sshrsahostkey' => 'SSH host key',
 	  'sshrsahostfprint' => 'SSH host fingerprint',
 	  'description' => 'Description',
+	  'purpose' => 'purposes of this server',
 #	  'createtimestamp' => 'Entry created',
 #	  'modifytimestamp' => 'Entry modified'
 	 );
@@ -44,7 +45,7 @@ my (%attrs, @attrorder, %summaryattrs, @summaryorder);
 @attrorder = qw(hostname admin architecture distribution access
                 sponsor sponsor-admin location machine memory
 	        disk bandwidth status notes sshrsahostkey sshrsahostfprint
-		description);
+		description purpose);
 
 # ditto for summary
 %summaryattrs = ('hostname' => 'Host name',
@@ -144,6 +145,9 @@ foreach $dn (sort {$entries->{$a}->{host}->[0] cmp $entries->{$b}->{host}->[0]}
         $output{sponsor} .= $sponsor;
       }
     }
+
+	#Reformat purposes to be pleasing for the human eye:
+	$output{purpose} = join(",", @{$data->{purpose}});
     
     $selected = " selected ";    
   }