HOWTO build a ps2dxf-Printer

done by using pstoedit, perl and cups

• print by selecting our new dxf printer
• decide via the GTK-2.0 file dialog where to store the dxf result

table of contents

1. dependencies
2. cups-config
3. the printer
4. run
5. use
6. source

1. dependencies

• Perl (include: IO::Socket::INET, IPC::Open2, Gtk2),
  on Debian you'll get this with:
  aptitude install perl libio-socket-inet6-perl libipc-run-perl libgtk2-perl
• cups
• pstoedit

2. cups-config

<Printer dxf-file>
   Info dxf-file
   DeviceURI socket://localhost:12000
   State Idle
   StateTime 1228779022
   Accepting Yes
   Shared Yes
   JobSheets none none
   QuotaPeriod 0
   PageLimit 0
   KLimit 0
   OpPolicy default
   ErrorPolicy stop-printer
</Printer>

3. the printer

#!/usr/bin/perl -w -T
use IO::Socket::INET;
use IPC::Open2;
use Gtk2 -init;
use strict;

# copyright Wulf Coulmann <scripts at gpl.coulmann dot de>
# GNU GPL
# http://www.gnu.org/licenses/gpl.html
# Download me here: http://gpl.coulmann.de/cnc/dxf-printer.html



$ENV{'PATH'}= '';

# --- config ------

my $myport = 12000;
my $scale = 25.40009;
my $convert = "/usr/bin/pstoedit -xscale $scale -yscale $scale -f dxf_s ";

chdir '~/';

# --- go for it ---

my $pserve=IO::Socket::INET->new(LocalPort => $myport,Type=>SOCK_STREAM,Reuse=>1,Listen=>1) or die "can't do that $!\n";

while (my $pjob=$pserve->accept()) {

  my $file;
  my $d = Gtk2::FileChooserDialog->new ("file to store dxf", undef, "save",
                                        'gtk-cancel' => 'cancel',
                                        'gtk-save' => 'ok',
                                        );
  $d->set_default_response ('ok');

  if ('ok' eq $d->run ()) {
         $file = $d->get_filename();
  }
  $d->destroy;
  #sleep 2;
  next unless length($file) > 0;


  $file =~ m/^(.*\/).*?$/;
  my $dir = $1;
  print "$dir\n";
  chdir $dir;

  print "now we print \n";
  open FILTER, "| $convert - $file";
  my $input;
  while (<$pjob>) {
    $input .= "$_";
  }
  print FILTER $input;


  close FILTER ;

  close $pjob;
  print "done\n";
}

4. run

5. use

5. source