#!/usr/bin/perl -Tw use strict; use CGI::Carp qw(fatalsToBrowser); use CGI; my $query = new CGI; if(!$query->param) { print $query->header; &print_head; &print_prompt($query); &print_tail; } else { &do_work($query); } sub print_head { print < EAN barcode generator

EAN barcode generator.

END } sub print_prompt { my $query = shift; print $query->startform; print "Enter EAN eg. 5901234123457

"; print $query->textfield(-name => 'ean', -size => '13'); print "

"; print $query->submit('Action','Convert'); print $query->endform; print "

\n"; } sub do_work { my $query = shift; my $ean = $query->param('ean'); $ean =~ s/\s+//g; ($ean) = ($ean =~ m/(\d+)/); print $query->header(-type => "application/postscript", -attachment => "$ean.eps"); open (BANNER, "|-", "/usr/bin/barcode", "-E", "-e", "ean") or die; print BANNER "$ean\n"; close (BANNER); } sub print_tail { print < END }