/[webpac2]/trunk/sql/pgbits.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/sql/pgbits.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 34 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,
Legend:
Removed from v.34  
changed lines
  Added in v.35
  ViewVC Help
Powered by ViewVC 1.1.26