home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _7c3c366c279d2ea583f1bddba36e3cc4 < prev    next >
Extensible Markup Language  |  2000-03-15  |  1KB  |  58 lines
  1. <?xml version="1.0"?>
  2. <component>
  3.  
  4. <registration
  5.     description="First"
  6.     progid="First.WSC"
  7.     version="1.00"
  8.     classid="{d0ccb637-bd0c-4c90-a4bd-7473f499d35a}"
  9. >
  10.  
  11. <comment>  This makes the messagebox pop up on registration and unregistation </comment>
  12.   <script language="PerlScript">
  13.   <![CDATA[
  14.   sub register {
  15.       use Win32;
  16.       Win32::MsgBox('Windows Script Component says: First.WSC has been registered!');
  17.   }
  18.   sub unregister {
  19.       use Win32;
  20.       Win32::MsgBox('Windows Script Component says: First.WSC has been unregistered!');
  21.   }
  22.   ]]>
  23.   </script>
  24.  
  25. </registration>
  26.  
  27. <comment> Themethods and properties to expose to the data consumer </comment>
  28. <public>
  29.     <property name="YourName">
  30.         <get internalName="hiddenGetProperty"/>
  31.         <put internalName="hiddenSetProperty"/>
  32.     </property>
  33.     <method name="SayHello">
  34.     </method>
  35. </public>
  36.  
  37. <comment> The code that implements the functionality of the component.</comment>
  38. <script language="PerlScript">
  39. <![CDATA[
  40. use vars qw($YourName_Property);
  41.  
  42. sub hiddenGetProperty {
  43.     return $YourName_Property;
  44. }
  45.  
  46. sub hiddenSetProperty {
  47.     my($param) = shift;
  48.     $YourName_Property = $param;
  49. }
  50.  
  51. sub SayHello {
  52.     return "Hello $YourName_Property!";
  53. }
  54. ]]>
  55. </script>
  56.  
  57. </component>
  58.