Thread Verarscht mich Perl? (8 answers)
Opened by [E|B] at 2003-10-17 20:24

[E|B]
 2003-10-17 20:33
#64569 #64569
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$header =~ s/<_CGI>/$cgi/gi;
$header =~ s/<_GRAFIK>/$graphics/gi;
$header =~ s/<_FONT>/$font/gi;
$header =~ s/<_BFC>/$bodyfontcolor/gi;
$header =~ s/<_BGC>/$bgcolor/gi;
$header =~ s/<_AL>/$alink/gi;
$header =~ s/<_AV>/$avisited/gi;
$header =~ s/<_AA>/$aactive/gi;
$header =~ s/<_AH>/$ahover/gi;
$header =~ s/<_SBGC>/$selectbgc/gi;
$header =~ s/<_SFONT>/$selectfont/gi;
$header =~ s/<_SS>/$selectsize/gi;
$header =~ s/<_TABGC>/$textareabgc/gi;
$header =~ s/<_TAFONT>/$textareafont/gi;
$header =~ s/<_TAS>/$textareasize/gi;
$header =~ s/<_BBGC>/$buttonbgc/gi;
$header =~ s/<_BFONT>/$buttonfont/gi;
$header =~ s/<_BS>/$buttonsize/gi;
$header =~ s/<_TFONT>/$textfont/gi;
$header =~ s/<_TBGC>/$textbgc/gi;
$header =~ s/<_TS>/$textsize/gi;


Die Variablen werden aus einer Datei eingebunden.
Der Inhalt der Datei:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
$font = "Arial, Verdana, Lucida, Helvetica, Sans-Serif";
$bodyfontcolor = "000000";
$bgcolor = "DCDCDC";

$selectbgc = "D7D7D7";
$selectfont = "Arial, Verdana, Lucida, Helvetica, Sans-Serif";
$selectsize = "10";

$textareabgc = "F0F0F0";
$textareafont = "Arial, Verdana, Lucida, Helvetica, Sans-Serif";
$textareasize = "12";

$buttonbgc = "DEDFDF";
$buttonfont = "Verdana, Arial";
$buttonsize = "10";

$textfont = "Arial, Verdana, Lucida, Helvetica, Sans-Serif";
$textbgc = "F5F5F5";
$textsize = "11";

$alink = "F8783A";
$avisited = "BB3C04";
$aactive = "F8784A";
$ahover = "F8784A";

$navitablealign = "center";
$navitablewidth = "60\%";
$navitablepadding = "2";
$navitablespacing = "0";
$navitablebordercolor = "B4B4B4";
$navitablebordersize = "1";
$navitablebgcolor = "EBEBEB";

$maintablealign = "center";
$maintablewidth = "60\%";
$maintablepadding = "2";
$maintablespacing = "0";
$maintablebordercolor = "B4B4B4";
$maintablebordersize = "1";

$contenttabledark = "B4B4B4";
$contenttableborder = "B4B4B4";
$contenttablebordersize = "1";
$contenttablebgc = "EBEBEB";

1;
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

View full thread Verarscht mich Perl?