# -----------------------------------------------------------------------------=encoding utf8=head1 NAMEQuiq::Html::Tag - Generierung von HTML-Tags=head1 BASE CLASSL<Quiq::Hash>=head1 DESCRIPTION=head2 Zweck der KlasseDie Klasse generiert HTML-Code. Sie implementiert zwei Methoden -tag() und cat() - mit denen HTML-Code beliebiger Komplexitäterzeugt werden kann.=head2 Methode new()Ein Objekt der Klasse wird instantiiert durchmy $h = Quiq::Html::Tag->new;Die Methoden dieses Objekts generieren (X)HTML.=head2 Methode tag()Die Methode tag() generiert einen Tag. Sie kenntalle Element-Typen des W3C HTML/XHTML Standard und liefert bei Aufrufeine formatierte Tag-Repräsentation des betreffenden Element-Typsund seiner Attribute. Beispiel:$str = $h->tag('img',src=>'URL');ergibt<img src="URL" alt="" />Das Beispiel verdeutlicht, dass der Methode tag() dieElement-Typen "kennt". In diesem Fall "weiß" die Methode, dassElemente des Typs 'img' leer sind und diese ein Pflicht-Attribut'alt' besitzen (wird es nicht gesetzt, erhält es den Wert "").Die Methode tag() hat die Signatur:$str = $h->tag($elem,@keyVal,$content);Hierbei ist $elem der Element-Typ, @keyVal die Liste derAttribut/Wert-Paare und Optionen (siehe unten) und $contentist der Inhalt des Tag.Da die Argumente der Methode die gleiche Abfolge haben wie dieBestandteile eines Tag in HTML, können die Methodenaufrufe in Perlanalog geschachtelt werden wie die Tags in HTML. Beispiel:$h->tag('a',href=>'URL1',$h->tag('img',src=>'URL2'),);ergibt<a href="URL1"><img src="URL2" alt="" /></a>=head2 Methode cat()Die Elemente eines HTML-Dokuments können syntaktisch natürlichnicht nur geschachtelt auftreten, sie können auchaufeinanderfolgen. Die Methode cat() fügt aufeinanderfolgendeHTML-Elemente zusammen.Die Methode cat() hat folgende Signatur:$str = $h->cat(@args);Hierbei ist @args die Liste der HTML-Elemente, die zusammengefügtwerden sollen.Beispiel:$h->cat($h->tag('li','Orange'),$h->tag('li','Zitrone'),$h->tag('li','Ananas'),);ergibt<li>Orange</li><li>Zitrone</li><li>Ananas</li>Die Methode cat() wird von der Methode tag() intern gerufen, umden Content des Tag zu konstruieren. Erstreckt sich der Contentüber mehrere Argumente, statt nur einem Argument (dem letzten), muss derMethode tag() das Ende der @keyVal Argumente angezeigt werden.Dies geschieht durch Setzen des Arguments '-' vor dieContent-Argumente.$h->tag('ul','-',$h->tag('li','Orange'),$h->tag('li','Zitrone'),$h->tag('li','Ananas'),);ergibt<ul><li>Orange</li><li>Zitrone</li><li>Ananas</li></ul>Der Inhalt eines Tag kann nicht nur aus HTML-Elementen bestehen,sondern auch einfachen Text enthalten oder aus einer Mischungaus Text und Elementen bestehen. Beispiel:$h->tag('p','-','Auf ',$h->tag('a',href=>'http://cpan.org','CPAN'),' sind ',$h->tag('b','viele'),' Module!',);ergibt<p>Auf <a href="http://cpan.org">CPAN</a> sind <b>viele</b> Module!</p>=head2 Komplexere HTML-StrukturenMit der Methode tag() lassen sich beliebig komplexe HTML-Strukturengenerieren. Der folgende Code produziert ein einfaches, bis aufdie fehlende Dokumenttyp-Deklaration vollständiges HTML-Dokument.$h->tag('html','-',$h->tag('head',$h->tag('title','Test'),),$h->tag('body',$h->tag('p',q|HalloWelt!|),),);liefert<html xmlns="http://www.w3.org/1999/xhtml"><head><title>Test</title></head><body><p>HalloWelt!</p></body></html>=head2 FormatierungWer die obigen Beispiele genau betrachtet, bemerkt, dass die Tagsnicht alle mit der gleichen Formatierung generiert werden.Der a-Tag umschließt seinen Inhalt unmittelbar<a ...>INHALT</a>wohingegen der p-Tag seinen Inhalt um zwei Leerzeichen einrücktund der Begin- und End-Tag auf einer eignenen Zeile stehen<p>INHALT</p>Dies sind zwei der Formatierungsvarianten, die die Methodetag() kennt.Für jeden HTML Element-Typ ist eine Default-Formatierung definiert,welche bestimmt, wie die Tags des Element-Typs formatiert werden.Jedes Format wird mit einem Buchstaben bezeichnet: e, E, i, m, M, p, v.e=empty mit ZeilenumbruchDer Tag hat keinen Inhalt und steht auf einer eigenen Zeile (d.h.er wird mit \n abgeschlossen):<br />\nE=empty ohne ZeilenumbruchWie e, nur dass der Tag nicht auf einer eigenen Zeile steht (alsonicht mit \n abgeschlossen wird):<img ... />i=inlineDer Tag umschließt seinen Inhalt unmittelbar, es wirdkein \n angehängt:<a ...>IRGENDEIN\nINHALT</a>m=multiline mit EinrückungDer Inhalt wird um zwei Leerzeichen eingerückt, der Tag umschließtdiesen auf getrennten Zeilen. Das Konstrukt endet mit einem \n:<p ...>\nIRGENDEIN\nINHALT\n</p>\nM=multiline ohne EinrückungWie m, nur dass der Inhalt nicht eingerückt wird:<html ...>\nHEAD\nBODY\n</html>\np=protectedDer Inhalt wird einzeilig gemacht, indem LF- und CR-Zeichen durchdie Entities und ersetzt werden und vom Tagunmittelbar umschlossen werden.<pre ...>IRGENDEIN INHALT</pre>\nDiese Formatierung schützt den Tag-Inhalt davor, dass erdurch eine Einrückung äußerer Tags verändert wird. Sie wirdbei Tags angewendet, bei deren Inhalt Whitespace signifikant ist.v=variableEnthält der Inhalt keine Zeilenumbrüche, wird er einzeilig ausgelegt:<title>INHALT</title>\nEnthält der Inhalt Zeilenumbrüche, wird er mehrzeilig ausgelegt:<title>EINTITEL</title>=head2 Setzen von data-* AttributenDie Methode tag() unterstützt data-* Attribute auf zwei Weisen:=over 4=item 1.Einzelne Attribute:$h->tag('form','data-x' => 'a','data-y' => 'b','data-z' => 'c',...);=item 2.Liste von Attributen:$h->tag('form',data => [x => 'a',y => 'b',z => 'c',],...);=backDas Resultat in beiden Fällen:<form data-z="c" data-y="b" data-x="a" ...></form>=head2 HTML Element-TypenDie Methode tag() kennt alle Element-Typen des W3C-Standards. Diefolgende Liste gibt den Element-Typ, die Default-Formatierung unddie Default-Attribute an:Element Format Default-Attributea iabbr iacronym iaddress varea eb ibase ebdo ibig iblockquote mbody Mbr ebutton vcaption vcite icode icol ecolgroup mdd vdel idfn idiv mdl mdt vem ifieldset mform Mframe eframeset mh1 vh2 vh3 vh4 vh5 vh6 vhead mhr ehtml M xmlns=>'http://www.w3.org/1999/xhtml' (nur XHTML)i iiframe vimg E alt=>''input eins ikbd ilabel vlegend vli vlink emap mmeta enoframes mnoscript mobject mol moptgroup moption vp mparam epre pq isamp iscript m type=>'text/javascript'select vsmall ispan istrong istyle m type=>'text/css'sub isup itable Mtbody mtd vtextarea ptfoot mth vthead mtitle vtr mtt iul mvar iDas Default-Format kann mit der Option -fmt=>$val bei Aufrufder Methode tag() überschrieben werden.=head2 ZeilenumbruchBei allen Formaten außer i (inline) endet der generierte Tag Code perDefault mit einem Zeilenumbruch. Die Zahl der angehängten Zeilenumbrüchekann unabhängig davon mit der Option -nl=>$n gesetzt werden.Bei -nl=>0 wird kein Zeilenumbruch angehängt.=head2 HTML statt XHTMLPer Default wird XHTML-Code generiert. Um klassischen HTML-Codezu generieren, wird die HTML-Version gesetzt:Quiq::Html::Tag->setDefault(htmlVersion=>'html-4.01');Ab diesem Aufruf instantiieren die nachfolgenden Konstruktor-Aufrufe(sofern sie die htmlVersion nicht selbst setzen) Objekte zur Generierungvon klassischem HTML.Der generierte Code sieht bei klassischem HTML folgendermaßen aus:<a href="URL1"><img src="URL2" alt=""></a>Man beachte, dass der img-Tag nun mit '>', nicht mit ' />'abgeschlossen ist.=head2 HTML mit GroßschreibungHTML-Code mit großgeschriebenen Element- und Attributnamen wirdnach folgender Setzung erzeugt:Quiq::Html::Tag->setDefault(htmlVersion=>'html-4.01',uppercase=>1);Der generierte Code sieht dann so aus:<A HREF="URL1"><IMG SRC="URL2" ALT=""></A>Ist XHTML ('xhtml-1.0') eingestellt, hat die Option uppercase=>1keinen Einfluss.=head1 ATTRIBUTES=over 4=item checkLevel => 0|1|2 (Default: 1)Umfang der Element/Attribut-Prüfung.=over 4=item Z<>0keine Prüfung=item Z<>1prüfe Element-Typ=item Z<>2prüfe Element-Typ und Attributnamen=backWird ein Fehler festgestellt, wird eine Exception geworfen.=item compact => $bool (Default: 0)Generiere den HTML-Code einzeilig mit so wenig Whitespace wie möglich.=item embedImages => $bool (Default: 0)Füge Bilddaten direkt in HTML ein.=item htmlVersion => 'html-4.01'|'html-5'|'xhtml-1.0' (Default: 'xhtml-1.0')HTML-Version. Beginnt die Versionsangabe mit 'xhtml' wird dasHTML gemäß den Regeln für XHTML generiert, andernfalls fürklassisches HTML. Die Versionsnummer wird bei der Generierungdes DOCTYPE herangezogen.=item indentation => $n (Default: undef)Forciere eine Content-Einrückung um $n Leerzeichen. Bei indentation=>0wird nicht eingerückt. Ist indentation nicht gesetzt, gilt dieEinrückung, die als Argument bei der Tag-Methode angegeben ist bzw.die in der Methode tag() als Default vorgegeben ist.=item uppercase => $bool (Default: 0)Erzeuge Tag- und Attribut-Namen in Großschreibung. Diese Setzungwird nur bei klassischem HTML - nicht bei XHTML - beachtet.=back=cut# -----------------------------------------------------------------------------packageQuiq::Html::Tag;usev5.10;usestrict;usewarnings;useutf8;our$VERSION='1.225';useQuiq::Css;useQuiq::Template;useQuiq::String;useQuiq::JavaScript;useScalar::Util ();useQuiq::Image;useQuiq::Path;useMIME::Base64 ();# -----------------------------------------------------------------------------# Attribute und Defaultwerte bei der Instantiierung. Werden die# Werte anders gesetzt, gelten sie für die gesamte Applikation.my%Default= (checkLevel=> 1,# Umfang der Element- und Attribut-Prüfungencompact=> 0,# Einzeilig, Whitespace komprimiertembedImages=> 0,# Einbettung von Bildern# htmlVersion => 'xhtml-1.0', # XHTML vs. HTML, Versionsnr. für DOCTYPEhtmlVersion=>'html-5',# XHTML vs. HTML, Versionsnr. für DOCTYPEindentation=>undef,# forcierte EinrückungoneLineCss=> 0,# <style>-Content stets einzeiligoneLineJs=> 0,# <script>-Content stets einzeiliguppercase=> 0,# wandele Elem.- und Att.-Namen in Großschr.);Hash::Util::lock_keys(%Default);# Liste der vom W3C definierten (X)HTML-DTD- und Frameset-DTD-Elemente# und ihre Default-Formatierungmy%Element= (a=>'i',# Link, Ankerabbr=>'i',# Text ist Abkürzungacronym=>'i',# Text ist Akronymaddress=>'v',# Text ist Adressangabearea=>'e',# Bereich in einer clientseitigen Image-Mapb=>'i',# Fettschriftbase=>'e',# Basis-Pfadname für alle relativen URLsbdo=>'i',# Text mit anderer Laufrichtungbig=>'i',# Großschriftblockquote=>'m',# Zitatabschnittbody=>'m',# Rumpf HTML-Seitebr=>'e',# Zeilenumbruchbutton=>'v',# Schaltflächecaption=>'v',# Beschriftung zu einer Tabellecanvas=>'m',# HTML 5, Fläche zum Zeichnencite=>'i',# Text ist Hinweis auf Literaturstellecode=>'i',# Codebeispielcol=>'e',# Eigenschaften einer Tabellenspaltecolgroup=>'m',# Definition einer Spaltengruppedd=>'v',# Text Definitionslistedel=>'i',# gelöschter Textdetails=>'m',# Details, die aufklappbar sinddfn=>'i',# Text ist Definitiondiv=>'m',# allgemeines Block-Elementdl=>'m',# Definitionslistedt=>'v',# Terminus Definitionslisteem=>'i',# hervorgehobener Textfieldset=>'m',# Gruppe von Feldern eines Formularsform=>'m',# Formularframe=>'e',# (Frameset-DTD) Frame eines Framesetframeset=>'m',# (Frameset-DTD) Frameseth1=>'v',# Überschrifth2=>'v',# Überschrifth3=>'v',# Überschrifth4=>'v',# Überschrifth5=>'v',# Überschrifth6=>'v',# Überschrifthead=>'m',# Kopf HTML-Seitehr=>'e',# Trennbalkenhtml=>'M',# HTML-Seitei=>'i',# kursiver Textiframe=>'v',# (Frameset-DTD) Inline-Frameimg=>'E',# Bildinput=>'e',# Formular-Eingabeelementins=>'i',# eingefügter Textkbd=>'i',# Text stellt Benutzereingabe darlabel=>'v',# Label zu Formular-Eingabeelementlegend=>'v',# Beschriftung zu Fieldsetli=>'v',# Listenelementlink=>'e',# Definiert Beziehung zu anderem Dokumentmap=>'m',# Definition clientseitige Image-Mapmeta=>'e',# Information zum Dokumentnoframes=>'m',# (Frameset-DTD) Inhalt für nicht-framefähige Browsernoscript=>'m',# Inhalt für nicht-skriptfähige Browserobject=>'m',# einbettetes Objektol=>'m',# nummerierte Listeoptgroup=>'m',# Gruppe von Optionen einer Selectlisteoption=>'v',# Option einer Selectlistep=>'m',# Absatzparam=>'e',# Parameter eines Objectpre=>'p',# Leerraum und Zeilenumbrüche erhaltenq =>'i',# Kurzzitatsamp=>'i',# Text stellt Ausgabe eines Programms darscript=>'c',# Code, der vom Browser ausgeführt wirdselect=>'v',# Auswahlmenüsmall=>'i',# Kleinschriftspan=>'i',# allgemeines Inline-Elementstrong=>'i',# stark hervorgehobener Textstyle=>'v',# Stylesheet-Regelnsub=>'i',# tiefgestellter Textsummary=>'m',# Kurzbeschreibung zu Details (<details>)sup=>'i',# hochgestellter Texttable=>'M',# Tabelletbody=>'m',# Rumpf Tabelletd=>'v',# Tabellenzelletextarea=>'p',# Text-Eingabefeldtfoot=>'m',# Fuß Tabelle (identisch zu tbody)th=>'v',# Tabellenkopfzelle (identisch zu td)thead=>'m',# Kopf Tabelle (identisch zu tbody)title=>'v',# Titel HTML-Dokumenttr=>'m',# Tabellenzeilett=>'i',# Schreibmaschinenschriftul=>'m',# Ungeordnete Listevar=>'i',# Text ist Variablenname);# Default-Optionenmy%DefaultOptions= (p=> [-ignoreIfNull=>1],span=> [-ignoreIfNull=>1],);# Default-Attribute von Elementen allgemeinmy%DefaultAttributes= (# form => [method=>'post',enctype=>'multipart/form-data'],img=> [alt=>''],script=> [type=>'text/javascript'],style=> [type=>'text/css'],);# Default-Attribute, nur XHTMLmy%DefaultAttributesXhtml= ();# Liste aller Attribute und ihrer Domänen.# FIXME: anhand DTD überprüfenmy%Attribute= ('accept-charset'=>'charsets',# form'http-equiv'=>'cdata',# meta'xml:lang'=>'languageCode',# I18N (XHTML)'xml:space'=>'space',# ENUM pre,script,style(XHTML)abbr=>'text',# Cellaccept=>'contentTypes',# form,inputaccesskey=>'character',# Focus,legendaction=>'uri',# formalign=>'cellAlign',# ENUM CellAlignalt=>'cdata',# input(cdata);area,img(text)archive=>'uriList',# objectaxis=>'cdata',# Cellborder=>'pixels',# tablecellpadding=>'length',# tablecellspacing=>'length',# tablechar=>'character',# CellAligncharoff=>'length',# CellAligncharset=>'charset',# a,link,scriptchecked=>'bool',# inputcite=>'uri',# blockquote,del,ins,qclass=>'class',# Coreclassid=>'uri',# objectcodebase=>'uri',# objectcodetype=>'contentType',# objectcols=>'multiLengths',# frameset(multiLengths),textarea(number)colspan=>'number',# Cellcontent=>'cdata',# metacoords=>'coords',# a, areadata=>'uri',# objectdatetime=>'datetime',# del, insdeclare=>'bool',# objectdefer=>'bool',# scriptdir=>'dir',# ENUM I18Ndisabled=>'bool',# button,input,optgroup,option,select,# textareadownload=>'filename',# aenctype=>'contentType',# formframe=>'tframe',# ENUM tableframeborder=>'frameBorder',# ENUM frame, iframeheaders=>'idrefs',# Cellheight=>'length',# iframe,img,objecthref=>'uri',# a,area,base,linkhreflang=>'languageCode',# a,linkid=>'id',# Coreismap=>'bool',# img,inputlabel=>'text',# optgroup,optionlang=>'languageCode',# I18Nlongdesc=>'uri',# frame,iframe,imgmarginheight=>'pixels',# frame,iframemarginwidth=>'pixels',# frame,iframemaxlength=>'number',# inputmedia=>'mediaDesc',# ENUM link,stylemethod=>'method',# ENUM formmultiple=>'bool',# selectname=>'nmtoken',# button,input,meta,param,select,textarea,# object;form,frame,map(HTML)nohref=>'bool',# areanoresize=>'bool',# frameonblur=>'script',# Focus,selectonchange=>'script',# input,select,textareaonclick=>'script',# Eventondblclick=>'script',# Eventonfocus=>'script',# Focus,selectonkeydown=>'script',# Eventonkeypress=>'script',# Eventonkeyup=>'script',# Eventonload=>'script',# body,framesetonmousedown=>'script',# Eventonmousemove=>'script',# Eventonmouseout=>'script',# Eventonmouseover=>'script',# Eventonmouseup=>'script',# Eventonreset=>'script',# formonselect=>'script',# input,textareaonsubmit=>'script',# formonunload=>'script',# body,framesetprofile=>'uri',# headreadonly=>'bool',# input,textarearel=>'linkTypes',# ENUM a,linkrev=>'linkTypes',# ENUM a,linkrows=>'multiLengths',# frameset(multiLengths);textarea(number)rowspan=>'number',# Cellrules=>'trules',# ENUM tablescheme=>'cdata',# metascope=>'scope',# ENUM Cellscoped=>'bool',# stylescrolling=>'scrolling',# ENUM frame,iframeselected=>'bool',# optionshape=>'shape',# ENUM a,areasize=>'number',# input,selectspan=>'number',# col,colgroupsrc=>'uri',# frame,iframe,img,input,scriptstandby=>'text',# objectstyle=>'styleSheet',# Coresummary=>'text',# tabletabindex=>'number',# Focus,object,selecttarget=>'frameTarget',# a,area,base,form,linktitle=>'text',# Core,styletype=>'ContentType',# button(ENUM);a,link,object,param,script,# style;input(ENUM)usemap=>'uri',# img,input,objectvalign=>'cellValign',# ENUM CellAlignvalue=>'cdata',# button,input,option,paramvaluetype=>'valueType',# ENUM paramwidth=>'length',# iframe,img,object,table(length);# col,colgroup(multiLength)xmlns=>'uri',# html (XHTML));# Attribut-Domänen (werden aktuell nicht geprüft)my%Domain= (bool=> 1,buttonType=> [qw/button reset submit/],cdata=> 1,cellAlign=> [qw/center char justify left right/],cellValign=> [qw/baseline bottom middle top/],character=> 1,charset=> 1,charsets=> 1,class=> 1,contentType=> 1,contentTypes=> 1,coords=> 1,datetime=> 1,dir=> [qw/ltr rtl/],frameBorder=> [0,1],frameTarget=> 1,id=> 1,idrefs=> 1,inputType=> [qw/checkbox file hidden password radio reset submit text/],languageCode=> 1,length=> 1,linkTypes=> [qw/stylesheet next prev copyright index glossary/],# unv.mediaDesc=> [qw/all aural braille handheld print projection screentty tv/],method=> [qw/get post/],multiLength=> 1,multiLengths=> 1,nmtoken=> 1,number=> 1,pixels=> 1,scope=> [qw/col colgroup row rowgroup/],script=> 1,scrolling=> [qw/no yes auto/],shape=> [qw/circle default poly rect/],space=> ['preserve'],styleSheet=> 1,text=> 1,tframe=> [qw/above below border box hsides lhs rhs void vsides/],trules=> [qw/all cols groups none rows/],uri=> 1,uriList=> 1,valueType=> [qw/data object ref/],);# # den Platzbdearf der Hashes ausgeben## use Devel::Size;# my @arr = (# Default => \%Default,# Element => \%Element,# Attribute => \%Attribute,# DefaultAttributes => \%DefaultAttributes,# DefaultAttributesXhtml => \%DefaultAttributesXhtml,# );# my $bytes = 0;# my $str = '';# while (@arr) {# my $name = shift @arr;# my $ref = shift @arr;# my $n = Devel::Size::total_size($ref);# $bytes += $n;# $str .= ', ' if $str;# $str .= "%$name: $n";# }# warn "$str, Gesamt: $bytes Bytes\n";# -----------------------------------------------------------------------------=head1 METHODS=head2 Klassenmethoden=head3 new() - Konstruktor=head4 Synopsis$h = $class->new(@keyVal);$h = $class->new($htmlVersion,@keyVal);=head4 DescriptionInstantiiere ein Objekt zur Generierung von HTML-Code und liefere eineReferenz auf dieses Objekt zurück.=cut# -----------------------------------------------------------------------------subnew {my$class=shift;my$self=$class->SUPER::new(%Default);if(@_%2) {# Wenn ungerade Anzahl Argumente, interpretieren wir# das erste Argument als HTML-Version.unshift@_,'htmlVersion';}$self->set(@_);return$self;}# -----------------------------------------------------------------------------=head3 setDefault() - Setze Objekt-Defaults=head4 Synopsis$class->setDefault(@keyVal);=head4 Arguments=over 4=item @keyValListe der Schlüssel/Wert-Paare, die gesetzt werden sollen.=back=head4 ExampleDefiniere, dass applikationsweit jeglicher CSS- und JavaScript-Codein HTML einzeilig dargestellt wird:Quiq::Html::Tag->setDefault(oneLineCss => 1,oneLineJs => 1,);=cut# -----------------------------------------------------------------------------subsetDefault {my$class=shift;# @_: @keyValwhile(@_) {my$key=shift;if(!exists$Default{$key}) {$class->throw('HTML-00099: Unkown attribute',Attribute=>$key,);}$Default{$key} =shift;}return;}# -----------------------------------------------------------------------------=head2 Objektmethoden=head3 tag() - Generiere HTML-Tag=head4 Synopsis$html = $h->tag($elem,@keyVal); # [1]$html = $h->tag($elem,@keyVal,$content); # [2]$html = $h->tag($elem,@keyVal,'-',@content); # [3]=head4 Options=over 4=item - (Dash)Ende der Attribut/Wert-Liste. Die restlichen Argumente werdenzum Inhalt konkateniert.$h->tag('p',class=>'p1','-','Ein ',$h->tag('b','kurzer'),' Text.');Man beachte die Kommata zwischen den Argumenten.Ohne '-' wird allein das letzte Argument als Inhalt aufgefasst.Besteht der Inhalt aus mehreren Teilen, müssen die Teiledann konkateniert werden:$h->tag('p',class => 'p1','Ein '.$h->tag('b','kurzer').' Text.');=item -checkLevel => 0|1|2 (Default: 1)Umfang der Element-Typ und Attribut-Prüfung.=item -compact => $bool (Default: Wert des Attributs compact)Generiere den HTML-Code einzeilig mit so wenig Whitespace wie möglich.Soll sämtlicher HTML-Code einzeilig erzeugt werden,genügt es, beim Konstruktor das Attribut compact zu setzen:$h = Quiq::Html::Tag->new(...,compact=>1);=item -contentInd => $n (Default: undef)Reduziere die Content-Einrückung auf $n, wenn möglich. Im Fallevon undef wird an der Content-Einrückung nichts geändert. DieseOption ist nützlich, wenn der Content eingerückter Code ist (Tags<style> und <script>) und dieser auf bei der Seitengenerierung aufeine geringere Einrücktiefe gebracht werden soll (z.B. von 4 auf 2).=item -embedImage => $bool (Default: 0)Bette im Falle eines <img>-Tag das Bild in den HTML-Code ein.=item -endTagOnly => $bool (Default: 0)Erzeuge nur den Content und den End-Tag. Diese Option ist nützlich,wenn der HTML-Code inkrementell geschrieben wird und z.B. im Fehlerfallnur der Rest mit schließenden Tags generiert werden soll.my $html = $h->tag('html',-endTagOnly => 1,$h->tag('body',-endTagOnly => 1,'-',$h->tag('h1','Fatal Error'),$h->tag('pre',$msg),));$http->append($html);=item -fmt => 'c'|'e'|'E'|'m'|'M'|'p'|'P'|'v'|'i' (Default: gemäß $elem)Art der Content-Formatierung.=over 4=item 'e' (empty)Element hat keinen Content (br, hr, ...)<TAG ... />\n=item 'E' (empty, kein NEWLINE)Wie 'e', nur ohne NEWLINE am Ende (img, input, ...)<TAG ... />=item 'm' (multiline)Content wird auf eigene Zeile(n) zwischen Begin- und End-Taggesetzt und um -ind=>$n Leerzeichen eingerückt. Ist der Contentleer, wird der End-Tag direkt hinter den Begin-Tag gesetzt.(html, head, body, form, p, div, script, style, ...)<TAG ...>CONTENT</TAG>\nIst der Content leer:<TAG ...></TAG>=item 'M' (multiline, ohne Einrückung)Wie 'm', nur ohne Einrückung (html, ...)<TAG ...>CONTENT</TAG>\n=item 'c' (cdata)Wie 'm', nur dass der Content in CDATA eingefasst wird:<TAG ...>// <![CDATA[CONTENT// ]]></TAG>Der W3 HTML Validator bemängelt die Zeichen & und > dann nichtim Content. (script)=item 'p' (protect)Der Content wird geschützt, indem dieser einzeilig gemacht(LF und CR werden durch und ersetzt) und unmittelbarzwischen Begin- und End-Tag gesetzt wird (pre, textarea, ...).<TAG ...>CONTENT</TAG>\n=item 'P' (protect, Einrückung entfernen)Wie 'p', nur dass die Einrückung des Content entfernt wird.=item 'v' (variable)Ist der Content einzeilig, wird er unmittelbar zwischen Begin-und End-Tag gesetzt:<TAG ...>CONTENT</TAG>\nIst der Content mehrzeilig, wird er eingerückt:<TAG ...>CONTENT</TAG>\n(title, h1-h6, ...)=item 'i' (inline)Der Content wird belassen wie er ist. Dies ist der Default für Tags,die in Fließtext eingesetzt werden. Ein NEWLINE wird nicht angehängt.Text Text <TAG ...>Text TextText</TAG> Text Text(a, b, span, ...)=backBei Wert 0 generiere keinen End-Tag bei leerem Content, sondern<TAG .../>=item -ignoreIf => $bool (Default: 0)Liefere Leerstring, wenn Bedingung $bool erfüllt ist.=item -ignoreIfNull => $bool (Default: 0)Liefere Leerstring, wenn $content null (Leerstring oder undef)ist. Für verschiedene Tags ist C<< -ignoreIfNull=>1 >> derDefault. Siehe Hash C<%DefaultOptions>. MEMO: Dieser Hash istnicht vollständig erstellt und kann (soll) nach Bedarf ergänztwerden, insbesondere hinsichtlich der Option C<-ignoreIfNull>.Für zahlreiche weitere Tags dürfte dies ein sinnvoller Defaultsein (aber nicht für alle).=item -ignoreTagIf => $bool (Default: 0)Liefere $content (ohne Tag), wenn $bool erfüllt ist.=item -ind => $n (Default: 2)Rücke $content um $n Leerzeichen ein.=item -indPos => $n (Default: 0)Rücke bis auf die erste Zeile den Tag um $n Leerzeichen einund entferne Zeilenumbrüche am Ende. Diese Option ist nützlich, wennder Tag für einen Platzhalter mit der Einrücktiefe $nin bestehenden HTML-Code eingesetzt wird.=item -indTag => $n (Default: 0)Rücke den Tag um $n Leerzeichen ein.=item -nl => $n (Default: 1)Anzahl NEWLINEs am Ende.-nl => 0 (kein NEWLINE):<TAG>CONTENT</TAG>-nl => 1 (ein NEWLINE):<TAG>CONTENT</TAG>\n-nl => 2 (zwei NEWLINEs):<TAG>CONTENT</TAG>\n\nusw.=item -placeholders => \@keyVal (Default: undef)Ersetze im generierten HTML-Code die angegebenen Platzhalter durchihre Werte.=item -remComments => $bool (Default: 0)Entferne Kommentare aus dem Content. Die Option berücksichtigt,ob es sich um HTML-, CSS- oder JavaScript-Content handelt.=item -remNl => $bool (Default: 0)Entferne Leerzeilen aus dem Content.=item -tag => $tag (Default: erstes Argument des Methodenaufrufs)Mit dieser Option kann der Tag verändert werden. Anwendungsfall:statt eigentlich beim Aufruf angegebenen td soll ein th-Taggesetzt werden. Beispiel:$h->tag('td',-tag => 'th',...);Siehe: Quiq::Html::Table::Simple=item -tagWrap => $n (Default: 0)Brich eine Tag-Zeile um, wenn sie $n Zeichen überschreitet. Wenn 0,findet kein Umbruch statt. Diese Option ist nützlich, wenn ein Tag langeAttribute haben kann und dies stört (siehe <embed> inR1::YouTube::Player).=item -text => $bool (Default: 0)Behandele den Content als Text, d.h. schütze &, < und >.=back=head4 DescriptionGeneriere HTML-Tag $tag gemäß den Optionen und Attributen @keyValund dem Inhalt $content und liefere das Resultat zurück [2].Der Inhalt kann auch fehlen [1] oder sich über mehrere Argumenteerstrecken [3].B<Attribut style>Als Wert des Attributs C<style> kann eine Array-Referenz mitCSS-Regeln angegeben werden. Diese werden von derMethode Quiq::Css->rules() aufgelöst.B<Boolsche Attribute>Boolsche Attribute werden in HTML ohne Wert und in XHTML mit sichselbst als Wert generiert.HTML<TAG ... ATTRIBUTE ...>XHTML<TAG ... ATTRIBUTE="ATTRIBUTE" ...>Boolsche Attribute sind:checkeddeclaredeferdisabledismapmultiplenohrefnoresizereadonlyselectedB<Default-Attribute>Für einige Elemente sind Default-Attribute vereinbart, die nichtexplizit gesetzt werden müssen.Element Attributeform method => 'post', enctype => 'multipart/form-data'script type => 'text/javascript'style type => 'text/css'=cut# -----------------------------------------------------------------------------# Setze Formatiereigenschaften# FIXME: Das Bündel *aller* Eigenschaften setzen, da eine Umschaltung# zwischen beliebigen Status vorkommen kann.my$setFmtDefaults=sub{my($fmt,$fmtR,$indR,$endTagR,$nlR) =@_;$$fmtR=$fmt;if($fmteq'i') {$$nlR= 0;}elsif($fmteq'e') {$$endTagR= 0;$$nlR= 1;}elsif($fmteq'E') {$$fmtR='e';$$endTagR= 0;$$nlR= 0;}elsif($fmteq'M') {$$fmtR='m';$$indR= 0;}elsif($fmteq'v') {$$nlR= 1;}return;};subtag {my$self=shift;my$tag=shift;# Defaultsmy($xhtml,$html5);my$htmlVersion=$self->{'htmlVersion'};if($htmlVersion=~ /^html-5/) {$html5= 1;}elsif($htmlVersion=~ /^xhtml/) {$xhtml= 1;}my$uppercase=$self->{'uppercase'} && !($xhtml||$html5);my$embedImage=$self->{'embedImages'};my$checkLevel=$self->{'checkLevel'};my$compact=$self->{'compact'};my$oneLineJs=$self->{'oneLineJs'};my$oneLineCss=$self->{'oneLineCss'};my$contentInd=undef;my$fmt='m';my$nl= 1;my$ind= 2;my$indPos= 0;my$indTag= 0;my$endTag= 1;my$endTagOnly= 0;my$ignoreIfNull= 0;my$ignoreTagIf= 0;my$oneLine= 0;my$tagWrap= 0;my$remComments= 0;my$remNl= 0;my$text= 0;my$placeholders=undef;# Tag-spezifische Defaultsif($tageq'style'||$tageq'script') {$remComments= 1;$remNl= 1;$contentInd= 2;}# Element-Lookup -> elementspezifische Defaults# Bei -checkLevel=>0 muss $tag nicht existierenmy$e=$Element{$tag};if($e) {$setFmtDefaults->($e,\$fmt,\$ind,\$endTag,\$nl);}# Default-Attribute ermitteln (z.B. type="text/css" bei style)my(@defAttr,%seenAttr);if(my$arr=$DefaultAttributes{$tag}) {push@defAttr,@$arr;}if($xhtml&& (my$arr=$DefaultAttributesXhtml{$tag})) {push@defAttr,@$arr;}# BUG: funktioniert nicht, da spezifizierte Defaultattribute dann# mehrfach auftreten# if (my $arr = $DefaultAttributes{$tag}) {# unshift @_,@$arr;# }# if ($xhtml && (my $arr = $DefaultAttributesXhtml{$tag})) {# unshift @_,@$arr;# }# Tagbezeichner wandelnmy$tagStr=$uppercase?uc$tag:$tag;# Tag generierenmy$str='';# Optionen und Attribute verarbeitenif(my$arr=$DefaultOptions{$tag}) {unshift@_,@$arr;}while(@_) {if(@_== 1) {# Letztes Argument ist Content. Dieser Test muss als erstes# kommen, damit '-' als Content nicht unter den Tisch fällt.last;}elsif(defined$_[0] &&$_[0] eq'-') {# explizites Ende der Options- und Attributlisteshift;# '-' konsumierenlast;}elsif(ref$_[0]) {# Argument ist (Array-)Referenzlast;}my$key=shift;my$val=shift;if(substr($key,0,1) eq'-') {# FIXME: Fallunterscheidungen durch Hash-Lookup ersetzenif($keyeq'-nl') {$nl=$val;}elsif($keyeq'-fmt') {$setFmtDefaults->($val,\$fmt,\$ind,\$endTag,\$nl);}elsif($keyeq'-ind') {if(defined$val) {$ind=$val;}}elsif($keyeq'-indTag') {$indTag=$val;}elsif($keyeq'-indPos') {$indPos=$val;}elsif($keyeq'-ignoreIf') {# sofortiger Abbruchreturn''if$val;}elsif($keyeq'-ignoreIfNull') {$ignoreIfNull=$val;}elsif($keyeq'-ignoreTagIf') {$ignoreTagIf=$val;}elsif($keyeq'-checkLevel') {$checkLevel=$val;}elsif($keyeq'-tagWrap') {$tagWrap=$val;}elsif($keyeq'-text') {$text=$val;}elsif($keyeq'-endTagOnly') {$endTagOnly=$val;}elsif($keyeq'-embedImage') {$embedImage=$val;}elsif($keyeq'-contentInd') {$contentInd=$val;}elsif($keyeq'-remComments') {$remComments=$val;}elsif($keyeq'-remNl') {$remNl=$val;}elsif($keyeq'-compact') {$compact=$val;}elsif($keyeq'-placeholders') {$placeholders=$val;}elsif($keyeq'-tag') {if(defined($val) &&$valne'') {$tag=$val;$tagStr=$uppercase?uc$tag:$tag;}}else{$self->throw('HTML-00001: Unbekannte Option',Option=>$key,Value=>$val,);}next;}elsif($keyeq'data'&& Scalar::Util::reftype($val)) {# data-* Attribute als Liste data=>\@keyValmy@keyVal;for(my$i=@$val-2;$i>= 0;$i-= 2) {unshift@_,'data-'.$val->[$i],$val->[$i+1];}next;}if($endTagOnly) {$self->throw('HTML-00004: Attribute bei Option -endTagOnly nicht erlaubt',Tag=>$tag,Attribute=>$key,Value=>$val,);}# Attribut-Lookup. Attribut data-* ist generell erlaubt.my$dom=$Attribute{$key} ||'';if(!$dom&&$checkLevel&&$key!~ /^data-/) {$self->throw('HTML-00003: Unbekanntes Attribut',Tag=>$tag,Attribute=>$key,Value=>$val,);}# Attribut/Wert-Paarif($keyeq'style'&&ref($val)) {# liefert undef, wenn Array leer ist$val= Quiq::Css->properties(@$val);}if(defined$val) {if($checkLevel>= 2) {$self->checkValue($dom,$val);}if($tageq'img'&&$keyeq'src') {$val=$self->imgSrcValue($val,$embedImage);}else{$val=~ s/"/"/g;# FIXME: auf best. Domänen einschränken}$key=uc$keyif$uppercase;if($domeq'bool') {if($val) {$str.=$xhtml||$html5?qq| $key="$key"|:" $key";}}else{$str.=qq| $key="$val"|;}# Gesetzte Attribute merken, falls wir Defaultattribute habenif(@defAttr) {$seenAttr{$key}++;}}}# Defaultattribute hinzufügen, die nicht gesetzt wurdenif(@defAttr&& !$endTagOnly) {for(my$i= 0;$i<@defAttr;$i+= 2) {if(!$seenAttr{$defAttr[$i]}) {$str.=sprintf' %s="%s"',$defAttr[$i],$defAttr[$i+1];}}}# Attribute für kompakte Darstellung einstellenif($compact) {if(lc($fmt) ne'p') {$fmt='i';}$ind= 0;$nl= 0;$remComments= 1;}if(!$endTagOnly) {$str="<$tagStr$str";}# Tag umbrechenif($tagWrap&&length($str) >$tagWrap) {$str=$self->wrapTag($tagWrap,$str);}# Element prüfenif(!$e&&$checkLevel) {$self->throw('HTML-00002: Unbekanntes Element',Element=>$tag);}# Content bestimmenmy$content=$self->cat(@_);# Klauseln auswerten, die auf den Content Bezug nehmenif($ignoreIfNull&& (!defined$content||$contenteq'')) {return'';}if($placeholders) {# Platzhalter ersetzenmy$tpl= Quiq::Template->new('text',\$content);$tpl->replace(@$placeholders);$content=$tpl->asStringNL;}if($text) {# Content ist Text, wir schützen &, <, >$content=~ s/&/&/g;$content=~ s/</</g;$content=~ s/>/>/g;}if($remNl) {$content=~ s/^(\s*)\n//mg;}if($remComments) {if($tageq'script') {$content= Quiq::String->removeComments($content,'//');}elsif($tageq'style') {$content= Quiq::String->removeComments($content,'/*','*/');}else{# HTML$content= Quiq::String->removeComments($content,'<!--','-->');}}if($compact) {$content=~ s/^\s+//g;$content=~ s/\s+$//g;if($tageq'script') {$content=~ s/\n\s*/ /g;# Whitespace nur zwischen Zeilen kompr.}elsif($tageq'style') {$content=~ s/\s+/ /g;}else{# HTML$content=~ s/\s+/ /g;}}if($ignoreTagIf) {return$content;}# Content bearbeitenif($fmteq'p'||$fmteq'P') {Quiq::String->removeIndentation(\$content)if$fmteq'P';$content=~ s/\x0a/ /g;$content=~ s/\x0d/ /g;}elsif($fmteq's') {# Inhalt einzeilig machen durch Whitespace-Manipulation$self->throw('Not implemented');}elsif($fmteq'e'||$fmteq'E') {if(length$content) {$self->throw('HTML-00003: Kein Content erwartet');}}elsif($fmteq'v'&&$content!~ /\n/ ||$fmteq'i') {# nichts tun}elsif($fmteq'v'||$fmteq'm'||$fmteq'c') {Quiq::String->removeIndentation(\$content);if($contentInd) {# Bringe Einrückung des Content auf Tiefe $contendIndQuiq::String->reduceIndentation($contentInd,\$content);}if($fmteq'c') {if($oneLineJs) {# mache JavaScript-Code einzeilig$content= Quiq::JavaScript->line($content);}if($content=~tr/&<>//) {# Script-Code in CDATA einfassen, wenn &, < oder > enthalten$content="// <![CDATA[\n$content\n// ]]>";# Folgendes geht nicht!# $content =~ s/&/&/g;# $content =~ s/</</g;}}elsif($tageq'style'&&$oneLineCss) {# mache CSS-Code einzeilig$content= Quiq::Css->oneLine($content);}if(defined(my$forceIndent=$self->{'indentation'})) {$ind=$forceIndent;}if($ind) {my$space=' 'x$ind;$content=~ s/^(?!$)/$space/gm;# Nicht-Leerzeilen einrücken}# MEMO: Test auf 'c', damit 'script' mit src nicht mehrzeilig wird$content=$content?"\n$content\n":'';# $fmt eq 'c'? '': "\n";}else{$self->throw('HTML-00002: Unerlaubter Wert für Option -fmt',Value=>$fmt,);}# End-Tagif($endTag||$content) {if($endTagOnly) {$content=~ s/^\n+//;}else{$str.='>';}$str.="$content</$tagStr>";}else{$str.=$xhtml||$html5?' />':'>';}if($indPos) {# Einrückung erzeugenmy$space=' 'x$indPos;$str=~ s/^(?!$)/$space/gm;# Nicht-Leerzeilen einrücken# Einrückung erste Zeile entfernen$str=~ s/^$space//;}else{# NEWLINE$str.="\n"x$nl;}if($indTag) {# Einrückung erzeugenmy$space=' 'x$indTag;$str=~ s/^(?!$)/$space/gm;# Nicht-Leerzeilen einrücken}return$str;}# -----------------------------------------------------------------------------=head3 wrapTag() - Umbreche langen Tag-String=head4 Synopsis$str = $this->wrapTag($maxWidth,$str);=cut# -----------------------------------------------------------------------------subwrapTag {my($this,$max,$tag) =@_;my$str='';my$tmp='';formy$val(split/ (?=\w+=".*?")/,$tag) {my$l=length$val;if(length($tmp)+length($val) <=$max) {if($tmp) {$tmp.=' ';}$tmp.=$val;}else{if($str) {$str.="\n ";}$str.=$tmp;$tmp=$val;}}if($tmp) {$str.="\n $tmp";}return$str;}# -----------------------------------------------------------------------------=head3 cat() - Füge HTML-Fragmente zusammen=head4 Synopsis$html = $h->cat(@opt,@args);=head4 Options=over 4=item -join => $str (Default: '')Verwende $str als Trenner zwischen den Fragmenten. Diese Optionist praktisch, wenn die Fragmente optional sind und dieauftretenden Elemente durch eine Zeichenkette voneinander getrenntwerden sollen. Beispiel: Eine Icon-Leiste, deren Zusammensetzungnicht festgelegt ist und die nicht direkt aneinander stoßensollen, sondern durch Leerzeichen getrennt werden.=item -placeholders => \@keyVal (Default: undef)Ersetze im generierten HTML-Code die angegebenen Platzhalter durchihre Werte.=back=head4 DescriptionFüge die HTML-Fragmente @args zusammen und liefere denresultierenden HTML-Code zurück.@args ist eine Abfolge von Array-Referenzen und/oder Zeichenketten.Der Aufruf$h->cat(['doctype'],['comment',-nl=>2,'Copyright Lieschen Müller'],['HTML',['HEAD',['TITLE','Meine Homepage'],['STYLE',q|.text { color: red; }|],],['BODY',['H1','Hallo Welt!'],['P',class=>'text',q|Ich heiße Lieschen Müller und diesist meine Homepage.|],],]);ist äquivalent zu$h->cat($h->doctype,$h->comment(-nl=>2,'Copyright Lieschen Müller'),$h->tag('html','-',$h->tag('head','-',$h->tag('title','Meine Homepage'),$h->tag('style',q|.text { color: red; }|),),$h->tag('body','-',$h->tag('h1','Hallo Welt!'),$h->tag('p',class=>'text',q|Ich heiße Lieschen Müller und diesist meine Homepage.|),),),);Beide liefern<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"<!-- Copyright Lieschen Müller --><html xmlns="http://www.w3.org/1999/xhtml"><head><title>Meine Homepage</title><style type="text/css">.text { color: red; }</style></head><body><h1>Hallo Welt!</h1><p class="text">Ich heiße Lieschen Müller und diesist meine Homepage.</p></body></html>=cut# -----------------------------------------------------------------------------subcat {my$self=shift;# Optionenmy$join='';my$placeholders=undef;while(@_) {if(!defined($_[0]) ||substr($_[0],0,1) ne'-') {# Ende der Optionenlast;}elsif($_[0] eq'-') {# explizites Ende der Options-Listeshift;# '-' konsumierenlast;}elsif($_[0] eq'-join') {$join=splice@_,0,2;next;}elsif($_[0] eq'-placeholders') {$placeholders=splice@_,0,2;next;}#else {# $self->throw(# 'HTML-00002: Unbekannte Option',# Option=>$_[0],# );#}last;}# Werte ermitteln und konkatenierenmy@arr;formy$e(@_) {if(ref$e) {# Argument ist (Array-)Referenzif($e->[0] =~ /^[[:upper:]]/) {# Namen beginnt mit Großbuchstaben -> Tagpush@arr,$self->tag(lc$e->[0],@$e[1..$#$e]);}else{# Kleinbuchstabe -> Methodemy$meth=$e->[0];push@arr,$self->$meth(@$e[1..$#$e]);}}else{push@arr,defined($e) &&$ene''?$e: ();}}my$html=join$join,@arr;# Platzhalter ersetzenif($placeholders) {my$tpl= Quiq::Template->new('text',\$html);$tpl->replace(@$placeholders);$html=$tpl->asStringNL;}return$html;}# -----------------------------------------------------------------------------=head3 doctype() - <!DOCTYPE>-Tag=head4 Synopsis$str = $h->doctype(@opt);=head4 Options=over 4=item -frameset => $bool (Default: 0)Liefere Frameset-Doctype.=item -nl => $n (Default: 2)Ergänze Doctype um $n Zeilenumbrüche.=back=head4 DescriptionLiefere <!DOCTYPE>-Tag:<!DOCTYPE ...>Der Tag ergibt sich aus der eingestellten HTML-Variante.=cut# -----------------------------------------------------------------------------subdoctype {my$self=shift;my$compact=$self->{'compact'};my$frameset= 0;my$nl= 2;while(@_) {my$key=shift;if($keyeq'-compact') {$compact=shift;}elsif($keyeq'-frameset') {$frameset=shift;}elsif($keyeq'-nl') {$nl=shift;}else{$self->throw('HTML-00001: Unbekannte Option',Option=>$key,Value=>shift,);}}if($compact) {$nl= 0;}my$version=$self->{'htmlVersion'};my$str;if($versioneq'xhtml-1.0'&& !$frameset) {$str=q|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"|;if(!$compact) {$str.="\n ";}}elsif($versioneq'xhtml-1.0'&&$frameset) {$str=q|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"|;if(!$compact) {$str.="\n ";}}elsif($versioneq'html-4.01'&& !$frameset) {$str=q|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01|;if(!$compact) {$str.="\n ";}}elsif($versioneq'html-5') {# && !$frameset) {$str=q|<!DOCTYPE html>|;}else{$self->throw('HTML-00002: Unbekannte HTML-Version',Version=>"'$version'",);}$str.="\n"x$nl;return$str;}# -----------------------------------------------------------------------------=head3 comment() - Kommentar-Tag=head4 Synopsis$html = $h->comment(@keyVal,$content);=head4 OptionsWie Methode tag()=head4 DescriptionLiefere HTML Kommentar-Tag:<!-- TEXT -->bzw.<!--TEXT-->wenn TEXT mehrzeilig ist.=cut# -----------------------------------------------------------------------------subcomment {my$self=shift;return''if!defined$_[-1] ||$_[-1] eq'';# kein Kommentar, wenn leermy$str=$self->tag('COMMENT',-checkLevel=>0,-fmt=>'v',@_);$str=~ s|^<COMMENT[^>]*>(\s?)|'<!--'.($1? $1:' ')|e;$str=~ s|(\s?)</COMMENT>|($1? $1:' ').'-->'|e;return$str;}# -----------------------------------------------------------------------------=head3 protect() - Schütze HTML Metazeichen=head4 Synopsis$html = $h->protect($text);=head4 DescriptionSchütze alle Metazeichen in Text $text, so dass das Resultatgefahrlos in den Content eines HTML-Tag eingesetzt werden kann.=cut# -----------------------------------------------------------------------------subprotect {my($self,$text) =@_;if(defined$text) {$text=~ s/&/&/g;$text=~ s/</</g;$text=~ s/>/>/g;}return$text;}# -----------------------------------------------------------------------------=head3 optional() - Optional-Klammer: <!--optional-->...<!--/optional-->=head4 Synopsis$html = $h->optional(@keyVal,$content);=head4 DescriptionLiefere optional-Klammer:<!--optional-->...<!--/optional-->bzw.<!--optional-->...<!--/optional-->wenn $content mehrzeilig ist.=cut# -----------------------------------------------------------------------------suboptional {my$self=shift;my$content=pop;# @_: @keyVal# Optionenmy$nl= 0;while(@_) {my$key=shift;my$val=shift;if($keyeq'-nl') {$nl=$val;}else{$self->throw('HTML--0001: Unbekannte Option',Option=>$key,Value=>$val,);}}# Generierenmy$str;if(!defined($content) ||$contenteq'') {# kein Content$str='';}elsif($content!~tr/\n//) {# Content ist einzeilig$str="<!--optional-->$content<!--/optional-->";}else{# Content ist mehrzeilig$str="<!--optional-->\n$content<!--/optional-->\n";}if($str&&$nl) {$str.="\n"x$nl;}return$str;}# -----------------------------------------------------------------------------=head3 checkValue() - Prüfe Attributwert=head4 Synopsis$h->checkValue($dom,$val);=head4 DescriptionPrüfe, ob der Attributwert $val für Domäne $dom korrekt ist.Fällt die Prüfung negativ aus, löse eine Exception aus.Die Methode liefert keinen Wert zurück.=cut# -----------------------------------------------------------------------------subcheckValue {my($self,$dom,$val) =@_;# FIXME: Wertprüfungen implementierenreturn;}# -----------------------------------------------------------------------------=head3 imgSrcValue() - Liefere Wert für scr-Attribut eines Bildes=head4 Synopsis$val = $this->imgSrcValue($val,$embedImage);=cut# -----------------------------------------------------------------------------subimgSrcValue {my($this,$val,$embedImage) =@_;if(ref$val) {# Bilddaten in-memorymy$type= Quiq::Image->type($val,-enum=>1);$val=sprintf'data:image/%s;base64,%s',$type,MIME::Base64::encode_base64($$val,'');}elsif($embedImage) {if(-f$val) {# lokale Bilddateimy$type= Quiq::Image->type($val,-enum=>1);$val=sprintf'data:image/%s;base64,%s',$type,MIME::Base64::encode_base64(Quiq::Path->read($val),'');}else{warn'WARNING: <img> Embedding of URL-Image'." currently not supported: $val\n";}}return$val;}# -----------------------------------------------------------------------------=head3 import() - Setze Konstruktor-Defaults der Klasse=head4 Synopsis$class->import(@keyVal);=head4 DescriptionSetze die Konstruktor-Defaults @keyVal der Klasse. Die Setzung giltfür alle folgenden Konstruktor-Aufrufe, bei denen die betreffenden Wertebeim Konstruktor-Aufruf nicht gesetzt werden.Die Methode liefert keinen Wert zurück.=head4 Example=over 4=item XHTML (Default):use Quiq::Html::Tag;=item HTML (Großschreibung) statt XHTML generieren:use Quiq::Html::Tag(htmlVersion=>'html-4.01',uppercase=>1);=back=cut# -----------------------------------------------------------------------------subimport{my$class=shift;# @_: @keyValwhile(@_) {my$key=shift;$Default{$key} =shift;}return;}# -----------------------------------------------------------------------------=head1 VERSION1.225=head1 AUTHORFrank Seitz, L<http://fseitz.de/>=head1 COPYRIGHTCopyright (C) 2025 Frank Seitz=head1 LICENSEThis code is free software; you can redistribute it and/or modifyit under the same terms as Perl itself.=cut# -----------------------------------------------------------------------------1;# eof