Thread Poard: Hilfe gesucht (65 answers)
Opened by Strat at 2007-06-17 17:11

Strat
 2007-06-22 13:55
#91766 #91766
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
z.B. so auf die schnelle getippt
Code: (dl )
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
my %tags = (
%PBoard::Config::TagsFirstReplace,
%PBoard::Config::TagsFastReplace,
%PBoard::Config::TagsLastReplace,
);

foreach my $tag ( sort keys %tags ) {

my $description = $tags{$tag}->{description};

my $examplesRef = $tags{$tag}->{examples}; # shortcut
my @examples = ( 'ARRAY' eq ref($examplesRef) )
? @$examplesRef
: ( $examplesRef );

my @examplesQuoted = map {
&PBoard::Posting::BuildMessagePreviewFromRaw( undef, $_ );
} @examplesRef;

} # foreach

push( @help,
{ description => $description,
examples => map { { text => $_ } } @examples,
examplesQuoted => map { { text => $_ } } @examplesQuoted,
}
);

und dann das ganze in ein template reinzujagen
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread Poard: Hilfe gesucht