view release on metacpan or  search on metacpan

examples/TypeA/OpenEAFDSS-TypeA-Filter.pl  view on Meta::CPAN

	my($dbh);
	if ( -e $SQLITE) {
		$dbh = DBI->connect("dbi:SQLite:dbname=$SQLITE","","");
	} else {
		printf(STDERR "NOTICE: [OpenEAFDSS] Creating sqlite file [%s]\n", $SQLITE);
		$dbh = DBI->connect("dbi:SQLite:dbname=$SQLITE","","");
		if ($dbh)  {
			$dbh->do("CREATE TABLE invoices" . 
				" (id INTEGER PRIMARY KEY, tm,  job_id, user, job_name, copies, options, signature, text);" );
		}
		chmod(0774, $SQLITE);
	}
	unless ($dbh)  {
		printf(STDERR "ERROR: [OpenEAFDSS] Cannot connect to sqlite db [%s]! Exiting\n", $SQLITE);
		exit 1;
	}

	my($reprint, $signature);
	if ( $options =~ m/eafddssreprint/ ) {
		$options =~ /eafddssreprint=(.*) /;
		$reprint = $1;