The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<HTML>
<HEAD>
<TITLE>ARSperl Manual - ars_GetCurrentServer</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">

   <H2><CODE>ars_GetCurrentServer(ctrl)</CODE></H2>

      Given a control record, returns the server name that is specified
      in the record.

      <DL>
         <DT><B>On success</B><DD>
                Returns a scalar.
         <DT><B>On failure</B><DD>
                Returns <CODE>undef</CODE>.
      </DL>

      <P>Example:

      <PRE>
	if($ctrl = ars_Login("", $username, $password)) {
	    $cs = ars_GetCurrentServer($ctrl);
	    print "current server: $cs\n";
	} else {
	    print "login failed: $ars_errstr\n";
	    exit(0);
	}

      </PRE>
<P>
<em>ars_GetCurrentServer was introduced in version 1.41 of ARSperl</em>

<P>
<HR WIDTH="30%">
<P>
<A HREF="toc.html"><IMG ALT="&lt;--" SRC="arrow.gif" ALIGN=CENTER> Table of Contents </A>
<p>
<address>
Last changes to this page 26th June 1997 by d.j.adams@soton.ac.uk<br>
&#169; J.C.Murphy, J.W.Murphy 1997 arsperl@arsperl.org
</address>
</BODY>
</HTML>