- Timestamp:
- 2004-06-11T11:13:50+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/pdftohtml.pl
r7120 r7586 167 167 if ($line =~ m@<title>(.*?)</title>@) { 168 168 my $title=$1; 169 169 170 # is this title the name of a filename? 170 171 if (-r "$title.pdf" || -r "$title.html") { 171 172 # remove the title 172 $line =~ s@<title>.*?</title>@<title></title> @;173 $line =~ s@<title>.*?</title>@<title></title><META NAME=\"Orig-title\" CONTENT=\"$title\">@; 173 174 } 174 175 }
Note:
See TracChangeset
for help on using the changeset viewer.