charset results from the CPAN

ARSperl

#
# $Header: /cvsroot/arsperl/ARSperl/example/getCharSets.pl,v 1.1 2009/03/31 13:29:50 mbeijen Exp $
#
# NAME
#   GetCharSets.pl
#
# USAGE
#   GetCharSets.pl [server] [username] [password]
#
# DESCRIPTION
#   Fetches and prints the charsets used by client and server
#
# AUTHOR
#  Michiel Beijen
#
# $Log: getCharSets.pl,v $
# Revision 1.1  2009/03/31 13:29:50  mbeijen
# added new examples: ChangePassword.pl, ars_DateToJulianDate.pl, getCharSets.pl
#
#

example/getCharSets.pl view on Meta::CPAN


my ( $server, $user, $password, ) = ( shift, shift, shift );

# if you'd like to use UTF8:
# $ENV{'LANG'} = "en_US.utf8";

#Logging in to the server
( my $ctrl = ars_Login( $server, $user, $password ) )
  || die "ars_Login: $ars_errstr";

print "Fetching the charsets - easy...\n";

( my $servercharset = ars_GetServerCharSet($ctrl) ) || die "ERR: $ars_errstr\n";
( my $clientcharset = ars_GetClientCharSet($ctrl) ) || die "ERR: $ars_errstr\n";

ars_Logoff($ctrl);

print
"The server uses the $servercharset character set and the client uses $clientcharset.\n";

html/manual/ars_GetClientCharSet.html view on Meta::CPAN

    p.c1 {font-style: italic}
    /*]]>*/
    </style>
  </head>
  <body>
    <h2>
      <code>ars_GetClientCharSet(control)</code>
    </h2>Retrieves a string that represents the name of the character set the client is using. The
    API assumes that all character data the client passes it is encoded in this character set, and
    returns all character data encoded in this character set. If this differs from the server
    charset (see <a href="ars_GetServerCharSet.html">ars_GetServerCharSet</a>), the API converts
    the data to the right character set.<br />
    <dl>
      <dt class="c1">
        On success
      </dt>
      <dd>
        Returns a string.
      </dd>
      <dt class="c1">
        On failure
      </dt>
      <dd>
        Returns undef.
      </dd>
    </dl>
    <p>
      Example:
    </p>
    <pre>
    my $charset = ars_GetClientCharSet($ctrl);<br />        print "This client is using character set $charset\n";<br /> 
</pre>
    <p class="c1">
      ars_GetClientCharSet was introduced in version 1.92 of ARSperl
    </p>
    <p>
      <a href="toc.html">Back to Table of Contents</a>
    </p>
    <address>
      Last changes to this page 30 March 2009 by michiel@beefreeit.nl<br />
    </address>

html/manual/ars_GetServerCharSet.html view on Meta::CPAN

/*<![CDATA[*/
    dt.c1 {font-weight: bold}
    p.c1 {font-style: italic}
    /*]]>*/
    </style>
  </head>
  <body>
    <h2>
      <code>ars_GetServerCharSet(control)</code>
    </h2>Retrieves a string that represents the name of the character set the API library uses to
    communicate with the server. If this differs from the client charset, the API converts the data
    to the right character set.<br />
    <dl>
      <dt class="c1">
        On success
      </dt>
      <dd>
        Returns a string.
      </dd>
      <dt class="c1">
        On failure
      </dt>
      <dd>
        Returns undef.
      </dd>
    </dl>
    <p>
      Example:
    </p>
    <pre>
    my $charset = ars_GetServerCharSet($ctrl);<br />        print "This server is using character set $charset\n";<br /> 
</pre>
    <p class="c1">
      ars_GetServerCharSet was introduced in version 1.92 of ARSperl
    </p>
    <p>
      <a href="toc.html">Back to Table of Contents</a>
    </p>
    <address>
      Last changes to this page 30 March 2009 by michiel@beefreeit.nl<br />
    </address>

t/aptest51.def view on Meta::CPAN

}
vui  {
   id             : 536873337
   name           : TEST_FixedWebView
   label          : TEST_FixedWebView
   timestamp      : 1225458854
   vui-locale     : fr_FR
   vui-type       : 3
   owner          : Demo
   last-changed   : Demo
   display-prop   : 6\20\4\17\TEST_FixedWebView\264\6\0\251\6\0\252\6\0\60019\4\16\TestFixedWebView\83\4\1125\<HTML>
<HEAD>

<%@ page contentType="text/html; charset=win
   display-prop   : dows-1252"%><%@ taglib uri="remedy_arsys" prefix="arsys" %><arsys:preamble /></HEAD>
<BODY><!--METADATA TYPE="DesignerControl" startspan
		<OBJECT cla
   display-prop   : ssid="clsid:496A808B-407A-11D4-80DA-00B0D020044D" width=1600 height=20>
		<PARAM NAME="ARType" VALUE="26">
		<PARAM NAME="ViewID" VALUE="536873337">

   display-prop   : 	</OBJECT>-->
   <arsys:open_services>
      <arsys:form server="@@SERVER@@" name="@@FORM@@" vuiid="536873337"/>
   </arsys:open_services><!--METADAT
   display-prop   : A TYPE="DesignerControl" endspan--><!--METADATA TYPE="DesignerControl" startspan
	  <OBJECT classid="clsid:496A808B-407A-11D4-80DA-00B0D020044D" width=
   display-prop   : 900 height=50>
	  <PARAM NAME="ARType" VALUE="31">
	  <PARAM NAME="Form" VALUE="ARSperl Test3">
     </OBJECT>--><arsys:form_view/><!--METADATA TYPE=
   display-prop   : "DesignerControl" endspan--><!--METADATA TYPE="DesignerControl" startspan
	  <OBJECT classid="clsid:496A808B-407A-11D4-80DA-00B0D020044D" width=1600 he
   display-prop   : ight=20>
	  <PARAM NAME="ARType" VALUE="27">
     </OBJECT>--><arsys:close_services/><!--METADATA TYPE="DesignerControl" endspan--></BODY>
</HTML>
\
   display-prop   : 
}
field {

( run in 0.247 second using v1.01-cache-2.11-cpan-4d50c553e7e )