[Commit] rrserver main.5c,1.1,1.2

[Carl Worth]

Committed by: cworth

Update of /local/src/CVS/rrserver
In directory home.keithp.com:/tmp/cvs-serv22526

Modified Files:
	main.5c 
Log Message:
Print port number to stderr on server startup.

Index: main.5c
===================================================================
RCS file: /local/src/CVS/rrserver/main.5c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- main.5c	29 May 2003 06:45:37 -0000	1.1
+++ main.5c	29 May 2003 18:02:52 -0000	1.2
@@ -29,6 +29,7 @@
     public namespace Main {
 	public void main () {
 	    file    f = Net::create (RR::Port);
+	    File::fprintf (stderr, "RR server started on port %d.\n", RR::Port);
     	    Net::listen (Dispatch::client, f);
 	}
     }