29 |
</lexicon> |
</lexicon> |
30 |
diff -Nur smeserver-vacation-1.1.bz8772.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm smeserver-vacation-1.1.bz8772.new/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm |
diff -Nur smeserver-vacation-1.1.bz8772.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm smeserver-vacation-1.1.bz8772.new/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm |
31 |
--- smeserver-vacation-1.1.bz8772.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm 2016-07-13 14:09:44.471013965 +0200 |
--- smeserver-vacation-1.1.bz8772.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm 2016-07-13 14:09:44.471013965 +0200 |
32 |
+++ smeserver-vacation-1.1.bz8772.new/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm 2016-07-13 21:37:43.779937434 +0200 |
+++ smeserver-vacation-1.1.bz8772.new/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/uservacations.pm 2016-07-14 05:45:17.766830058 +0200 |
33 |
@@ -165,9 +165,10 @@ |
@@ -165,9 +165,10 @@ |
34 |
|
|
35 |
my $from = 'From:'; |
my $from = 'From:'; |
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$away\n"."\n--\n$fullname"; |
43 |
|
|
44 |
# if exists and is not empty |
# if exists and is not empty |
45 |
if (( -e $vfile ) && (! -z $vfile )) |
if (( -e $vfile ) && (! -z $vfile )) |
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$away \n"."\n--\n$fullname"; |
56 |
|
|
57 |
my $reset = $vacation_text; |
my $reset = $vacation_text; |
58 |
|
|
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$away"."\n--\n$fullname"; |
69 |
|
|
70 |
# if exists and is not empty |
# if exists and is not empty |
71 |
if (( -e $vfile ) && (! -z $vfile )) |
if (( -e $vfile ) && (! -z $vfile )) |
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$away \n"."\n--\n$fullname"; |
82 |
|
|
83 |
my $reset = $vacation_text; |
my $reset = $vacation_text; |
84 |
|
|
|
@@ -438,3 +442,4 @@ |
|
|
} |
|
|
|
|
|
1; |
|
|
+ |
|