make destination device optional in ~DG

Windows driver doesn't seem to use destination device as opposed to cups

diff --git a/ZPL2pbm.pl b/ZPL2pbm.pl
index 89eead4..e87bc97 100755 (executable)
--- a/ZPL2pbm.pl
+++ b/ZPL2pbm.pl
@@ -3,13 +3,15 @@ use warnings;
 use strict;
 use autodie;
 
 use strict;
 use autodie;
 

-my $file = shift @ARGV || die "usage: $0 dump.zpl";
+# convert Zebra label printer ZPL to pbm image
+
+my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm";

 
 open(my $in, '<', $file);
 
 while(<$in>) {
        chomp;
 
 open(my $in, '<', $file);
 
 while(<$in>) {
        chomp;

-       if ( /~DG(\w):(.+)/ ) {
+       if ( /~DG(\w+:)?(.+)/ ) {

                my ( $name, $t,$w ) = split(/,/,$2,4);
 
                warn "# $_ => [$name] t=$t w=$w\n";
                my ( $name, $t,$w ) = split(/,/,$2,4);
 
                warn "# $_ => [$name] t=$t w=$w\n";