S.F.E. Support

[kristina]

Mail to the list:

Hi, all. I just fixed a bug in SFELinkAdd -- basically, the
"edit" (Update) function did not work at all. Thanks to Mike T
for pointing this out. You can download the new version (1.0.1)
from the SFELinkAdd page here:

http://tesol.net/scripts/SFELinkAdd/

Or, if you'd like to try to patch it yourself, find this part
of the script in "sub update":

foreach $entry (@entries){
$origentry =~ s/"/\"/sg;
$origentry =~ s/>/>/sg;
$origentry =~ s/</</sg;
$origentry =~ s/^\s+//sg; $origentry =~ s/\s+$//sg;
$origentry =~ s/\r\n/\n/sg; $origentry =~ s/\r/\n/sg;
$entry =~ s/^\s+//sg; $entry =~ s/\s+$//sg;
$entry =~ s/\r\n/\n/sg; $entry =~ s/\r/\n/sg;
$newfile .= "$entry\n\n\n";
}

and change it to this:

foreach $entry (@entries){
$origentry =~ s/"/\"/sg;
$origentry =~ s/>/>/sg;
$origentry =~ s/</</sg;
$origentry =~ s/^\s+//sg; $origentry =~ s/\s+$//sg;
$origentry =~ s/\r\n/\n/sg; $origentry =~ s/\r/\n/sg;
$entry =~ s/^\s+//sg; $entry =~ s/\s+$//sg;
$entry =~ s/\r\n/\n/sg; $entry =~ s/\r/\n/sg;
if($origentry eq $entry){
$newfile .= "$newentry\n\n\n";
}
else {
$newfile .= "$entry\n\n\n";
}
}

Let me know if you have any problems!

Kristina