#!/usr/local/bin/perl -w

###############################################################################
#                                                                             #
#     MEDSUM PROGRAM 2 :  Quick Call - flexible return on query basic data    #
#                                                                             #
###############################################################################

use Getopt::Long;

my ($term, $page);

GetOptions ("query:s" => \$term, "page=i" => \$page);

$term =~ s/~q~q~/\'/g;

if (!($page)) {
    $page = 0;
    }

###############################################################################

use LWP::Simple;

$base = "http://www.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi?".
        "db=Pubmed".     "&".
        "retmax=1".      "&".
        "term=";

$signature = '&tool=medsum&email=mike_galsworthy@yahoo.co.uk';

$link =  $base . $term . $signature;

$esearch = get($base . $term . $signature);

my $errors    = 'nothing';

$esearch =~
m|<QueryTranslation>(.+)</QueryTranslation>|s;
$QueryTranslation = $1;

$esearch =~
m|<Count>(\d+)</Count>|s;
my $Count    = $1;


#if ($Count==0) {
#                $QueryTranslation = "Sorry, nothing found. (See notes below)";
#                }

#if ($QueryTranslation=="0") {
#                $QueryTranslation = "Sorry, nothing found. (See notes below)";
#                }



################################## Programming part for xml info return ##############################

$esearch =~
m|(.+)|s;
my $literal = $1;

$literal =~ s/\</&lt;/g;
$literal =~ s/\>/&gt;/g;

$esearch =~
m|<TranslationStack>(.+)</TranslationStack>|s;
my $translations = $1;

$translations =~ s/<Explode>.<\/Explode>//g;
$translations =~ s/<OP>.*?<\/OP>//g;
$translations =~ s/<Field>.*?<\/Field>//g;
$translations =~ s/<Count>/Count: /g;

#######################################################################################################

$esearch =~ m|<ErrorList>(.+)</ErrorList>|s;
$errors    = $1;



print "Your query is: $term <br>";
print "And it found $Count results <br> ";
print "Note that Pubmed translates your query into: $QueryTranslation <br><br> ";

if ($Count==0) {
                print "Notes: NOTHING FOUND. <br> PubMed returned nothing in association with that query. If it is because those words were not anywhere ";
                print "in the database, then I have flagged that below. <br>";
                print "Otherwise, if you have put in a long phrase, that could be the problem. Try just a key word (or two) ";
                print "and build up your query from there. <br><br>";
                }

if ($errors)   {
                print "Notes: SPECIFIC WORDS NOT FOUND. <br> The following words from your search are nowhere in the PubMed database: $errors <br><br> ";
                }

if ($page==1) {
    print " <hr> <b> &lt;program&gt;QUICKCALL </b> <br> <br> Commands: full xml page return. <br> <hr> <br> <pre> $literal </pre> <br>";
    }

if ($page==2) {
    print " <hr> <b> &lt;program&gt;QUICKCALL </b> <br> <br> Commands: translation stack return. <br> <hr> <br> <pre> $translations </pre> <br>";
    }
    
    
open FILE, ">>log.txt" or die $!;
print FILE "QC - $term  ($Count) \r\n";
close FILE;