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
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
