#!/usr/bin/perl use CGI qw(:standard); use DBI; # Connecting to the database $drh = DBI->install_driver("mysql"); #$dsn = "DBI:mysql:database=bewellcontentdb;host=bewellcontentdb.db.2081014.hostedresource.com"; #$dbh = DBI->connect($dsn,"bewellcontentdb","BeW3!!DB"); $dsn = "DBI:mysql:database=beweezfy_bewellworld;host=localhost"; $dbh = DBI->connect($dsn,"beweezfy_bewell","B3W3!!$"); require "./cgi/print_header_footer.cgi"; require "./cgi/shared_ads2.cgi"; $id = param('id'); $pagenum = param('pagenum'); if ($pagenum eq "") {$pagenum = "1";} my $sth = $dbh->prepare("select large_graphic, title, subtitle, article_text, affiliations, footnotes, status from article where id = '$id' "); $sth->execute(); while (my $ref = $sth->fetchrow_hashref()) { $large_graphic = $ref->{'large_graphic'}; $article_title = $ref->{'title'}; $article_subtitle = $ref->{'subtitle'}; $article_text = $ref->{'article_text'}; $footnotes = $ref->{'footnotes'}; $affiliations = $ref->{'affiliations'}; $status = $ref->{'status'}; } $sth->finish(); $all_article_text = $article_text; if ($footnotes ne "") { $all_article_text = $all_article_text . "
Continue to page 2 of $pages >
";} } if ($pagenum eq "2") { $all_article_text =~ m/^.*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 1 of $pages • Continue to page 3 of $pages >
";} } if ($pagenum eq "3") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 2 of $pages • Continue to page 4 of $pages >
";} } if ($pagenum eq "4") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 3 of $pages • Continue to page 5 of $pages >
";} } if ($pagenum eq "5") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 4 of $pages • Continue to page 6 of $pages >
";} } if ($pagenum eq "6") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 5 of $pages • Continue to page 7 of $pages >
";} } if ($pagenum eq "7") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 6 of $pages • Continue to page 8 of $pages >
";} } if ($pagenum eq "8") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 7 of $pages • Continue to page 9 of $pages >
";} } if ($pagenum eq "9") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "< Back to page 8 of $pages • Continue to page 10 of $pages >
";} } if ($pagenum eq "10") { $all_article_text =~ m/^.*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break....*?....manual_page_break...(.*?)....manual_page_break.../; $display_article_text = $1; if ($pagenum == $pages) {$display_article_text = $display_article_text . "";} } } #end of manual page break processing else { # no manual page breaks, so do automatic page breaks instead $pages = $all_article_text_length/3400; $pages =~ s/\..*$//; $pages = $pages + 1; #$display_article_text = "[ length: $all_article_text_length, page $page of $pages ] " . $all_article_text; if ($pagenum eq "1") { $all_article_text =~ m/^(.{1,3400})([^ ]*)/; $display_article_text = $1 . $2; if ($pagenum < $pages) {$display_article_text = $display_article_text . "...Continue to page 2 of $pages >
";} } if ($pagenum eq "2") { if ($pages eq "2") { $all_article_text =~ m/^.{3300}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{3300}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 1 of $pages • Continue to page 3 of $pages >
";} } if ($pagenum eq "3") { if ($pages eq "3") { $all_article_text =~ m/^.{6400}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{6400}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 2 of $pages • Continue to page 4 of $pages >
";} } if ($pagenum eq "4") { if ($pages eq "4") { $all_article_text =~ m/^.{9500}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{9500}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 3 of $pages • Continue to page 5 of $pages >
";} } if ($pagenum eq "5") { if ($pages eq "5") { $all_article_text =~ m/^.{12600}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{12600}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 4 of $pages • Continue to page 6 of $pages >
";} } if ($pagenum eq "6") { if ($pages eq "6") { $all_article_text =~ m/^.{15700}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{15700}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 5 of $pages • Continue to page 7 of $pages >
";} } if ($pagenum eq "7") { if ($pages eq "7") { $all_article_text =~ m/^.{18800}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{18800}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 6 of $pages • Continue to page 8 of $pages >
";} } if ($pagenum eq "8") { if ($pages eq "8") { $all_article_text =~ m/^.{21900}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{21900}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 7 of $pages • Continue to page 9 of $pages >
";} } if ($pagenum eq "9") { if ($pages eq "9") { $all_article_text =~ m/^.{25000}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{25000}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} if ($pagenum < $pages) {$display_article_text = $display_article_text . "...< Back to page 8 of $pages • Continue to page 10 of $pages >
";} } if ($pagenum eq "10") { if ($pages eq "10") { $all_article_text =~ m/^.{28100}[^ ]*(.*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "..." . $text_start . $2; } else { $all_article_text =~ m/^.{28100}[^ ]*(.{3350})([^ ]*)/; $text_start = $1; $text_start =~ s/^[^<]{1,50}>//; $text_start =~ s/^[^>]{1,50}<\/[^>]*>//; $display_article_text = "
..." . $text_start . $2; } if ($pagenum == $pages) {$display_article_text = $display_article_text . "
";} } if ($display_article_text =~ /div id=\"author_info\"/) { unless ($display_article_text =~ /div id=\"author_info\".* end author_info /) { $display_article_text = $display_article_text . ""; } } if ($display_article_text =~ / end author_info /) { unless ($display_article_text =~ /div id=\"author_info\".* end author_info /) { $display_article_text = "