|< 1 2 3 4 >| | 31 Einträge, 4 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
...
FROM_HEADER="linux.local"
export FROM_HEADER
SUSE_DOC_HOST=localhost
export SUSE_DOC_HOST
KDEDIR=/opt/kde2
export KDEDIR
QTDIR=/usr/lib/qt2
export QTDIR
no_proxy='localhost'
export no_proxy
PRINTER='lp'
export PRINTER
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
sub anmelden
[
...
my $smtp = Net::SMTP->new("localhost");
$smtp->mail("automat\@try2flirt.de");
$smtp->to($email);
$smtp->data();
$smtp->datasend("Subject: Deine Zugangsdaten für Try 2 Flirt\n");
$smtp->datasend("To: $email\n");
$smtp->datasend("\n");
$smtp->datasend("Hi $username,");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend("Deine Kennung bei try2flirt.de lautet: '$username'.\n\n");
$smtp->datasend("Dein Passwort ist: '$pass'\n\n");
$smtp->datasend("Bitte achte auf Groß- Kleinschreibung.\n\n");
$smtp->datasend("Herzlichst,\n\n");
$smtp->datasend("Dein Try2Flirt-Team\n\n\n");
$smtp->datasend("---------------------------------------------------------------------------\n");
$smtp->datasend("Haben Sie noch Fragen? Dann mailen Sie uns: support\@try2flirt.de\n");
$smtp->dataend();
$smtp->quit;
}
sub passwort_vergessen
{
...
my $smtp = Net::SMTP->new("localhost");
$smtp->mail("automat\@try2flirt.de");
$smtp->to($email);
$smtp->data();
$smtp->datasend("Subject: Deine Zugangsdaten für Try 2 Flirt\n");
$smtp->datasend("To: $email\n");
$smtp->datasend("\n");
$smtp->datasend("Hi $username,");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend("Deine Kennung bei try2flirt.de lautet: '$username'.\n\n");
$smtp->datasend("Dein Passwort ist: '$pass'\n\n");
$smtp->datasend("Bitte achte auf Groß- Kleinschreibung.\n\n");
$smtp->datasend("Herzlichst,\n\n");
$smtp->datasend("Dein Try2Flirt-Team\n\n\n");
$smtp->datasend("---------------------------------------------------------------------------\n");
$smtp->datasend("Haben Sie noch Fragen? Dann mailen Sie uns: support\@try2flirt.de\n");
$smtp->dataend();
$smtp->quit;
...
}
|< 1 2 3 4 >| | 31 Einträge, 4 Seiten |