richter 00/09/13 12:17:35
Modified: . Tag: Embperl2c test.pl
test/cmp Tag: Embperl2c include.htm includeerr1.htm
includeerr2.htm inputjava.htm
test/html Tag: Embperl2c div.htm inc.htm include.htm
input.htm
test/html/nph Tag: Embperl2c div.htm
test/html/ofunc Tag: Embperl2c div.htm
Added: test/cmp2 Tag: Embperl2c hidden.htm input.htm
Log:
Embperl 2 Source Integration & Tests
Revision Changes Path
No revision
No revision
1.70.4.3 +6 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.2
retrieving revision 1.70.4.3
diff -u -r1.70.4.2 -r1.70.4.3
--- test.pl 2000/09/13 18:13:39 1.70.4.2
+++ test.pl 2000/09/13 19:17:22 1.70.4.3
@@ -144,7 +144,12 @@
'errors' => '1',
},
'includeerr2.htm' => {
- 'errors' => '4',
+ 'errors' => 4,
+ 'version' => 1,
+ },
+ 'includeerr2.htm' => {
+ 'errors' => 1,
+ 'version' => 2,
},
'registry/Execute.htm' => {
'modperl' => 1,
No revision
No revision
1.7.6.1 +2 -2 embperl/test/cmp/include.htm
Index: include.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/include.htm,v
retrieving revision 1.7
retrieving revision 1.7.6.1
diff -u -r1.7 -r1.7.6.1
--- include.htm 2000/03/29 07:00:42 1.7
+++ include.htm 2000/09/13 19:17:24 1.7.6.1
@@ -12,7 +12,7 @@
<P>Here is some text</P>
<H1> 2.) Include from memory with some Embperl code</H1>
-<table><tr><td>a1</td><td>b2</td><td>c3</td></tr></table></P>
+<table><tr><td>a1</td> <td>b2</td> <td>c3</td> </tr> </table> </P>
<H1> 3.) Include from memory with passing of variables</H1>
@@ -34,7 +34,7 @@
<H1> 7.) Presetup \%fdat and \@ffld</H1>
<P><table><tr><td>fdat</td><td>text</td></tr><tr><td>test</td><td>value</td></tr></table></P>
-<H1> 8.) Inculde a file</H1>
+<H1> 8a.) Include a file</H1>
Here it starts with some HTML Text<P>
1.2.6.1 +1 -1 embperl/test/cmp/includeerr1.htm
Index: includeerr1.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr1.htm,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -r1.2 -r1.2.6.1
--- includeerr1.htm 1999/10/05 06:02:11 1.2
+++ includeerr1.htm 2000/09/13 19:17:24 1.2.6.1
@@ -2,7 +2,7 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to
complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error
occurred\, and anything you might have done that may have caused the error
-^\[.*?\]ERR\: 24\: Line 10\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?includeerr1.htm line 10.<p>
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?includeerr1.htm line 10.<p>
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.3.6.1 +10 -10 embperl/test/cmp/includeerr2.htm
Index: includeerr2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr2.htm,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -r1.3 -r1.3.6.1
--- includeerr2.htm 2000/03/28 19:14:11 1.3
+++ includeerr2.htm 2000/09/13 19:17:26 1.3.6.1
@@ -2,16 +2,16 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to
complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error
occurred\, and anything you might have done that may have caused the error
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 32\: Line 18\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 24\: Line 6\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?incerr.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 24\: Line 6\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?incerr.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 24\: Line 6\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?incerr.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?incerr.htm line 6.<p>
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?incerr.htm line 6.<p>
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method
"is" via package "here" at .*?incerr.htm line 6.<p>
+^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.3.6.1 +3 -3 embperl/test/cmp/inputjava.htm
Index: inputjava.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/inputjava.htm,v
retrieving revision 1.3
retrieving revision 1.3.6.1
diff -u -r1.3 -r1.3.6.1
--- inputjava.htm 1999/10/05 06:02:12 1.3
+++ inputjava.htm 2000/09/13 19:17:26 1.3.6.1
@@ -1,11 +1,11 @@
<html>
<body>
<form action="script.htm" method="POST">
- <input type=hidden name="Screen" value="1">
+^ <input type=(hidden|"hidden") name="Screen" value="1">
Screen 1<br>
- <input type=submit name="Command" value="Start"
onClick="document.forms[0].Command.action = 'Start'">
- <input type=submit name="Command" value="Next"
onClick="document.forms[0].Command.action = 'Next'">
+^ <input type=(submit|"submit") name="Command" value="Start"
onClick="document.forms\[0\].Command.action = 'Start'">
+^ <input type=(submit|"submit") name="Command" value="Next"
onClick="document.forms\[0\].Command.action = 'Next'">
</form>
</body>
</html>
No revision
No revision
1.1.2.1 +61 -0 embperl/test/cmp2/Attic/hidden.htm
1.1.2.1 +361 -0 embperl/test/cmp2/Attic/input.htm
No revision
No revision
1.1.2.1.6.1 +7 -3 embperl/test/html/div.htm
Index: div.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/div.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.1.6.1
diff -u -r1.1.2.1 -r1.1.2.1.6.1
--- div.htm 1998/07/14 20:11:20 1.1.2.1
+++ div.htm 2000/09/13 19:17:31 1.1.2.1.6.1
@@ -169,20 +169,24 @@
</table>
<table border="2" width="100%">
- <tr>
+ [$ if $row == 0 $]
+ <tr>
<th>1</th>
<th>2</th>
<th>3</th>
</tr>
- <tr>
+ [$endif$]
+ <tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
</table>
<table border="2" width="100%">
+ [$ if $row == 0 $]
<tr>
<th>[+ $b[2][$col] +]</th>
</tr>
+ [$endif$]
<tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
@@ -203,7 +207,7 @@
<P>[+ $HTML::Embperl::VERSION +]<P>
-<P>[+ $tabmode +]<P>
+<P>[+ $tabmode || 17 +]<P>
<P>[+ local $tabmode = 1 +]<P>
<P>
1.1.2.1.6.1 +2 -2 embperl/test/html/inc.htm
Index: inc.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/inc.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.1.6.1
diff -u -r1.1.2.1 -r1.1.2.1.6.1
--- inc.htm 1998/07/14 20:11:20 1.1.2.1
+++ inc.htm 2000/09/13 19:17:31 1.1.2.1.6.1
@@ -27,7 +27,7 @@
Here we have some HTML tags within the perl code, Embperl will delete them!<BR>
-[+ $c = <BR> 6 + 17 <font size="3"> * 3 +]
+[+ $c = 6 + 17 * 3 +]
[+ "SELECT * <br> FROM a ORDER BY b USING <; Hi There>" +]
Here we have something which looks like a HTML tag, but does not start with<br>
@@ -38,7 +38,7 @@
Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6
will get the perl expression $a < 6: <BR>
[- $e = 2 -]
-[+ $d = $e < 6 +]
+[+ $d = $e < 6 +]
Now they should have a value
1.6.6.1 +8 -3 embperl/test/html/include.htm
Index: include.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/include.htm,v
retrieving revision 1.6
retrieving revision 1.6.6.1
diff -u -r1.6 -r1.6.6.1
--- include.htm 2000/03/29 07:00:42 1.6
+++ include.htm 2000/09/13 19:17:31 1.6.6.1
@@ -99,9 +99,14 @@
-]
-<H1> 8.) Inculde a file</H1>
-
-[- Execute ('inc.htm') -]
+<H1> 8a.) Include a file</H1>
+
+[- Execute ('inc.htm') -]
+
+<H1> 8b.) Include again the same file </H1>
+
+[- Execute ('inc.htm') -]
+
<H1> 9.) Inculde a file and return output in a scalar</H1>
1.10.4.1 +30 -188 embperl/test/html/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/input.htm,v
retrieving revision 1.10
retrieving revision 1.10.4.1
diff -u -r1.10 -r1.10.4.1
--- input.htm 2000/08/17 07:32:10 1.10
+++ input.htm 2000/09/13 19:17:31 1.10.4.1
@@ -19,6 +19,9 @@
<form action="inhalt.htm" method="POST">
<p> </p>
+ <input name=neu1 value="[+ 1 > 2?'yes':'no' +]" >
+ <input name=[+ $name || 'undef' +] value="[+ 1 > 2?'yes':'no' +]">
+
<input>
<input >
<input name="feld1">
@@ -34,6 +37,9 @@
<input foo>
<input foo >
+ <input name=neu2 value="[+ 1 > 2 +]">
+ <input name='neu3' value=">>">
+
<input type="text" name="feld1" value="Wert1">
<input type="text" name="feld2">
<input type="text" size=10 name="feld3">
@@ -118,6 +124,24 @@
<option value="Wert8">Wert8</option>
</select>
+ <select name="feld5">
+ <option value="Wert3">Wert3
+ <option value="Wert4">Wert4
+ <option value="Wert5">Wert5
+ </select>
+
+ <select name="feld5">
+ <option>Wert3</option>
+ <option>Wert4</option>
+ <option>Wert5</option>
+ </select>
+
+ <select name="feld5">
+ <option>Wert3
+ <option>Wert4
+ <option>Wert5
+ </select>
+
<select name="mult" multiple>
<option value="Wert1">Wert1</option>
<option value="Wert2">Wert2</option>
@@ -141,30 +165,16 @@
</select>
- [- @ks = sort keys %idat -]
+ ks = [+ @ks = sort keys %idat ; "@ks" +]<p>
- <table>
+ <table border=9>
<tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i] || '<undef>'}
+]</td>
</tr>
</table>
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-optDisableInputScan is set now to: [+ $optDisableInputScan = 1 +] <BR>
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
-
<select name="feld5">
<option value="Wert1">Wert1</option>
<option value="Wert2">Wert2</option>
@@ -176,27 +186,6 @@
<option value="Wert8">Wert8</option>
</select>
- <table>
- <tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
- </tr>
- </table>
-
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-optDisableInputScan is set now to: [+ $optDisableInputScan = 0 +] <BR>
-optDisableInputScan is now: [+ $optDisableInputScan +] <BR>
-
- <select name="feld5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
<input type="checkbox" value="Wert1" name="mult" checked>
<input type="checkbox" value="Wert1" name="mult">
<input type="checkbox" value="Wert2" name="mult" checked>
@@ -212,161 +201,14 @@
<input type="checkbox" value="Wert7" name="mult" checked>
<input type="checkbox" value="Wert7" name="mult">
- [- @ks = sort keys %idat -]
+ ks = [+ @ks = sort keys %idat ; "@ks" +]<p>
- <table>
+ <table border=10>
<tr>
- <td>[+ $ks[$row] +]</td><td>[+ $idat{$ks[$row] || ''} +]</td>
+ <td>[+ $ks[$i=$row] +]</td><td>[+ $idat{$ks[$i] || '<undef>'}
+]</td>
</tr>
</table>
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-optUndefToEmptyValue is set now to: [+ $optUndefToEmptyValue = 1 +] <BR>
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-
- <input type="text" name="qqfeld1" value="Wert1">
- <input type="text" name="qqfeld2">
- <input type="text" size=10 name="qqfeld3">
- <input type="text" name="qqfeld4" size=10>
-
- <input type="checkbox" name="qqfeld1" value="Wert1">
- <input type="checkbox" name="qqfeld2">
- <input type="checkbox" size=10 name="qqfeld3">
- <input type="checkbox" name="qqfeld4" size=10>
-
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-optUndefToEmptyValue is set now to: [+ $optUndefToEmptyValue = 0 +] <BR>
-optUndefToEmptyValue is now: [+ $optUndefToEmptyValue +] <BR>
-
-
-[- $fdat{mult2} = "Wert2\tWert5\tWert6" ; -]
-[- $fdat{mult3} = "Wert4" ; -]
-[- $fdat{mult4} = "Wert1\tWert2\tWert7" ; -]
-[- $fdat{mult5} = "Wert3" ; -]
-
- <input type="checkbox" value="Wert1" name="mult2" checked>
- <input type="checkbox" value="Wert1" name="mult2">
- <input type="checkbox" value="Wert2" name="mult2" checked>
- <input type="checkbox" value="Wert2" name="mult2">
- <input type="checkbox" value="Wert3" name="mult2" checked>
- <input type="checkbox" value="Wert3" name="mult2">
- <input type="checkbox" value="Wert4" name="mult2" checked>
- <input type="checkbox" value="Wert4" name="mult2">
- <input type="checkbox" value="Wert5" name="mult2" checked>
- <input type="checkbox" value="Wert5" name="mult2">
- <input type="checkbox" value="Wert6" name="mult2" checked>
- <input type="checkbox" value="Wert6" name="mult2">
- <input type="checkbox" value="Wert7" name="mult2" checked>
- <input type="checkbox" value="Wert7" name="mult2">
-
-
- <input type="checkbox" value="Wert1" name="mult3" checked>
- <input type="checkbox" value="Wert1" name="mult3">
- <input type="checkbox" value="Wert2" name="mult3" checked>
- <input type="checkbox" value="Wert2" name="mult3">
- <input type="checkbox" value="Wert3" name="mult3" checked>
- <input type="checkbox" value="Wert3" name="mult3">
- <input type="checkbox" value="Wert4" name="mult3" checked>
- <input type="checkbox" value="Wert4" name="mult3">
- <input type="checkbox" value="Wert5" name="mult3" checked>
- <input type="checkbox" value="Wert5" name="mult3">
- <input type="checkbox" value="Wert6" name="mult3" checked>
- <input type="checkbox" value="Wert6" name="mult3">
- <input type="checkbox" value="Wert7" name="mult3" checked>
- <input type="checkbox" value="Wert7" name="mult3">
-
- <select name="mult2">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult3">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult4">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="mult5">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="Wert8">Wert8</option>
- </select>
-
-
- [- $fdat{mycheck} = 'N' -]
- <input type=checkbox name=mycheck value=N checked>
-
- <select name="esc">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="a<b">a<b</option>
- <option value="a>b">a<b</option>
- <option value="Wert8">Wert8</option>
- </select>
-
- <select name="escmult">
- <option value="Wert1">Wert1</option>
- <option value="Wert2">Wert2</option>
- <option value="Wert3">Wert3</option>
- <option value="Wert4">Wert4</option>
- <option value="Wert5">Wert5</option>
- <option value="Wert6">Wert6</option>
- <option value="Wert7">Wert7</option>
- <option value="a<b">a<b</option>
- <option value="a>b">a>b</option>
- <option value="Wert8">Wert8</option>
- </select>
-
-optRawInput is now: [+ $optRawInput +] <BR>
-optRawInput is set now to: [+ $optRawInput = 1 +] <BR>
-optRawInput is now: [+ $optRawInput +] <BR>
-
- <input type="text" name="feld1" value="Wert1">
- <input type="text" name="feld2">
- <input type="text" size=10 name="feld3">
- <input type="text" name="feld4" size=10>
-
- <input type="text" name="feld5" value="Wert5">
- <input type="text" name="feld6">
- <input type="text" size=10 name="feld7">
- <input type="text" name="feld8" size=10>
-
- <input type="text" name="feld1" value="Wert<1">
- <input type="text" name="feld5" value="Wert<5">
-
- <p><input type="submit" name="Search" value="Absenden"></p>
</form>
</body>
No revision
No revision
1.1.2.1.6.1 +7 -3 embperl/test/html/nph/div.htm
Index: div.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/nph/div.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.1.6.1
diff -u -r1.1.2.1 -r1.1.2.1.6.1
--- div.htm 1998/07/14 20:11:21 1.1.2.1
+++ div.htm 2000/09/13 19:17:33 1.1.2.1.6.1
@@ -169,20 +169,24 @@
</table>
<table border="2" width="100%">
- <tr>
+ [$ if $row == 0 $]
+ <tr>
<th>1</th>
<th>2</th>
<th>3</th>
</tr>
- <tr>
+ [$endif$]
+ <tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
</table>
<table border="2" width="100%">
+ [$ if $row == 0 $]
<tr>
<th>[+ $b[2][$col] +]</th>
</tr>
+ [$endif$]
<tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
@@ -203,7 +207,7 @@
<P>[+ $HTML::Embperl::VERSION +]<P>
-<P>[+ $tabmode +]<P>
+<P>[+ $tabmode || 17 +]<P>
<P>[+ local $tabmode = 1 +]<P>
<P>
No revision
No revision
1.1.2.1.6.1 +6 -2 embperl/test/html/ofunc/div.htm
Index: div.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/ofunc/div.htm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.1.6.1
diff -u -r1.1.2.1 -r1.1.2.1.6.1
--- div.htm 1998/07/14 20:11:25 1.1.2.1
+++ div.htm 2000/09/13 19:17:34 1.1.2.1.6.1
@@ -169,20 +169,24 @@
</table>
<table border="2" width="100%">
- <tr>
+ [$ if $row == 0 $]
+ <tr>
<th>1</th>
<th>2</th>
<th>3</th>
</tr>
- <tr>
+ [$endif$]
+ <tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
</table>
<table border="2" width="100%">
+ [$ if $row == 0 $]
<tr>
<th>[+ $b[2][$col] +]</th>
</tr>
+ [$endif$]
<tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
