[tuxdroid-svn] r1364 - in software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld: tags trunk

[jerome <c2m...@c2...>]

Author: jerome
Date: 2008-07-26 11:16:18 +0200 (Sat, 26 Jul 2008)
New Revision: 1364

Added:
   software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld-V.0.0.1.tgf
   software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld-V.0.0.2.tgf
Removed:
   software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld.tgf
Modified:
   software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/gadgets.xml
   software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/perlHelloWorld.pl
Log:
Added counter parameter to the perl hello world gadget.

Copied: software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld-V.0.0.1.tgf (from rev 1358, software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld.tgf)
===================================================================
(Binary files differ)

Added: software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld-V.0.0.2.tgf
===================================================================
(Binary files differ)


Property changes on: software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld-V.0.0.2.tgf
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Deleted: software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/tags/tuxdroid-perl-gadget-HelloWorld.tgf
===================================================================
(Binary files differ)

Modified: software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/gadgets.xml
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/gadgets.xml	2008-07-26 08:52:18 UTC (rev 1363)
+++ software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/gadgets.xml	2008-07-26 09:16:18 UTC (rev 1364)
@@ -19,6 +19,11 @@
 				description="Message sent when I'm saying hello"
 				type="string"
 				defaultValue="Hello world in perl" />
+			<parameter 
+				name="counter"
+				description="How mutch time saying hello"
+				type="integer"
+				defaultValue="1" />
 		</parameters>
 	</gadget>
 </gadgets>
\ No newline at end of file

Modified: software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/perlHelloWorld.pl
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/perlHelloWorld.pl	2008-07-26 08:52:18 UTC (rev 1363)
+++ software_suite_v2/software/gadgets/tuxdroid-perl-gadget-HelloWorld/trunk/perlHelloWorld.pl	2008-07-26 09:16:18 UTC (rev 1364)
@@ -1 +1,8 @@
-print("message " . $ENV{"tgp_message"} . "\n")
\ No newline at end of file
+#Getting how mutch time saying hello.
+$counter = int($ENV{'tgp_counter'});
+
+#Saying hello.
+while ($counter > 0) {
+	print("message " . $ENV{"tgp_message"} . "\n");
+	$counter--;
+}
\ No newline at end of file