• Descrição das funções PERL
• Código fonte do "main" do IBQUOTA 2
• Descrição das páginas do GERENCIADOR GRÁFICO(GG)
• Tabela de código de status de Impressão(status_impressao)

_USUARIO_ = Nome do dono do job.
_JOB_ = Número do job.
_IMPRESSORA_ = Nome da impressora.
_PAGINAS_ = Quantidade de páginas do job.
_QUOTA_ATUAL_ = Imprime a quota atual do
                usuário (já debitado a
                impressão corrente).
_DATA_ = Data atual.
_HORA_ = Hora Atual.

#!/usr/bin/perl -w
#
# IBQUOTA 2.0
# 29/03/04 - Valcir C.
#
# Inserir cabecalho padrao, com a GPL


# Variavel com valores das configuracoes utilizadas no script
%configuracoes=("PATH_LPR"," ","PATH_LPSTAT"," ",
                "PATH_LPRM"," ","TEMPO_DE_ESPERA"," ",
                "PATH_MYSQL"," ","USUARIO_BANCO"," ",
                "SENHA_BANCO"," ","NOME_BANCO"," ",
                "HOST_BANCO"," ","PORTA_BANCO"," ");

#Adiciona as funcoes utilizadas
require "funcoes.pl";

#use DBI();

#Ler as configuracoes
&LER_CONFIGURACOES();

$dia = &DIA_DO_MES();
$hoje = $dia;

while (1 == 1) { # "infinito"
   #Verifica se eh um novo dia, se sim, executar a funcao INICIALIZA_QUOTA_PADRAO
   $hoje = &DIA_DO_MES;
   if ($hoje != $dia) {
      &INICIALIZA_QUOTA_PADRAO();
      $dia = $hoje;
   }
  @impressoras = &LISTA_IMPRESSORAS();
  foreach $impressora (@impressoras) {
    @jobs = &LISTA_JOBS_IMPRESSORA($impressora);
    #Verifica se ha jobs
    if ($#jobs < 1) {
     next; # proxima impressora
    }
    $SPOOL_IMPRESSORA=&SPOOL_IMPRESSORA($impressora);
    foreach $job (@jobs) {
      $arquivo_job = &MONTA_ARQUIVO_JOB($job);
      if (&TESTA_JOB($SPOOL_IMPRESSORA + $arquivo_job) == 0) {
        # Arquivo temporário de impressão inexistente
        &GRAVA_LOG(4); #Arquivo temporario do job nao identificado
        &REMOVE_JOB($impressora,$job);
        next; # proximo job
      }
      $dono_job = &DONO_JOB($arquivo_job);
      if ($dono_job == NULL) { # Login não cadastrado
        &GRAVA_LOG(4); #Arquivo temporario do job nao identificado
        &REMOVE_JOB($impressora,$job);
        next; # proximo job
      }
      &EXECUTA_MODULO_IMPRESSAO_USUARIO($dono_job,$impressora,$arquivo_job);
    }
  }
  &DORMIR($configuracoes{'TEMPO_DE_ESPERA'});
}