Skip to content
Snippets Groups Projects
Select Git revision
  • df8a79a30d72ebe0556301bc862ee2292c58c58b
  • master default protected
  • 9.0
  • 8.0
  • nt-tools
  • 7.8
  • 7.6
  • 7.4
  • 7.2
  • 7.0
  • 0.6
  • rosuav/latex-markdown-renderer
  • rxnpatch/rxnpatch
  • marcus/gobject-introspection
  • rxnpatch/8.0
  • rosuav/pre-listening-ports
  • rosuav/async-annotations
  • rosuav/pgsql-ssl
  • rxnpatch/rxnpatch-broken/2023-10-06T094250
  • grubba/fdlib
  • grubba/wip/sakura/8.0
  • v8.0.2020
  • v8.0.2018
  • v8.0.2016
  • v8.0.2014
  • v8.0.2012
  • v8.0.2008
  • v8.0.2006
  • v8.0.2004
  • v8.0.2002
  • v8.0.2000
  • v8.0.1998
  • v8.0.1996
  • v8.0.1994
  • v8.0.1992
  • v8.0.1990
  • v8.0.1988
  • v8.0.1986
  • rxnpatch/clusters/8.0/2025-04-29T124414
  • rxnpatch/2025-04-29T124414
  • v8.0.1984
41 results

LPD.pmod

Blame
  • LPD.pmod 5.35 KiB
    //!
    //! An implementation of the BSD lpd protocol (@rfc{1179@}).
    //!
    // 3 July 1998 <hww3@riverweb.com> Bill Welliver
    // 2 August 2012 <bill@welliver.org> Bill Welliver>
    //
    
    #pike __REAL_VERSION__
    
    //! A client for communicating with printers and print spoolers that
    //! support the BSD lpd protocol (RFC 1179).
    class client {
      string host;
      int port;
      private Stdio.File conn;
      int jobnum;
      string jobtype;
      string jobname;
    
      protected int connect(string host, int port)
      {
        int a=random(10);
        // try to open one of the "official" local socket ports.
        // not having one doesn't seem to be a problem with most LPD 
        // servers, but we should at least try. will probably fail
        // if two try to open the same local port at once. ymmv.
        int res=conn->open_socket(721 + a);
    
        return conn->connect(host, port);
      }
    
      protected void send(string s, mixed ... args)
    {
    #ifdef LPD_DEBUG
      werror("LPD: sending %O\n", s);
    #endif
      conn->write(s, @args);
    }
    
    //! @decl int set_job_type(string type)
    //! Set the type of job to be sent to the printer to @i{type@}.
    //! Valid types are: text, postscript and raw.
      int set_job_type(string type)
      {
        type=lower_case(type);
        
        switch (type) { 
         case "f":
         case "text":
          jobtype="f";
          break;
    
         case "o":
         case "postscript":
         case "ps":
          jobtype="o";
          break;
    
         default:
         case "l":
         case "raw":
          jobtype="l";
          break;
        }
        return 1;
      }
    
    //! @decl int set_job_name(string name)
    //! Sets the name of the print job to @i{name@}.
      int set_job_name(string name)
      {
        jobname=name;
        return 1;
      }
    
    //! @decl int start_queue(string queue)
    //! Start the queue @i{queue@} if not already printing.
    //! @returns
    //! Returns 0 if unable to connect, 1 otherwise. 
      int start_queue(string queue)
      {
        if(!queue) return 0;
    
        if(!connect(host, port))
          return 0;
    
        send("%c%s\n", 01, queue);
        string resp= conn->read();
        conn->close();
        int res;
        sscanf(resp, "%c", res);
        return res;
      }
    
    protected string make_control(int jn)
    {
      String.Buffer control = String.Buffer();
    
      control->add("H", gethostname(), "\n");
    #if constant(getuid) && constant(getpwuid)
      control->add("P", getpwuid(getuid())[0]||"nobody", "\n");
    #else
      control->add("P-1\n");
    #endif
      control->sprintf("%sdfA%03d%s\n", (jobtype||"l"), jn, gethostname());
      if(jobname)
      {
        control->add("J", jobname, "\n",
                     "N", jobname, "\n");
      }
      else
      { 
        control->add("JPike LPD Client Job ", (string)jn, "\n",
                     "NPike LPD Client Job ", (string)jn, "\n");
      }
    
      return (string)control;
    }
    
    //! @decl string|int send_job(string queue, string job)
    //! Send print job consisting of data @i{job@} to printer @i{queue@}.
    //! @returns
    //! Returns 1 if success, 0 otherwise.
      int send_job(string queue, string job)
      {
        int jn = jobnum++;
        string resp;
    
        if(!queue) return 0;
    
        if(!connect(host, port))
          return 0;
    
        send("\2%s\n",queue);
    
        resp=conn->read(1);
    
        if(resp[0] !='\0')
        {
          werror("receive job failed: %O.\n", resp);
          return 0;
        }
    
        string control = make_control(jn);
        
        werror("job file:\n\n" + control  + "\n\n");
    
        send("%c%d cfA%03d%s\n", 2, sizeof(control),
             jn, gethostname());
    
        resp=conn->read(1);
        if(resp[0] !='\0')
        {
          werror("request receive control failed.\n");
          return 0;
        }
    
        send("%s%c", control, 0);
    
        resp=conn->read(1);
        if(resp[0] !='\0')
        {
          werror("send receive control failed.\n");
          return 0;
        }
    
        send("%c%d dfA%03d%s\n", 3, sizeof(job), jn,
             gethostname());
    
        resp=conn->read(1);
        if(resp[0] !='\0')
        {
          werror("request receive job failed.\n");
          return 0;
        }
    
        send("%s%c", job, 0);
    
        resp=conn->read(1);
        if(resp[0] != '\0')
        {
          werror("send receive job failed.\n");
          return 0;
        }
    
        conn->close();
        return 1;
      }
    
    //! @decl int delete_job(string queue, int|void job)
    //! Delete job @i{job@} from printer @i{queue@}.
    //! @returns
    //! Returns 1 on success, 0 otherwise.
      int delete_job(string queue, int|void job)
      {
        if(!queue) return 0;
    
        if(!connect(host, port))
          return 0;
    
    #if constant(getpwuid) && constant(getuid)
        string agent=(getpwuid(getuid())[0]||"nobody");
    #else
        string agent="nobody";
    #endif
    
        if(job)
          send("%c%s %s %d\n", 5, queue, agent, job);
        else
          send("%c%s %s\n", 5, queue, agent);
        string resp= conn->read();
        conn->close();
        int res;
        sscanf(resp, "%c", res);
        return res;
      }
    
    
    //! @decl string|int status(string queue)
    //! Check the status of queue @i{queue@}.
    //! @returns
    //! Returns 0 on failure, otherwise returns the status response from the printer.
      string|int status(string queue)
      {
        if(!queue) return 0;
    
        if(!connect(host, port))
          return 0;
    
        send("%c%s\n", 4, queue);
        string resp= conn->read();
        conn->close();
        return resp;
      }
    
    //! Create a new LPD client connection.
    //! @param hostname
    //! Contains the hostname or ipaddress of the print host.
    //! if not provided, defaults to @i{localhost@}.
    //! @param portnum
    //! Contains the port the print host is listening on.
    //! if not provided, defaults to port @i{515@}, the RFC 1179 standard.
      void create(string|void hostname, int|void portnum)
      {
        host=hostname || "localhost";
        port=portnum || 515;
        conn=Stdio.File();
        jobnum=1;
      }
    }