The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

GRICHTER / Embperl-3.0.1 / test / html / subtextarea.htm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

              
<html>
<head>
<title>Embperl Tests</title>
</head>
<body bgcolor="#ffffff">
    [$ foreach $k (@ffld) $]
        [+ $k +] = [+ $fdat{$k} +]<br>
    [$endforeach$]
     [$ sub EntryRow $]
         <input name="[+ $_[1] +]" type=text size=40 maxlength=255><br>
     [$ endsub $]
    <form method=post action="ta3.htm">
         <textarea name="summary" rows=4 cols=45></textarea>
         <br>
         [- EntryRow('Title*', 'title') -]
         [- EntryRow('Pub. Date*', 'pubdate', '(m/d/y, "today"...)') -]
         <br>
         <textarea name="content" rows=15 cols=45></textarea>
         <input name="more">
        <input type="submit">
    </form>
</body>