Commits

Anonymous committed 40f7f50

Small cleanup for GET. Update VERSION

Comments (0)

Files changed (2)

-0.8.2
+0.8.4
 use MIME::Lite;
 
 my $NAME      = "PGP-EKP";
-my $VERSION   = "0.8.3";
+my $VERSION   = "0.8.4";
 my $AUTHOR    = "John P. Clizbe";
 
 $ENV{PATH}    = "";
   ($text =~ m/^.*(Type bits.*)$/is) && ($text = ${1}); # Remove anything up to "Type bits"
    $text =~ s/<title>.*<\/title>//g;                   # Remove <title>...</title>
    $text =~ s/<h1>.*<\/h1>//g;                         # Remove <h1>...</h1>
+   $text =~ s/<pre>//g;                                # Remove <pre>...</pre>
+   $text =~ s/<\/pre>//g;                              # Remove <pre>...</pre>
    $text =~ s/<hr>/\n\n/g;                             # Replace <hr> with newline
    $text =~ s/<a href=\".*">([A-Z0-9]{8})/${1}/g;      # Remove first <a href="...">keyid
    $text =~ s/<a href=\".*">//g;                       # Remove remaining <a href="...">