samba - Jul 2002 - Printer Migration hackery

Hokay.

It appears that enumdrivers / getdriver in rpcclient is broken, and won't
be fixed soon. I'd fix it meself, but hey, I'm too busy clearing
skyscrapers in a single bound and moving faster than a speeding bullet. Or
maybe I looked at the cvs once and got REALLY scared.

Unfortunately, I can't wait, so I've come up with a nasty hack to help
us
with querying samba for the details of installed printer drivers.

It's filthy nasty perl, not really fit for human consumption, but it
works. For now at least. If the format of ntdrivers.tdb changes, or if
samba stops using it, this won't work anymore.

This is a first hack. The LDIF style output is not right. But the info is
there. Hopefully it will be of some use to some people.

One question for the samba team though:

When I run 'strings' against ntdrivers.tdb, I get pretty sensible
output.
One thing confuses me though. What significance does the entry 'PJL
Language Monitor' Hold? Does it precede the one file which implements the
monitor? Or all the files? Or what?

Martin Whinnery
Assistant Network Manager
South Birmingham College

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

$USER = "myuser";
$PASSWD = hispassword";
$DRIVERTDBFILE = "/the/path/to/ntdrivers.tdb";
$PRINTDOLLARPATH = "/the/print$/path";
#Where in LDAP you keep your printers
$LDAPPRINTERBASE = "ou=hosts,dc=example,dc=com";
#Where in LDAP you keep your printer drivers
$LDAPDRIVERBASE =
"applicationentity=printerdrivers,o=microsoft.com,ou=software,dc=example,dc=com";

$dummy = 0;
$myaddr = qx/nmblookup -A 127.0.0.1 | grep '<20>'/;
$myaddr =~ s/[\t ]+/ /g;
$myaddr =~ s/^ //;
( $myname, $dummy ) = split(/ /,$myaddr);

open RPCCLIENT, "rpcclient $myname -U $USER%$PASSWD -c
'enumprinters' |";
while (<RPCCLIENT>) {
    $line = $_;
    chop $line;
    if ( $line =~ /name:\[/ ) {
	$line =~ s/.+\\\\.+\\//;
	$line =~ s/]//;
    $printers{$line}{"name"}=$line;
    }    
}
close RPCCLIENT;

foreach $printer ( sort keys %printers ) {
    open RPCCLIENT, "rpcclient $myname -U $USER%$PASSWD -c 'getprinter
$printer 2' | grep ':\\[' |";
while (<RPCCLIENT>) {
    $line = $_;
    chop $line;
    $line =~ s/^\t//;
    ( $attrib, $value ) = split(/:/,$line);
    $value =~ s/[\[\]]//g;
    $printers{$printer}{$attrib} = $value;
}    
close RPCCLIENT;
}

$/ = "";
open RPCCLIENT, "rpcclient $myname -U $USER%$PASSWD -c 'enumdrivers
2' | egrep ':\|^\$' |";
while (<RPCCLIENT>) {
    $line = $_;
$line =~ s/Printer Driver Info 2:\n//;
#$line =~ s/[\t ] +//g;
$line =~ s/[\[\]]//g;
$line =~ s/^[^:]+: |(\n)[^:]+: /$1/g;
$line =~ s/\\/\//g;
$line =~ s/$myname//gi;
$line =~ s/print\$/$PRINTDOLLARPATH/g;
$line =~ s/\/+/\//g;
( $version, $drivername, $architecture, $driverpath,
  $datafile, $configfile ) = split(/\n/, $line);
$drivers{$drivername}{"version"} = $version;
$drivers{$drivername}{"architecture"} = $architecture;
$drivers{$drivername}{"driverpath"} = $driverpath;
$drivers{$drivername}{"datafile"} = $datafile;
$drivers{$drivername}{"configfile"} = $configfile;
}    
close RPCCLIENT;

$/ = "\n";
open(DRIVERTDB, "strings $DRIVERTDBFILE | grep -v 'BBBBBBBB'
|");
$dummy = <DRIVERTDB>;
$dummy = <DRIVERTDB>;
$dummy = <DRIVERTDB>;
while (<DRIVERTDB>) {
    $line = $_;
if ($line =~ /^&/) {
    $drivername = <DRIVERTDB>;
    $arch = <DRIVERTDB>;
    chop $drivername;
    chop $arch;
} else {
    if ($line =~ /\\print\$\\/) {
	chop $line;
	$line =~ s/\\/\//g;
	$line =~ s/print\$/$PRINTDOLLARPATH/g;
	$line =~ s/\/+/\//g;
	push @{$drivers{$drivername}{"FILES"}}, ($line);
    }
}
}

close DRIVERTDB;

foreach $printer ( sort keys %printers ) {
    print "dn: cn=$printer,$LDAPPRINTERBASE\n";
print "changetype: modify\n";
print "replace: drivername\n";
print "drivername: " . $printers{$printer}{"drivername"} .
"\n\n";
}

foreach $driver ( sort keys %drivers ) {
    print "dn: cn=$driver,$LDAPDRIVERBASE\n";
print "architecture: " . $drivers{$driver}{"architecture"} .
"\n";
print "driverfile: " . $drivers{$driver}{"driverpath"} .
"\n";
print "configfile: " . $drivers{$driver}{"configfile"} .
"\n";
print "datafile: " . $drivers{$driver}{"datafile"} .
"\n";
foreach $file (@{$drivers{$driver}{"FILES"}}) {
    print "file: " . $file . "\n";
}
print "\n";
}

On Mon, 22 Jul 2002, Martin Whinnery <martin.whinnery@sbirmc.ac.uk> wrote:
> Hokay.
> 
> It appears that enumdrivers / getdriver in rpcclient is broken, and
won't
> be fixed soon. I'd fix it meself, but hey, I'm too busy clearing
> skyscrapers in a single bound and moving faster than a speeding bullet. Or
> maybe I looked at the cvs once and got REALLY scared.
Actually, I'm planning on working on this in HEAD soon :-)
> When I run 'strings' against ntdrivers.tdb, I get pretty sensible
> output. One thing confuses me though. What significance does the entry
> 'PJL Language Monitor' Hold? Does it precede the one file which
> implements the monitor? Or all the files? Or what?
he language monitor is just a string we store.  We don't do anything
with it and neither does the client IIRC.







cheers, jerry
 ---------------------------------------------------------------------
 Hewlett-Packard                                     http://www.hp.com
 SAMBA Team                                       http://www.samba.org
 --                                            http://www.plainjoe.org
 "Sam's Teach Yourself Samba in 24 Hours" 2ed.      ISBN
0-672-32269-2
 --"I never saved anything for the swim back." Ethan Hawk in Gattaca--