#!/usr/common/bin/perl -w
# Parameter definitions for Net-Print
############################################################
# 04/02/2001 rcc2 - Add file size limit for smbd
# 02/04/2000 rcc2 - Regroove for Informix
# 12/07/1999 rcc2 - Additional variables
# 08/01/1999 rcc2 - Convert NPparams to Perl 5 module npparams.pm
############################################################

package npparams;

# "use diagnostics" should be commented out for production environment
#use diagnostics;
use strict;

use vars qw{ @ISA @EXPORT };
require Exporter;
@ISA = qw{ Exporter };
@EXPORT = qw{
   %bannervals
   %statusvals
   %ftypevals
   $HOST
   $SRVKEYHOST
   $HOSTNAME
   $ETCDIR
   $LIBDIR
   $SPOOLDIR
   $LOGDIR
   $SAMBADIR
   $ERRORLOG
   $SUDOPATH
   $NPROOTUTIL
   $PRTCFG
   $ACCTSERVERID
   $PDISPSERVERID
   $CUSSPCLIENT
   $PERMITCLIENT
   $FCARCMD
   $EZPRINTID
   $BURSARLOOKUP
   $EZPRINTAGENTID
   $PERMITSERVERID
   $PERMITHOST
   $SIDECARPORT
   $PERMITSVR
   $MGRPERMIT
   $CRDPERMIT
   $RFDPERMIT
   $OPRPERMIT
   $EZPPERMIT
   $MGRBIT
   $CRDBIT
   $CSHBIT
   $RFDBIT
   $OPRBIT
   $SUBBIT
   $MGRLEVEL
   $CRDLEVEL
   $CSHLEVEL
   $RFDLEVEL
   $OPRLEVEL
   $SUBLEVEL
   $AUTHORIZATION
   $NOUSER
   $CIT_URL
   $NPADMIN
   $REFUND_ADMIN
   $SAMBA_MAX_FILESIZE
   };

# exported
use vars qw{
   %bannervals
   %statusvals
   %ftypevals
   $HOST
   $SRVKEYHOST
   $HOSTNAME
   $ETCDIR
   $LIBDIR
   $SPOOLDIR
   $LOGDIR
   $SAMBADIR
   $ERRORLOG
   $SUDOPATH
   $NPROOTUTIL
   $PRTCFG
   $ACCTSERVERID
   $PDISPSERVERID
   $CUSSPCLIENT
   $PERMITCLIENT
   $FCARCMD
   $EZPRINTID
   $BURSARLOOKUP
   $EZPRINTAGENTID
   $PERMITSERVERID
   $PERMITHOST
   $SIDECARPORT
   $PERMITSVR
   $MGRPERMIT
   $CRDPERMIT
   $RFDPERMIT
   $OPRPERMIT
   $EZPPERMIT
   $MGRBIT
   $CRDBIT
   $CSHBIT
   $RFDBIT
   $OPRBIT
   $SUBBIT
   $MGRLEVEL
   $CRDLEVEL
   $CSHLEVEL
   $RFDLEVEL
   $OPRLEVEL
   $SUBLEVEL
   $AUTHORIZATION
   $NOUSER
   $CIT_URL
   $NPADMIN
   $REFUND_ADMIN
   $SAMBA_MAX_FILESIZE
   };

# non-exported
use vars qw{
   $hst
   };

