38 |
|
|
39 |
- my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n". |
- my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n". |
40 |
- "$away"; |
- "$away"; |
41 |
+ my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n"."subject: $return\n". |
+ my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n"."Subject: $return\n". |
42 |
+ "\n$away\n"."\n--\n$fullname"; |
+ "\n$away\n"."\n--\n$fullname"; |
43 |
|
|
44 |
# if exists and is not empty |
# if exists and is not empty |
51 |
|
|
52 |
- my $vacation_text = "$from $fullname \<$user\@$domain\>\n". |
- my $vacation_text = "$from $fullname \<$user\@$domain\>\n". |
53 |
- "$away \n"; |
- "$away \n"; |
54 |
+ my $vacation_text = "$from $fullname \<$user\@$domain\>\n"."subject: $return\n". |
+ my $vacation_text = "$from $fullname \<$user\@$domain\>\n"."Subject: $return\n". |
55 |
+ "\n$away \n"."\n--\n$fullname"; |
+ "\n$away \n"."\n--\n$fullname"; |
56 |
|
|
57 |
my $reset = $vacation_text; |
my $reset = $vacation_text; |
64 |
|
|
65 |
- my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n". |
- my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n". |
66 |
- "$away"; |
- "$away"; |
67 |
+ my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n"."subject: $return\n". |
+ my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n"."Subject: $return\n". |
68 |
+ "\n$away"."\n--\n$fullname"; |
+ "\n$away"."\n--\n$fullname"; |
69 |
|
|
70 |
# if exists and is not empty |
# if exists and is not empty |
77 |
|
|
78 |
- my $vacation_text = "$from $fullname \<$user\@$domain\>\n". |
- my $vacation_text = "$from $fullname \<$user\@$domain\>\n". |
79 |
- "$away \n"; |
- "$away \n"; |
80 |
+ my $vacation_text = "$from $fullname \<$user\@$domain\>\n"."subject: $return\n". |
+ my $vacation_text = "$from $fullname \<$user\@$domain\>\n"."Subject: $return\n". |
81 |
+ "\n$away \n"."\n--\n$fullname"; |
+ "\n$away \n"."\n--\n$fullname"; |
82 |
|
|
83 |
my $reset = $vacation_text; |
my $reset = $vacation_text; |