[Arsperl-devel] ARSperl/example ars_GetServerInfo.pl,1.1,1.2
Brought to you by:
jeffmurphy
|
From: Thilo S. <ts...@us...> - 2007-02-03 02:33:13
|
Update of /cvsroot/arsperl/ARSperl/example In directory sc8-pr-cvs11.sourceforge.net:/tmp/cvs-serv14198/example Modified Files: ars_GetServerInfo.pl Log Message: arsystem 7.0 port, new ars_Create/Set functions Index: ars_GetServerInfo.pl =================================================================== RCS file: /cvsroot/arsperl/ARSperl/example/ars_GetServerInfo.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ars_GetServerInfo.pl 23 Jul 1997 18:21:29 -0000 1.1 --- ars_GetServerInfo.pl 3 Feb 2007 02:33:11 -0000 1.2 *************** *** 16,19 **** --- 16,22 ---- # # $Log$ + # Revision 1.2 2007/02/03 02:33:11 tstapff + # arsystem 7.0 port, new ars_Create/Set functions + # # Revision 1.1 1997/07/23 18:21:29 jcmurphy # Initial revision *************** *** 30,34 **** (%h = ars_GetServerInfo($c)) || die "ERR: $ars_errstr\n"; ! for $it (keys %h) { printf("%25s %s\n", $it, $h{$it}); } --- 33,37 ---- (%h = ars_GetServerInfo($c)) || die "ERR: $ars_errstr\n"; ! for $it (sort keys %h) { printf("%25s %s\n", $it, $h{$it}); } |