Changeset 2717 for trunk/gsdl

Timestamp:

2001-08-28T17:12:41+12:00 (23 years ago)

Author:

jrm21

Message:

Do some email munging - @ symbols become @. Both netscape and IE can
cope with mailto: links like this.

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -7 +7 @@
 # University of Waikato, New Zealand.
 #
-# Copyright (C) 1999 New Zealand Digital Library Project
+# Copyright (C) 1999-2001 New Zealand Digital Library Project
 #
 # This program is free software; you can redistribute it and/or modify
@@ -80 +80 @@
     my $self = new BasPlug ("EMAILPlug", @_);
     # make sure we don't run textcat (defaults to "auto");
-    $self->{'input_encoding'}="ascii"; # this might not be good enough...
+    $self->{'input_encoding'}="iso_8859_1"; # this might not be good enough...
     return bless $self, $class;
 }
@@ -185 +185 @@
     }
     $fromaddrmeta=~s/<//; $fromaddrmeta=~s/>//;
+    # minor attempt to prevent spam-bots from harvesting addresses...
+    $fromaddrmeta=~s/@/&#64;/;
     $doc_obj->add_utf8_metadata ($cursection, "FromAddr", $fromaddrmeta);
 
@@ -195 +197 @@
     # if name is an address
     $fromnamemeta =~ s/<//g; $fromnamemeta =~ s/>//g;
+    $fromnamemeta=~s/@/&#64\;/;
     $doc_obj->add_utf8_metadata ($cursection, "FromName", $fromnamemeta);
 
@@ -256 +259 @@
     $Headers = &text_into_html($Headers);
     $Headers = "No headers" unless ($Headers =~ /\w/);
+    $Headers =~ s/@/&#64\;/g;
     $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);