view release on metacpan or  search on metacpan

doc/html2ps  view on Meta::CPAN

      last S;
    }
  }
  &dbg("Error opening resource file: $rc\n") if($opt_f && !$found);
}
chdir $cwd;
$user=2;
&getconf($opt_S) if($opt_S);
print DBG "*****\n" if($opt_d);

require Image::Magick if($package{'PerlMagick'});
$geturl=$package{'geturl'};
$ulanch="f";
$f=72/2.54;
$giftopm="giftopnm" if($package{'netpbm'});
$giftopm="giftoppm" if($package{'pbmplus'});

for(keys %option){eval "\$opt_$_='$option{$_}' if(!defined \$opt_$_)"};
($scr=POSIX::tmpnam())=~/\w+$/;
$tempdir=$`;
die $usage if $opt_h;

doc/html2ps  view on Meta::CPAN

    $ys=$4-$2;
    $ps="save\n0 0 M\nIS IS scale\n/showpage {}D\n-$1 -$2 translate\n";
    for $i (split(/\n/,$pic)) {
      $ps.=$i."\n" if($i && $i!~/^%/);
    }
    $ps.="restore";
  } elsif($type=~/.xbm$/i || $pic=~/^#define/) {
    &xbmtops;
  } elsif($package{'ImageMagick'}) {
    if($package{'PerlMagick'}) {
      $imobj=Image::Magick->new;
      $mess=$imobj->Read($scr);
      if($mess) {
        &dbg("$mess\n");
      } else {
        $mess=$imobj->Write("$scr\.$pg1");
        &dbg("$mess\n") if($mess);
      }
      undef $imobj;
    } else {
#      &run("convert $scr $pg1:-");