<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>