Parent Directory | Revision Log | Patch
revision 27 by dpavlin, Sat Jul 23 19:21:07 2005 UTC | revision 35 by dpavlin, Tue Aug 2 00:42:14 2005 UTC | |
---|---|---|
# | Line 64 print "## issue $issue_no on $issue_date | Line 64 print "## issue $issue_no on $issue_date |
64 | ||
65 | while($html =~ s#^.*?<!-- IKEY="([^"]+)" -->.+?<MYTITLE>\s*([^<]+)\s*</MYTITLE>.+?<ITITLE>\s*([^<]+)\s*</ITITLE>.+?<IDATE>\s*([^<]+)\s*</IDATE>.+?</TABLE>\s*(.+?)\s*<ICONT>\s*(.+?)\s*</ICONT>##si){ | while($html =~ s#^.*?<!-- IKEY="([^"]+)" -->.+?<MYTITLE>\s*([^<]+)\s*</MYTITLE>.+?<ITITLE>\s*([^<]+)\s*</ITITLE>.+?<IDATE>\s*([^<]+)\s*</IDATE>.+?</TABLE>\s*(.+?)\s*<ICONT>\s*(.+?)\s*</ICONT>##si){ |
66 | my $row = { | my $row = { |
67 | title => $1 . ( $2 ? " :: $2" : ""), | title => $2 . ( $3 ? " :: $3" : ""), |
68 | ||
69 | ikey => $1, | ikey => $1, |
70 | mytitle => $2, | mytitle => $2, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |