https://wiki.umiacs.umd.edu/adapt/index.php?action=history&feed=atom&title=SRB%3APerl_connect.pl 2026-04-07T09:20:46Z Revision history for this page on the wiki MediaWiki 1.43.7 https://wiki.umiacs.umd.edu/adapt/index.php?title=SRB:Perl_connect.pl&diff=2186&oldid=prev 2008-09-16T17:37:43Z

<p></p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> #!/usr/bin/perl<br /> #<br /> # test script for perl srb module<br /> #<br /> # uncomment to use specified values instead of ~/.srb/.MdasEnv <br /> # and ~/.srb/.MdasAuth<br /> #$mcat = &#039;srb.sdsc.edu&#039;;<br /> #$port = 6618;<br /> #$password = &#039;PASSWORD&#039;;<br /> #$user = &#039;srbuser&#039;;<br /> #$domain = &#039;user_domain&#039;;<br /> #$authscheme = &#039;ENCRYPT1&#039;;<br /> #$serverDn = &#039;&#039;;<br /> <br /> use srbcore;<br /> #<br /> # Open Connection to MCAT using srbConnect<br /> #<br /> my $conn = srbcore::srbConnect($mcat,$port,$password,$user,$domain,$authscheme,$serverDn);<br /> #<br /> # Get status of connection using clStatus<br /> # returns 0 upon success, standard srb error otherwise<br /> #<br /> my $connstatus = srbcore::clStatus($conn);<br /> if ($connstatus == 0) {<br /> print &quot;Connection Successful\n&quot;;<br /> } else { <br /> print &quot;Connection Failed: $connstatus &quot;.srbcore::clErrorMessage($conn).&quot;\n&quot;;<br /> #<br /> # Use srbError to find thrown error message<br /> #<br /> print srbcore::srbError($connstatus,$srbcore::SRB_LONG_MSG|$srbcore::SRB_RCMD_ACTION);<br /> }<br /> #<br /> # Drop/Reconnect using clReset<br /> #<br /> srbcore::clReset($conn);<br /> if ($connstatus == 0) {<br /> print &quot;Connection Reset Successful\n&quot;;<br /> } else { <br /> print &quot;Connection Failed: $connstatus &quot;.srbcore::clErrorMessage($conn).&quot;\n&quot;;<br /> print srbcore::srbError($connstatus,$srbcore::SRB_LONG_MSG|$srbcore::SRB_RCMD_ACTION);<br /> }<br /> #<br /> # close connection to MCAT<br /> #<br /> srbcore::clFinish($conn);<br /> <br /> &lt;/pre&gt;</div>

Toaster