Changeset 7643
- Timestamp:
- 2004-06-25T15:15:47+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/pdftohtml.pl
r7586 r7643 165 165 # special - added to remove the filename from the title 166 166 # this should be in the header, before we see "textual content" 167 if ($line =~ m@<title>(.*?)</title>@ ) {167 if ($line =~ m@<title>(.*?)</title>@i) { 168 168 my $title=$1; 169 169 … … 171 171 if (-r "$title.pdf" || -r "$title.html") { 172 172 # remove the title 173 $line =~ s@<title>.*?</title>@<title></title> <META NAME=\"Orig-title\" CONTENT=\"$title\">@;173 $line =~ s@<title>.*?</title>@<title></title>\n<META NAME=\"filename\" CONTENT=\"$title\">@i; 174 174 } 175 175 }
Note:
See TracChangeset
for help on using the changeset viewer.