From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RSE / nlp-3.0.1 / src / modInfo.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

              
##
##  modInfo.pl -- Printer Information Support
##  Copyright (c) Ralf S. Engelschall, All Rights Reserved.
##
package Info;
sub info {
        local(*option) = @_;
    $printer   = $option{'printer'};
    $found = 0;
        foreach $p (keys(%Cap::CapAlias)) {
                $found = 1 if ($p eq $printer);
        }
        if ($found) {
        $aliases   = $Cap::CapAlias{$printer};
        $aliases   =~ s/\|/, /g;
        $type      = $Cap::CapEntry{$printer, 'type'};
        $mode      = $Cap::CapEntry{$printer, 'mode'};
        $dpi       = $Cap::CapEntry{$printer, 'dpi'};
        $duplex    = $Cap::CapEntry{$printer, 'duplex'};
        $location  = $Cap::CapEntry{$printer, 'location'};
                print "\n";
        print " Name         : $printer\n";
        print " Aliases      : $aliases\n";
        print " Model Type   : $type\n";
        print " Print Mode   : $mode\n";
        print " DPI          : $dpi\n";
        print " Duplex       : $duplex\n";
        print " Room         : $location\n";
                print "\n";
        }
        else {
                &Util::Warn("Sorry, printer '$printer' not found in printer.cap");
        }
}
sub infoall {
        local(*option) = @_;
    print "\n";
        printf(" Printer Model Type               Print Mode      DPI Duplex Room  \n");
        printf(" ------- ------------------------ -------------- ---- ------ ----- \n");
    foreach $printer (sort(keys(%Cap::CapAlias))) {
        $aliases    = $Cap::CapAlias{$printer};
                $aliases    =~ s/\|/, /g;
                $type       = $Cap::CapEntry{$printer, 'type'};
                $mode       = $Cap::CapEntry{$printer, 'mode'};
                $dpi        = $Cap::CapEntry{$printer, 'dpi'};
                $duplex     = $Cap::CapEntry{$printer, 'duplex'};
                $location   = $Cap::CapEntry{$printer, 'location'};
                $location   =~ s|^([^,]+)[ \t]*,.*|$1|;
                printf(" %-7s %-24s %-14s %4s %-6s %-5s\n",
                       $printer, $type, $mode, $dpi, $duplex, $location );
        }
    print "\n";
}
1;
##EOF##