Embperl
view release on metacpan or search on metacpan
eg/forms/wizard/do.epl view on Meta::CPAN
<br>
</center>
[$endsub$]
[$ sub abort_button $]
[* my $r = shift ; *]
<input type="submit" name="-start" value="Zum Setup Menu" id="next_button" class="cStandardButton">
[$if $r -> {aborturl} $]<input type="submit" name="-abort" value="Setup Beenden" class="cStandardButton"> [$endif$]
[$ endsub $]
[$ sub prev_button $]
[* my $r = shift ; *]
[$ endsub $]
[$ sub next_button $]
[* my $r = shift ; *]
[$ endsub $]
eg/web/base.epl view on Meta::CPAN
$base14 = $base . ' font-size: 14px;' ;
$base18 = $base . ' font-size: 18px;' ;
-]
.cInput {[+ $base12 +] background: #DDDDDD; }
.cText {[+ $base12 +] background: #AFBDCA; }
.cSectionInput {[+ $base12 +] background: #ddaaaa; }
.cSectionText {[+ $base12 +] background: #ddaaaa; }
.cTabsOn {[+ $base14 +] background: #ddaaaa; }
.cTabsOff {[+ $base14 +] background: #DDDDDD; }
.cMenu {[+ $base10 +] color: #000000 ; text-align: left ;}
.cMenuInfo {[+ $base10 +] color: #000000 ; text-align: left ; background: #D2E9F5 }
.cNews {[+ $base10 +]}
.cContent {[+ $base12 +] border-left: 1px black solid ; padding-left: 7px; padding-right: 7px; }
.cContentNews {[+ $base12 +] border-left: 1px black solid ; margin-left: 7px; padding-left: 7px; }
.cPodHeaderNavLink {[+ $base12 +]}
.cPodH1ContentLink {[+ $base12 +] font-weight: bold;}
.cPodH2ContentLink {[+ $base10 +]}
.cPodH1 {[+ $base18 +] padding-left: 15px; padding-right: 15px; background: #D2E9F5; color: #000000; font-weight: bold; }
.cPodH1Link {[+ $base12 +] padding-left: 15px; padding-right: 15px; background: #D2E9F5; color: #000000; text-align: right ;}
eg/web/menuleft.epl view on Meta::CPAN
my ($url, $txt, $state, $tablebg, $ndx) = @_ ;
*]
<tr>
<td align="left" [$if $tablebg $]background="[+ $r -> {imageuri} +]/hintergrund-nav.gif"[$endif$]>
<table width="152" border="0" cellspacing="0" cellpadding="0">
<tr>
[$ if (defined($ndx)) $]
<td nowrap align="left" width=[+ $ndx * 12 + 2 +]> </td>
<td nowrap align="left" width=15><img src="[+ $r -> {imageuri} +]i-sub-[+ $state>1?($state>2?'on':'open'):'off' +].gif" width="11" height="11" vspace="6" hspace="5"></td>
<td nowrap align="left" width=[+ 125 - $ndx * 12 +]><a href="[+ $app -> languri ($r, $url) +]"><div class="cMenu">[+ $r -> gettext ($txt) +]</div></a></td>
[$else$]
<td nowrap with="152" height=22> [$ if $url $]<a href="[+ $app -> languri ($r, $url) +]">[$endif$]<span class="cMenu">[+ $r -> gettext ($txt) +]</span>[$ if $url $]</a>[$endif$]</td>
[$endif$]
</tr>
</table>
</td>
</tr>
[$ endsub $]
[$ sub menu $]
/*in*/ const char * sArg) ;
struct tCmd CmdTab [] =
{
/* cmdname function push pop type scan save no disable bHtml */
{ "/dir", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnDir , optDisableTableScan, 1 } ,
{ "/dl", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnDl , optDisableTableScan, 1 } ,
{ "/form", HtmlEndform, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "/menu", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnMenu , optDisableTableScan, 1 } ,
{ "/ol", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnOl , optDisableTableScan, 1 } ,
{ "/select", HtmlEndselect, 0, 1, cmdTable, 0, 0, cnSelect , optDisableSelectScan, 1 } ,
{ "/table", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnTable , optDisableTableScan, 1 } ,
{ "/textarea", HtmlEndtextarea, 0, 1, cmdTextarea, 0, 0, cnNop , optDisableInputScan, 1 } ,
{ "/tr", HtmlEndrow, 0, 1, cmdTablerow, 0, 0, cnTr , optDisableTableScan, 1 } ,
{ "/ul", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnUl , optDisableTableScan, 1 } ,
{ "a", HtmlA, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "body", HtmlBody, 0, 0, cmdNorm, 1, 0, cnNop , 0 , 1 } ,
{ "dir", HtmlTable, 1, 0, cmdTable, 1, 0, cnDir , optDisableTableScan, 1 } ,
{ "dl", HtmlTable, 1, 0, cmdTable, 1, 0, cnDl , optDisableTableScan, 1 } ,
{ "endwhile", CmdEndwhile, 0, 1, cmdWhile, 0, 0, cnNop , 0 , 0 } ,
{ "foreach", CmdForeach, 1, 0, cmdForeach, 0, 1, cnNop , 0 , 0 } ,
{ "form", HtmlForm, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "frame", HtmlASRC, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "hidden", CmdHidden, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 0 } ,
{ "if", CmdIf, 1, 0, (enum tCmdType)(cmdIf | cmdEndif), 0, 0, cnNop , 0, 0 } ,
{ "iframe", HtmlASRC, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "img", HtmlIMG, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "input", HtmlInput, 0, 0, cmdNorm, 1, 0, cnNop , optDisableInputScan, 1 } ,
{ "layer", HtmlASRC, 0, 0, cmdNorm, 0, 0, cnNop , 0 , 1 } ,
{ "menu", HtmlTable, 1, 0, cmdTable, 1, 0, cnMenu , optDisableTableScan, 1 } ,
{ "meta", HtmlMeta, 0, 0, cmdNorm, 1, 0, cnNop , optDisableMetaScan , 1 } ,
{ "ol", HtmlTable, 1, 0, cmdTable, 1, 0, cnOl , optDisableTableScan, 1 } ,
{ "option", HtmlOption, 0, 0, cmdNorm, 1, 0, cnNop , optDisableInputScan, 1 } ,
{ "select", HtmlSelect, 1, 0, cmdTable, 1, 0, cnSelect , optDisableSelectScan, 1 } ,
{ "sub", CmdSub, 1, 0, cmdSub, 0, 0, cnNop , 0 , 0 } ,
{ "table", HtmlTable, 1, 0, cmdTable, 1, 0, cnTable , optDisableTableScan, 1 } ,
{ "textarea", HtmlTextarea, 1, 0, cmdTextarea, 1, 1, cnNop , optDisableInputScan, 1 } ,
{ "th", HtmlTableHead, 0, 0, cmdNorm, 1, 0, cnNop , optDisableTableScan, 1 } ,
{ "tr", HtmlRow, 1, 0, cmdTablerow, 1, 0, cnTr , optDisableTableScan, 1 } ,
{ "ul", HtmlTable, 1, 0, cmdTable, 1, 0, cnUl , optDisableTableScan, 1 } ,
( run in 1.257 second using v1.01-cache-2.11-cpan-49f99fa48dc )