in reply to Re^2: Portable way to extract string from a binary
in thread Portable way to extract string from a binary

Lol.. yup, I know, I'm opening a case with Sybase on it. Will let you know what I find.

This is what I asked in the case:

basically I'm looking for something like so:

$ my_app --openclient-version
----
This application is using OpenClient 12.5.1 ebf 9999 for Linux 64bit. This application was BUILT using OpenClient 12.5.1 ebf 9980.
---

The "built" line would be hard coded by the application during the compilation process - I would handle this...

The "using" would be read from some method in the openclient library (ctlib or dblib) that my application is using *now*.

I'm looking for a way to determine the "using" openclient version without performing a system call to run the ldd or strings commands.

A little more than what we are looking for but, I think it would be a better solution

Jason L. Froebe

No one has seen what you have seen, and until that happens, we're all going to think that you're nuts. - Jack O'Neil, Stargate SG-1

Edit by tye, remove PRE tags around long lines

  • Comment on Re^3: Portable way to extract string from a binary

Replies are listed 'Best First'.
Re^4: Portable way to extract string from a binary
by mpeppler (Vicar) on Jul 14, 2004 at 15:32 UTC
    Well - if you've got an app that is compiled with client lib or dblib it's pretty simple to get the version - ct_config(CS_VER_STRING) for ctlib, and dbversion() in dblib, and these will return the version string from the current library (i.e. the one dynamically linked in).

    Michael

[reply]

      hits head to desk

      I was looking at CS_VERSION_KEY.. ugh.. need caffeine.

      So, why not just do write a small c program that just spits out the version number, capture the output? I'm thinking because if the LD_LIBRARY_PATH (or equiv) is different than ${SYBASE}/${SYBASE_OCS}/lib then it might create havoc... good thing to check if the two would match up... hmmm

      No one has seen what you have seen, and until that happens, we're all going to think that you're nuts. - Jack O'Neil, Stargate SG-1

[reply]
        It's feasible, but it's a lot more work than this: 
        sub getLibVersion {
    my $dir = shift;

    my $lib = "$dir/lib";
    opendir(DIR, $lib) || die "Can't opendir($lib): $!";
    my @files = grep(/lib(syb)?ct\./, readdir(DIR));
    closedir(DIR);
    my $file;
    foreach (@files) {
    $file = "$lib/$_";
    last if -e $file;
    }

    open(IN, $file) || die "Can't open $file: $!";
    binmode(IN);
    my $version;
    while(<IN>) {
      if(/Sybase Client-Library\/([^\/]+)\//) {
    $version = $1;
    last;
      }
    }
    close(IN);
    if(!$version) {
      print "Unknown Client Library version - assuming FreeTDS.\n";
    } else {
      print "Sybase OpenClient $version found.\n";
    }

    return $version;
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom