ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/GCE/Util.pm
(Generate patch)

Comparing deliantra/gde/GCE/Util.pm (file contents):
Revision 1.15 by elmex, Sun Apr 2 17:57:37 2006 UTC vs.
Revision 1.17 by elmex, Tue Apr 4 11:29:54 2006 UTC

… …
25sub pseudohtml2txt { 25sub pseudohtml2txt {
26 my ($html) = @_; 26 my ($html) = @_;
27 27
28 $html =~ s/<br\s*?\/?>/\n/gsi; 28 $html =~ s/<br\s*?\/?>/\n/gsi;
29 $html =~ s/<b>(.*?)<\/b>/_\1_/gsi; 29 $html =~ s/<b>(.*?)<\/b>/_\1_/gsi;
30 $html =~ s/<li>/\n* /gi;
30 $html =~ s/<\/?\s*li>//gi; 31 $html =~ s/<\/?\s*li>//gi;
31 $html =~ s/<\/?\s*ul>//gi; 32 $html =~ s/<\/?\s*ul>//gi;
32 $html =~ s/&gt;/>/g; 33 $html =~ s/&gt;/>/g;
33 $html =~ s/&lt;/</g; 34 $html =~ s/&lt;/</g;
34 $html 35 $html
… …
64} 65}
65 66
66sub map2abs { 67sub map2abs {
67 my ($dest, $mape) = @_; 68 my ($dest, $mape) = @_;
68 69
70 $mappath = abs_path $mappath;
69 my $dir; 71 my $dir;
70 if (File::Spec->file_name_is_absolute($dest)) { 72 if (File::Spec->file_name_is_absolute($dest)) {
71 $dir = catdir ($::CFG->{MAPDIR}, $dest); 73 $dir = catdir ($::CFG->{MAPDIR}, $dest);
72 } else { 74 } else {
73 my ($v, $p, $f) = File::Spec->splitpath ($mape->{path}); 75 my ($v, $p, $f) = File::Spec->splitpath ($mape->{path});

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines