← Back to branch summary

~ubuntu-branches/ubuntu/raring/hplip/raring

« back to all changes in this revision

Viewing changes to prnt/filters/hpcac

  • Committer: Package Import Robot
  • Author(s): Mark Purcell
  • Date: 2012-10-06 15:03:44 UTC
  • mfrom: (1.6.1) (20.1.16 quantal)
  • Revision ID: package-import@ubuntu.com-20121006150344-2p3xz26br0t3hu2q
Tags: 3.12.10-1
http://bugs.debian.org/683033
http://bugs.debian.org/687129
* New upstream release
  - Fixes "Network scanning fails (Closes: #683033)
* quilt refresh hplip-syslog-fix-debug-messages-to-error.dpatch
* Fix "error in clean build env" updated debian/rules (Closes: #687129)

Show diffs side-by-side

added added

removed removed

Lines of Context:
prnt/filters/hpcac
242
242
###################################################################
243
243
sub GetSystem
244
244
{
245
 
    my $system_name = hostname;
 
245
    my $system_name = `hostname -s`;
 
246
    chomp($system_name);
246
247
    if( !$system_name ) {
247
248
        $system_name = "unknown-system_name";
248
249
    }
259
260
###################################################################
260
261
sub GetDomain
261
262
{
262
 
    my $domain = hostname;
 
263
    my $domain = `hostname -d`;
 
264
    chomp($domain);
263
265
    if( !$domain ) {
264
266
        $domain = "unknown-domain";
265
267
    }
416
418
        close PSFILE;
417
419
}
418
420
 
 
421
 
 
422
sub processfile_PJL
 
423
{
 
424
        my $fn = shift;
 
425
        open (PSFILE, "<$fn") or abort_exit( "Cannot open '$fn': $!");
 
426
        my( $jobname, $user, $system, $domain, $date, $uuid, $app, $appexe, $dept ) = GetHPAccountingInfo();
 
427
        emit_line( "\x1B%-12345X\@PJL JOBNAME=job-$jobname\n" );
 
428
        emit_line( "\@PJL SET USERNAME=\"$user\"\n" );
 
429
        emit_line( "\@PJL SET JOBNAME=\"$arg_title\"\n" );
 
430
        #emit_line( "\@PJL SET COPIES=$arg_copies\n" );
 
431
        emit_line( "\@PJL SET JOBATTR=\"JobAcct1=$user\"\n" ); #Jobattr1 (User Name)
 
432
        emit_line( "\@PJL SET JOBATTR=\"JobAcct2=$system\"\n" ); #Jobattr2 (Computer Name)
 
433
        emit_line( "\@PJL SET JOBATTR=\"JobAcct3=$domain\"\n" ); #Jobattr3 (Domain Name)
 
434
        emit_line( "\@PJL SET JOBATTR=\"JobAcct4=$date\"\n" ); #Jobattr4 (Date in YYYYMMDDhhmmss format)
 
435
        emit_line( "\@PJL SET JOBATTR=\"JobAcct5=$uuid\"\n" ); #Jobattr5 (UUID)
 
436
        emit_line( "\@PJL SET JOBATTR=\"JobAcct6=$app\"\n" ); #Jobattr6 (Application Name)
 
437
        emit_line( "\@PJL SET JOBATTR=\"JobAcct7=$appexe\"\n" ); #Jobattr7 (User friendly App Name)
 
438
        emit_line( "\@PJL SET JOBATTR=\"JobAcct8=$dept\"\n" ); #Jobattr8 (Department Name)
 
439
        emit_line( "\@PJL SET JOBATTR=\"JobAcct9=\"\n" ); #Jobattr9 (Department Access Code)
 
440
        emit_line( "\@PJL ENTER LANGUAGE=POSTSCRIPT\x0A\n" );
 
441
 
 
442
        while (<PSFILE>)
 
443
        {
 
444
                emit_line( $_ );
 
445
        }
 
446
        emit_line( "\x1B%-12345X\@PJL EOJ\x0A\x1B%-12345X\n" );
 
447
        close PSFILE;
 
448
}
 
449
 
 
450
 
419
451
###################################################################
420
452
# Main
421
453
###################################################################
443
475
 
444
476
print_debug( "Processing file");
445
477
open_capture();
446
 
processfile($procfile);
 
478
processfile_PJL($procfile);
447
479
close_capture();
448
480
 
449
481
unlink($procfile) or print STDERR "ERROR: $progname - Couldn't remove '$procfile': $!\n";