PERL   7

verse.cgi

Guest on 29th August 2021 06:35:13 AM

  1. #!/usr/bin/perl -w
  2.  
  3. use Tie::File;
  4. use CGI;
  5. use Fcntl 'O_RDONLY';
  6. require "info.pl";
  7.  
  8. $current = "Book.txt";
  9. $query = new CGI;
  10. $verse = $query->param("verse");
  11. $book = $query->param("book");
  12. $word = $query->param("word");
  13. $next = $query->param("next");
  14. $Andor = $query->param("Andor");
  15. $boolword = $query->param("boolword");
  16. $hit = 0;
  17.  
  18. print "status:200 OK\ncontent-type: text/html\n\n";
  19.  
  20. tie @array,'Tie::File', $current, mode => 'O_RDONLY' or die "Unable to tie file in showtext\n";
  21.  
  22. ($a,$b) = split ':', $filePos{$book};
  23. for $i ($a..$b){
  24.         $line = $array[$i];
  25.         $line = $line."\n";
  26.         $copyLine = $line;
  27.         $final = $array[$i];
  28.         $final = $final."\n";
  29. if($word){
  30.         if($line =~ m/^$word\W|\W$word\W/ig){
  31.                 $BoldWord = "<b> ".$word." </b>";
  32.                 $final =~ s/\W$word\W/$BoldWord/ig;
  33.                 $hit++;
  34.         }
  35. }
  36. else{
  37.         if($Andor == 1){
  38.                 if($line =~ m/^$boolword\W|\W$boolword\W/ig){
  39.                         if($copyLine =~ m/^$next\W|\W$next\W/ig){
  40.                                 $BoldWord = "<b> ".$boolword." </b>";
  41.                                 $final =~ s/\W$boolword\W/$BoldWord/ig;
  42.                                 $BoldWord = "<b> ".$next." </b>";
  43.                                 $final =~ s/\W$next\W/$BoldWord/ig;
  44.                                 $hit++;
  45.                         }              
  46.                 }
  47.         }#Andor 1
  48.         if($Andor == 2){
  49.                 if($line =~ m/^$boolword\W|\W$boolword\W/ig){
  50.                         $BoldWord = "<b> ".$boolword." </b>";
  51.                         $final =~ s/\W$boolword\W/$BoldWord/ig;
  52.                         $hit++;
  53.                 }
  54.                 if($copyLine =~ m/^$next\W|\W$next\W/ig){
  55.                         $BoldWord = "<b> ".$next." </b>";
  56.                         $final =~ s/\W$next\W/$BoldWord/ig;
  57.                         $hit++;
  58.                 }
  59.         }
  60.         if($Andor == 3){
  61.                 if($line =~ m/^$boolword\W|\W$boolword\W/ig){
  62.                         if($copyLine =~ m/^$next\W|\W$next\W/ig){
  63.                         }
  64.                         else{
  65.                                 $BoldWord = "<b> ".$boolword." </b>";
  66.                                 $final =~ s/\W$boolword\W/$BoldWord/ig;
  67.                                 $hit++;
  68.                         }
  69.                 }      
  70.         }
  71. }#end else
  72.         if($hit > 0){
  73.                 print "<br><a href=\"showtext.cgi?line=$i&book=$book\">$final</a></br>\n";
  74.         }
  75. $hit = 0;
  76. }

Raw Paste


Login or Register to edit or fork this paste. It's free.