#*******************************************************************************
# Version 0.3
#
# Short description
# -----------------
# Importing data from Parts Search -> one HKP file using a template.
#
# Future implants / updates
# --------------------------
# * Better localtime format. Should be using english time format...
# * Constant strings insted of numbers.
#
# Version 0.1 by SVG
# ------------------
# First version released
#*******************************************************************************
#use ODBC connection
use Win32::ODBC;
package main;
use strict;
my $DbObject;
my @DataFromPS;
my $NumOf;
die "Usage PDBModifyPart.pl <Input HKP-Template file> <Output HKP file> <ODBC-Source Name> <Table Name>" unless ($#ARGV eq 3);
# Open the HKP file
die "Error opening input HKP file: $!" unless open(HKPFILE, "<$ARGV[0]");
# Open the HKP file
die "Error opening output HKP file: $!" unless open(OUTPUTFILE, ">$ARGV[1]");
# Open the LOG file
die "Error opening log file: $!" unless open(LOGFILE, ">ps2hkp.log");
print LOGFILE "Reading data from Parts Search...\n";
$DbObject = &ConnectDB();
&ReadDataFromPS($DbObject);
print LOGFILE "Writing new HKP-file with data from Parts Search...\n";
&WriteHKPFile();
print LOGFILE "Exporting data to Mentor PDB...\n";
&HKP2PDB($DataFromPS[0][4]);
exit(0);
sub HKP2PDB($)
{
my $PDB_Partition = $_[0];
my $symbol_name = $_[0];
#system("d:\\Mentor\\WG2002\\VBDC\\bin\\HKP2PartsDB.exe");
system("d:\\Mentor\\WG2002\\VBDC\\bin\\HKP2PartsDB -r -l \"p:\\NewEDA\\Mentorlib\\LogFiles\\HKP2PartsDB-$PDB_Partition.txt\" -p \"p:\\NewEDA\\MentorLib\\BeoLib.lmc\" -i \"HKP-output\\${symbol_name}_final.hkp\" -o \"P:\\NewEDA\\MentorLib\\PartsDBLibs\\$PDB_Partition.pdb\"");
}
#*******************************************************************************
# Function : GetLocalDate()
# Info :
#*******************************************************************************
sub GetLocalDate()
{
my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# Remove 1 from the variable. but only the first number. I don't why it shows 102 insted of 02
$year =~ s/1?//;
return "$mday/$mon/20$year $hour:$min";
}
#*******************************************************************************
# Function : WriteHKPFile()
# Info : Write the HKP file and replace what is specified in the
# HKP-Template.
#*******************************************************************************
sub WriteHKPFile()
{
my @ArrayContainingFile;
my $NumberOfElements;
my $Element;
my $TmpStr;
my $cnt;
my $DateAndTime;
$DateAndTime = &GetLocalDate();
@ArrayContainingFile = <HKPFILE>; # Copy the intire file to an array.
close(FILE);
for($Element = 0; $Element < 5; $Element++)
{
print OUTPUTFILE @ArrayContainingFile[$Element];
}
$NumberOfElements = @ArrayContainingFile;
for($cnt = 0; $cnt < $NumOf; $cnt++)
{
if($DataFromPS[$cnt][0] != "")
{
for($Element = 5; $Element < $NumberOfElements; $Element++)
{
$TmpStr = @ArrayContainingFile[$Element];
$TmpStr =~ s/\$PART_NUMBER\$/$DataFromPS[$cnt][0]/; #Replace Number
$TmpStr =~ s/\$PART_NAME\$/$DataFromPS[$cnt][2]/; #Replace Name
$TmpStr =~ s/\$PART_LABEL\$/$DataFromPS[$cnt][1]/; #Replace Label
$TmpStr =~ s/\$VALUE\$/$DataFromPS[$cnt][5]/; #Replace Value
$TmpStr =~ s/\$SYMBOL\$/$DataFromPS[$cnt][3]/; #Replace Symbol
#$TmpStr =~ s/\$MODIFIED\$/$DateAndTime/; #Replace Modified
if($TmpStr=~/\$MODIFIED\$/)
{
}
else
{
print OUTPUTFILE $TmpStr;
}
}
}
else
{
print LOGFILE "Warning! Empty row detected.\n";
}
}
print LOGFILE "Number of rows added: ", $NumOf, "\n";
}
#*******************************************************************************
# Function : ConnectDB()
# Info : Open a connection to Parts Search (SQL-Server: STDB01)
#*******************************************************************************
sub ConnectDB
{
my $dsn;
my $db;
#Name on ODBC connection
$dsn = "DSN=$ARGV[2];UID=XXXXX;PWD=XXXXX;";
#Connection to database
if (!($db = new Win32::ODBC($dsn)))
{
print LOGFILE "Error connecting to $dsn\n";
print LOGFILE "Error: " . Win32::ODBC::Error() . "\n";
exit;
}
else
{
return $db;
}
}
#*******************************************************************************
# Function : ReadDataFromPS($)
# Info :
#*******************************************************************************
sub ReadDataFromPS($)
{
my $found = 0;
my $x;
my $y;
my $NumOfTables;
my $db = $_[0];
my @tables;
my @data;
my $value;
$db->Sql("SELECT * FROM $ARGV[3]");
while ($db->FetchRow())
{
$NumOf++;
push @data, [$db->Data("part_no"),
$db->Data("label"),
$db->Data("part_name"),
$db->Data("symbol_name"),
$db->Data("PDB_Partition"), $db->Data("value")];
}
for($y = 0; $y < $NumOf; $y++)
{
push @DataFromPS, [$data[$y][0], # Save data into an array
$data[$y][1],
$data[$y][2],
$data[$y][3],
$data[$y][4],
$data[$y][5]];
}
}
