Matthew.van.Eerde wrote:
> Johann wrote:
>> append_text_boilerplate($entity, "Scanned for viruses, trojans and
>> worms. Verified clean by Sophos Antivirus" . "/n Legal mumbo-jumbo
>> here.", 0);
>
> Do this (a "here document"):
>
> my $boilerplate = <<END_OF_BOILERPLATE;
> Scanned for viruses, trojans and worms. Verified clean by
> Sophos Antivirus.
>
> legalese goes here.
> Make sure to escape dollar signs with backslashs like this:
> If you do anything wrong we'll sue you for \$1,000,000.
> Thanks so much.
> END_OF_BOILERPLATE
>
> append_text_boilerplate($entity, $boilerplate, 0);
Or if you want to be superflexible you could store the legalese externally to the perl
script. Then you could give the legal department a means of updating the file should
they want to change the text, without giving the chance to break the perl.
If you do it this way you don't need to escape dollar signs or anything.
1) Globally at the top-ish:
my $boilerplate = "";
my $path_to_boilerplate = "/put/your/global/boilerplate/path/here";
sub load_boilerplate();
2) within filter_end:
sub filter_end
{ ...
append_text_boilerplate($entity, load_boilerplate(), 0);
}
3) At the end-ish...
sub load_boilerplate()
{ return $boilerplate if $boilerplate; # cache per-slave
open(BOILERPLATE, $path_to_boilerplate) or
die("Could not open $path_to_boilerplate");
$boilerplate = join("", <BOILERPLATE>);
close(BOILERPLATE);
return $boilerplate;
}
[EMAIL PROTECTED] 805.964.4554 x902
Hispanic Business Inc./HireDiversity.com Software Engineer
perl -e"map{y/a-z/l-za-k/;print}shift" "Jjhi pcdiwtg Ptga wprztg,"
_______________________________________________
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
