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});
}
|