BEGIN {
   $hst = `/usr/bin/hostname`;

   # $SAMBA_MAX_FILESIZE:
   # Maximum allowed size of Samba print jobs (in 512-byte blocks).
   # This is enforced by including 'ulimit -f xxx' in the invocation of
   # smbd in npcontrol.  Print jobs of exactly this size are deleted by
   # auth.pl.  Disabled if set to zero.
   chomp($hst);
   if ( $hst =~ /^curdie$/ ) {
       $HOST = "curdie";
       $SRVKEYHOST = "lemur";          # 'host' part of some service keys
       $HOSTNAME = "curdie.cit.cornell.edu";
       $SAMBA_MAX_FILESIZE = 0
   }
   elsif ( $hst =~ /^page2$/ ) {
       $HOST="page2";
       $SRVKEYHOST = "page";
       $HOSTNAME = "net-print.cit.cornell.edu";        # Web server name
       $SAMBA_MAX_FILESIZE = 200000
   }
   elsif ( $hst =~ /^irene/ ) {
       $HOST = "irene";
       $SRVKEYHOST = "lemur";          # 'host' part of some service keys
       $HOSTNAME = "irene.cit.cornell.edu";
       $SAMBA_MAX_FILESIZE = 0
   }
   else {
       die "Net-Print is not configured for this host ($hst)\n";
   }

   $ETCDIR = "/usr/local/netprint/etc";
   $LIBDIR = "/usr/local/netprint/lib";
   $SPOOLDIR = "/var/netprint/spool";
   $SAMBADIR = "/usr/local/netprint/samba";
   $LOGDIR = "/var/netprint/logs";
   $ERRORLOG = "$LOGDIR/Errors.log";

   $SUDOPATH = "/usr/common/bin/sudo";
   $NPROOTUTIL = "$ETCDIR/nprootutil";
   $PRTCFG = "$SPOOLDIR/PRTCFG";
   $ACCTSERVERID = "EZPRINT_PUB.$SRVKEYHOST";
   $PDISPSERVERID = "EZPRINT_PUB.$SRVKEYHOST";  # printdisp service principal
   $CUSSPCLIENT = "/usr/common/bin/cusspclient";

   # Set permits and services
   $EZPRINTID = "EZPRINT_PUB.$SRVKEYHOST";
   $EZPRINTAGENTID = "EZPRINT_PUB-agent.$SRVKEYHOST";
   $PERMITSERVERID = "permitd.permit1";
   $PERMITHOST = "permit1.cit.cornell.edu:756";
   $SIDECARPORT = "913";  # host is client's host
   $PERMITSVR = "-h $PERMITHOST -r $PERMITSERVERID";
   $PERMITCLIENT = "$CUSSPCLIENT $PERMITSVR -s $EZPRINTID";
   $FCARCMD = "$CUSSPCLIENT -F $EZPRINTAGENTID";
#    $BURSARLOOKUP = "$CUSSPCLIENT -h cornellc.cit.cornell.edu:993 -c SIGXLTID -r kfront.cusockets -s $EZPRINTID";
   $BURSARLOOKUP = "$CUSSPCLIENT -h kfront.cit.cornell.edu:1993 -c SIGXLTID -r kfront.cusockets -s $EZPRINTID";
   $MGRBIT = 32;
   $CRDBIT = 16;
   $CSHBIT = 8;
   $RFDBIT = 4;
   $OPRBIT = 2;
   $SUBBIT = 1;
   $MGRLEVEL = $MGRBIT;
   $CRDLEVEL = $CRDBIT | $MGRBIT;
   $CSHLEVEL = $CSHBIT | $MGRBIT;
   $RFDLEVEL = $RFDBIT | $MGRBIT;
   $OPRLEVEL = $OPRBIT | $CRDBIT | $RFDBIT | $MGRBIT;
   $SUBLEVEL = $SUBBIT | $OPRBIT | $CRDBIT | $RFDBIT |  $MGRBIT;
   $AUTHORIZATION = 0;
   $NOUSER = "UNDETERMINED";    # Flag indicating no userid determined

   # Database
   %bannervals = ('Watermark' => 'W', 'BannerWA' => 'A', 'BannerWOA' => 'B', 'W' => 'Watermark', 'A' => 'BannerWA', 'B' => 'BannerWOA');
   %statusvals = ('Ok' => 'O', 'Canceled' => 'C', 'Disabled' => 'D', 'O' => 'Ok', 'C' => 'Canceled', 'D' => 'Disabled', 'R' => 'Remove');
   %ftypevals = ('Bursar' => 'B', 'Dept' => 'D', 'Cash' => 'M', 'Course' => 'C', 'B' => 'Bursar', 'D' => 'Dept', 'M' => 'Cash', 'C' => 'Course');

   # Miscellaneous
   $CIT_URL = "http://www.cit.cornell.edu";
   $NPADMIN = "net-print-admin\@$HOSTNAME";
   $REFUND_ADMIN = "refund-request\@$HOSTNAME";
}

1;

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.