blob: 6b4933a658d776b875572148110db442e9e9f934 (
plain) (
blame)
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#use wml::debian::common_tags
<bind-gettext-domain domain="consultants" />
<define-tag name whitespace=delete>
<strong><gettext domain="consultants">Name:</gettext></strong> %attributes<br>
</define-tag>
<define-tag company whitespace=delete>
<strong><gettext domain="consultants">Company:</gettext></strong> %attributes<br>
</define-tag>
<define-tag address whitespace=delete>
<strong><gettext domain="consultants">Address:</gettext></strong> %attributes<br>
</define-tag>
<define-tag contact whitespace=delete>
<strong><gettext domain="consultants">Contact:</gettext></strong>
<a href="%0">%0</a><br>
</define-tag>
<define-tag phone whitespace=delete>
<strong><gettext domain="consultants">Phone:</gettext></strong> %attributes<br>
</define-tag>
<define-tag fax whitespace=delete>
<strong><gettext domain="consultants">Fax:</gettext></strong> %attributes<br>
</define-tag>
<define-tag URL whitespace=delete>
<strong><gettext domain="consultants">URL:</gettext></strong>
<a href="%0">%0</a><br>
</define-tag>
<define-tag or whitespace=delete>
<gettext domain="consultants">or</gettext>
</define-tag>
<define-tag email whitespace=delete>
<preserve scramble />
<set-var %attributes />
<strong><gettext domain="consultants">Email:</gettext></strong>
<ifeq <get-var scramble /> "" \
<a href="mailto:%0">%0</a> \
"<:
my @at = qw(-at- +at+ (at) [at] {at} *at*);
my @dot = qw(-dot- +dot+ (dot) [dot] {dot} *dot*);
my $email = q{%0};
my $random = int(rand(@dot));
# this substitutes the at-sign and dots in the address
$email =~ s/@/ $at[$random] /;
1 while $email =~ s/\./ $dot[$random] /;
print $email;
:>" \
/><br />
<restore scramble />
</define-tag>
<define-tag rates whitespace=delete>
<strong><gettext domain="consultants">Rates:</gettext></strong> %attributes<br>
</define-tag>
<define-tag additional_info whitespace=delete>
<a href="%0"><gettext domain="consultants">Additional Information</gettext></a><br>
</define-tag>
<define-tag willing_to_relocate whitespace=delete>
<gettext domain="consultants">Willing to Relocate</gettext>
</define-tag>
<define-tag consult_total_message whitespace=delete>
<gettext domain="consultants"><total_consultant> Debian consultants listed in <total_country> countries worldwide.</gettext>
</define-tag>
|
