#!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); use DBI; use Net::DNS; $szPath = $ENV{PATH_TRANSLATED}; $szPath =~ s/pp_.*//; require $szPath . "pp_config.pl"; require $szPath . "pp_common.pl"; ################################################################################ # This software is Copyright Wild Systems P/L 2005. All rights reserved. # ################################################################################ sub ParseQuery { my ($szQuery) = @_; my ($szKey, $szValue, $szPair, @aTemp); @aTemp = split(/\&/, $szQuery); foreach $szPair (@aTemp) { ($szKey, $szValue) = split(/\=/, $szPair); if ($szKey eq "db") { $szDatabase = $szValue; } elsif ($szKey eq "name") { $szPattern = unescape($szValue); $szPattern =~ s/\+/ /g; $szPattern =~ s/'/''/g;# MySQL escape for single quotes } elsif ($szKey eq "gens") { $nGens = $szValue; } } } sub AddLayerId { my ($layerId) = @_; if ($layerId != -1 && !exists($hashDetails{$layerId})) { push(@anUnresolvedIDs, $layerId); } } sub PrintNode { my ($szNodeId) = $_[0]; my ($szNodeGen) = $_[1]; my ($szNodeDetails) = $hashDetails{$szNodeId}; my ($szRowspan) = $aPowers[$szNodeGen]; my ($nNodeHeight) = $nHeight * $szRowspan; my ($szColWidth) = $aWidths[$szNodeGen - 1]; if ($szRowspan == 1) { print "\n"; } else { print "\n"; } if ($szNodeId != -1) { my (@aNodeDetails) = split('~', $szNodeDetails); $szNazwaPsa = escape($aNodeDetails[3]); print ""; print "$aNodeDetails[7] " if ($aNodeDetails[7]);# PreTitle print "$aNodeDetails[3]" if ($aNodeDetails[3]);# Name print " $aNodeDetails[8]" if ($aNodeDetails[8]);# PostTitle print "
"; print " $aNodeDetails[6]" if ($aNodeDetails[10]);# DOB print "
" if ($szNodeGen ne $nGens);# new line if not last gen print " $aNodeDetails[9]" if ($aNodeDetails[9]);# RegNo print " $aNodeDetails[5]" if ($aNodeDetails[5]);# Color print "\n"; if ($aNodeDetails[15] and $szNodeGen <= $nPictureGens) { # Photo exists so print if in first two gens print ""; } print "\n"; if ($szNodeGen < $nGens) { PrintNode($aNodeDetails[1], $szNodeGen + 1); print "\n\n"; PrintNode($aNodeDetails[2], $szNodeGen + 1); } } else { if ($szNodeGen < $nGens) { PrintNode(-1, $szNodeGen + 1); print "\n\n"; PrintNode(-1, $szNodeGen + 1); } } } # main $db_handle = DBI->connect("dbi:mysql:database=$DatabaseName;host=$DatabaseHost;user=$DatabaseAccount;password=$DatabasePassword") or print "Couldn't connect to database: $DBI::errstr\n" and exit; $nGens = 4; $nId = 11491; $nHeight = 18; $szDatabase = "pedigree"; $szQuery = $ENV{"QUERY_STRING"}; &ParseQuery ($szQuery); $sql = "SELECT pedigreeid FROM $szDatabase where name='$szPattern'";# $statement = $db_handle->prepare($sql) or print "Couldn't prepare query '$sql': $DBI::errstr\n" and exit; $statement->execute() or print "Couldn't execute query '$sql': $DBI::errstr\n" and exit; @aRow = $statement->fetchrow_array; print "Content-type:text/html\n\n"; print ("\n\n\n\n\n"); print ("\n"); print ("\n"); print ("\n"); # Notice to Robots & Spiders print ("\n"); my $czasutworzenia = gmtime 1182100000; my $czasmodyfikacji = localtime time - 50000; print ("\n"); # Ostatnia modyfikacja print ("\n"); # Data utworzenia print ("\n"); # Do not cache pages print ("\n"); # Expire pages immediately print ("\n"); # Hide Image Toolbar print ("\n"); print ("\n"); if ($nGens < 3 || $nGens > 10) { print "Invalid number of generations." and exit; } if (@aRow) { $nId = $aRow[0]; } else { print "Record for '$szPattern' not found." and exit; } # Initialise widths - idea is each generation from left is # width W+G.A.W where G is generation, and G=1 for left most generation. # This means total width is N.W + W.A.N.(N+1)/2 = 100. # Plugging in N and A then W = 100/(N + (N.N + N).A/2) # Select an A=0.05 then $A = 0.2; $W = 100.0/($nGens + $A*($nGens*$nGens + $nGens)/2.0); $sumWidth = 0.0; for ($i = 0;$i < $nGens;$i++) { $width = int($W*(($i + 1)*$A + 1)); if ($i == $nGens - 1) { push(@aWidths, 100 - $sumWidth); } else { push(@aWidths, $width); $sumWidth += $width; } } # Initialise powers $pow = 1; for ($i = 0;$i <= $nGens;$i++) { $aPowers[$nGens - $i] = $pow; $pow = $pow * 2; } # Build up query string - include user defined fields # $szExtraFields = get_extra_fields($db_handle, $szDatabase); # $szUserFields = "user1=COI~user2=Country of Origin"; # @aExtraFields = split('~', $szUserFields); # 0 1 2 3 4 5 6 7 8 9 $szBasicQuery = "SELECT pedigreeid, sireid, damid, name, sex, color, DATE_FORMAT(dob, '$szDateFormat'), pretitle, posttitle, regno, if(dob='0000-00-00', 0, 1), COI, Video, Cert, DNA, photo FROM $szDatabase where pedigreeid in ("; # Build map of ID to details string in layers starting at gen 1 #@anUnresolvedIDs; push(@anUnresolvedIDs, $nId); for ($i = 0;$i <= $nGens;$i++) { # build query for details = id, sireId, damId, etc for every id in @anUnresolvedIDs # and if sireId and damId are valid then add to @anUnresolvedIDs $sql = $szBasicQuery; $nIdList = join(",", @anUnresolvedIDs); last if (!$nIdList); $sql = $sql . $nIdList . ")"; $statement = $db_handle->prepare($sql) or print "Couldn't prepare query '$sql': $DBI::errstr\n" and exit; $statement->execute() or print "Couldn't execute query '$sql': $DBI::errstr\n" and exit; @anUnresolvedIDs = (); while (@row=$statement->fetchrow_array) { $temp = join("~", @row); $hashDetails{$row[0]} = $temp; #map id to its details # add sire and dam to next layer AddLayerId($row[1]); AddLayerId($row[2]); } } # map is now constructed, next step is build tree # the tree must be followed to the last gen even if there is no ancestor $szDetails = $hashDetails{$nId}; @details = split('~', $szDetails); $szExtraFields = get_extra_fields($db_handle, $szDatabase); $szDetails = $hashDetails{$nId}; @details = split('~', $szDetails); $szHtmlName = escape($details[3]); @aExtraFields = split(',', $szExtraFields); shift(@aExtraFields); # remove initial , print (""); print "$details[3]"; print (" : Baza rodowodow wilczarzy irlandzkich - Republika Marzen, Irish Wolfhound Pedigree database"); print ("\n"); print"\n"; print"\n"; print "\n\n"; print "\n\n"; $szSire = $details[1]; $szDam = $details[2]; PrintNode($szSire, 1); print "\n"; PrintNode($szDam, 1); print "\n

"; print "" if ($details[15]); print" " if ($details[12]); print "" if ($details[13]); print "" if ($details[14]); print "$details[7] " if ($details[7]);# PreTitle print "$details[3]"; print " $details[8]" if ($details[8]);# PostTitle print "
\n"; print "($details[4]) " if ($details[4]);# Sex print "$details[6], " if ($details[6] ne '0000-00-00'); print "$details[9], " if ($details[9]); print "COI=$details[11] 10 gen., " if ($details[11]); print "

"; print "

"; print "Web scripts Copyright © 2005 Wild Systems. All Rights Reserved. Visit www.pedigreepoint.com.
\n"; print "Use of web harvester robots or any other means of copying the contents of this page, in whole or in part, for any commercial purpose is expressly prohibited."; print "Copyright © 2008-2018 Republika Marzen.
Kopiowanie zabronione. Wszystkie prawa zastrzezone na podstawie ustawy o ochronie baz danych Dz.U. z 2001 r. Nr 128, poz. 1402.
www.republika-marzen.pl
rodowody.republika-marzen.pl
\n"; print "
\n

"; print "\n\n"; $db_handle->disconnect(); $nReturn = 1;