#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include "php.h"
#include "php_ini.h"
#include "ext/standard/info.h"
#include "php_phpcups.h"
#include <cups/cups.h>
#include <cups/ipp.h>
#include <cups/language.h>
#include <cups/string.h>
#include <cups/debug.h>
#include <stdlib.h>
#include <ctype.h>
#include <errno.h>
#include <fcntl.h>
#include <sys/stat.h>
#if defined(WIN32) || defined(__EMX__)
# include <io.h>
#else
# include <unistd.h>
#endif
typedef struct printer_attrs_str
{
char *name;
char *value;
} printer_attrs_t;
#if 0
static int le_result,
le_link,
le_plink;
#endif
static http_t *cups_server = NULL;
static ipp_status_t last_error = IPP_OK;
static char authstring[HTTP_MAX_VALUE] = "";
static char pwdstring[33] = "";
static int num_attrs = 0;
static printer_attrs_t *printer_attrs = NULL;
void _phpcups_free_attrs_list(void);
int _phpcups_get_printer_status(char *name);
static char *cups_connect(const char *name, char *printer,
char *hostname);
static int cups_local_auth(http_t *http);
function_entry phpcups_functions[] = {
PHP_FE(confirm_phpcups_compiled,NULL)
PHP_FE(cups_get_dest_list, NULL)
PHP_FE(cups_get_dest_options, NULL)
PHP_FE(cups_get_jobs, NULL)
PHP_FE(cups_cancel_job, NULL)
PHP_FE(cups_last_error, NULL)
PHP_FE(cups_print_file, NULL)
PHP_FE(cups_get_printer_attributes, NULL)
{NULL, NULL, NULL}
};
zend_module_entry phpcups_module_entry = {
STANDARD_MODULE_HEADER,
"phpcups",
phpcups_functions,
PHP_MINIT(phpcups),
PHP_MSHUTDOWN(phpcups),
PHP_RINIT(phpcups),
PHP_RSHUTDOWN(phpcups),
PHP_MINFO(phpcups),
"0.1",
STANDARD_MODULE_PROPERTIES
};
#ifdef COMPILE_DL_PHPCUPS
ZEND_GET_MODULE(phpcups)
#endif
PHP_MINIT_FUNCTION(phpcups)
{
return SUCCESS;
}
PHP_MSHUTDOWN_FUNCTION(phpcups)
{
return SUCCESS;
}
PHP_RINIT_FUNCTION(phpcups)
{
return SUCCESS;
}
PHP_RSHUTDOWN_FUNCTION(phpcups)
{
return SUCCESS;
}
PHP_MINFO_FUNCTION(phpcups)
{
php_info_print_table_start();
php_info_print_table_header(2, "phpcups support", "enabled");
php_info_print_table_end();
}
PHP_FUNCTION(confirm_phpcups_compiled)
{
char *arg = NULL;
int arg_len, len;
char string[256];
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &arg, &arg_len) == FAILURE) {
return;
}
len = sprintf(string, "Congratulations! You have successfully modified ext/%.78s/config.m4. Module %.78s is now compiled into PHP.", "phpcups", arg);
RETURN_STRINGL(string, len, 1);
}
PHP_FUNCTION(cups_get_dest_options)
{
zval *new_object;
zval **d_server,
**d_name,
**d_instance;
char c_server[256],
c_name[256],
c_instance[256];
char
l_name[256],
l_instance[256];
cups_dest_t *dests, *dptr;
int num_dests;
int i, j;
array_init(return_value);
if ((ZEND_NUM_ARGS() != 3) ||
(zend_get_parameters_ex(3,&d_server,&d_name,&d_instance) != SUCCESS))
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( d_server );
convert_to_string_ex( d_name );
convert_to_string_ex( d_instance );
bzero( c_server, 256 );
bzero( c_name, 256 );
bzero( c_instance, 256 );
if ( (char *)(*d_server)->value.str.val != NULL )
strcpy( c_server,(char *)(*d_server)->value.str.val );
if ( (char *)(*d_name)->value.str.val != NULL )
strcpy( c_name,(char *)(*d_name)->value.str.val );
if ( (char *)(*d_instance)->value.str.val != NULL )
strcpy( c_instance,(char *)(*d_instance)->value.str.val );
if (strlen(c_server))
cupsSetServer(c_server);
num_dests = cupsGetDests(&dests);
for (i=0, j = -1; (i < num_dests) && (j < 0); i++)
{
dptr = &dests[i];
if (dptr->name == NULL)
strcpy( l_name, "" );
else
strcpy( l_name, dptr->name );
if (dptr->instance == NULL)
strcpy( l_instance, "" );
else
strcpy( l_instance, dptr->instance );
if ((!strcmp( l_name, c_name )) &&
(!strcmp( l_instance, c_instance )))
{
for (j=0; j < dptr->num_options; j++ )
{
if ((dptr->options[j].name != NULL) &&
(dptr->options[j].value != NULL))
{
MAKE_STD_ZVAL(new_object);
if (object_init(new_object) == SUCCESS)
{
add_property_string(new_object,"name",dptr->options[j].name, 1 );
add_property_string(new_object,"value",dptr->options[j].value,1);
add_next_index_zval( return_value, new_object );
}
}
}
}
}
cupsFreeDests(num_dests,dests);
}
PHP_FUNCTION(cups_get_dest_list)
{
zval **z_server;
zval *new_object;
char c_server[256];
char string[2560];
cups_dest_t *dests, *dptr;
int num_dests;
int i;
array_init(return_value);
switch (ZEND_NUM_ARGS())
{
case 1: if (zend_get_parameters_ex(1,&z_server) != SUCCESS)
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server );
if ( (char *)(*z_server)->value.str.val != NULL )
{
strcpy( c_server,(char *)(*z_server)->value.str.val );
cupsSetServer( c_server );
}
break;
}
num_dests = cupsGetDests(&dests);
string[0] = '\0';
for (i=0; i < num_dests; i++)
{
dptr = &dests[i];
MAKE_STD_ZVAL(new_object);
if (object_init(new_object) == SUCCESS)
{
if (strlen(c_server))
add_property_string( new_object, "server", c_server, 1 );
else
add_property_string( new_object, "server", "", 1 );
if (dptr->name != NULL)
add_property_string( new_object, "name", dptr->name, 1 );
else
add_property_string( new_object, "name", "", 1 );
if (dptr->instance != NULL)
add_property_string( new_object, "instance", dptr->instance, 1 );
else
add_property_string( new_object, "instance", "", 1 );
add_property_long( new_object, "is_default", dptr->is_default );
add_property_long( new_object, "num_options", dptr->num_options );
add_next_index_zval( return_value, new_object );
}
}
cupsFreeDests(num_dests,dests);
}
PHP_FUNCTION( cups_get_jobs )
{
zval *new_object;
zval **z_server,
**z_name,
**z_user,
**z_myjobs,
**z_completed;
char p_server[256],
p_name[256],
p_user[256];
int p_myjobs,
p_completed;
cups_job_t *jobs,
*jptr;
int num_jobs;
int i;
bzero( p_server, 256 );
bzero( p_name, 256 );
bzero( p_user, 256 );
p_myjobs = 0;
p_completed = 0;
array_init(return_value);
switch(ZEND_NUM_ARGS())
{
case 2:
if (zend_get_parameters_ex( 2, &z_server,&z_name ) == SUCCESS)
{
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
strcpy( p_server,(char *)(*z_server)->value.str.val );
convert_to_string_ex( z_name );
if ( (char *)(*z_name)->value.str.val != NULL )
strcpy( p_name,(char *)(*z_name)->value.str.val );
}
break;
case 3:
if (zend_get_parameters_ex( 3, &z_server, &z_name,
&z_user ) == SUCCESS)
{
convert_to_string_ex( z_name );
convert_to_string_ex( z_user );
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
strcpy( p_server,(char *)(*z_server)->value.str.val );
if ( (char *)(*z_name)->value.str.val != NULL )
strcpy( p_name,(char *)(*z_name)->value.str.val );
if ( (char *)(*z_user)->value.str.val != NULL )
strcpy( p_user,(char *)(*z_user)->value.str.val );
}
break;
case 4:
if (zend_get_parameters_ex( 4, &z_server, &z_name, &z_user,
&z_myjobs ) == SUCCESS)
{
convert_to_string_ex( z_name );
convert_to_string_ex( z_user );
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
strcpy( p_server,(char *)(*z_server)->value.str.val );
if ( (char *)(*z_name)->value.str.val != NULL )
strcpy( p_name,(char *)(*z_name)->value.str.val );
if ( (char *)(*z_user)->value.str.val != NULL )
strcpy( p_user,(char *)(*z_user)->value.str.val );
convert_to_string_ex( z_myjobs );
p_myjobs = strtoul((char *)(*z_myjobs)->value.str.val,NULL,10);
}
break;
case 5:
if (zend_get_parameters_ex( 5, &z_server, &z_name, &z_user,
&z_myjobs, &z_completed ) == SUCCESS)
{
convert_to_string_ex( z_name );
convert_to_string_ex( z_user );
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
strcpy( p_server,(char *)(*z_server)->value.str.val );
if ( (char *)(*z_name)->value.str.val != NULL )
strcpy( p_name,(char *)(*z_name)->value.str.val );
if ( (char *)(*z_user)->value.str.val != NULL )
strcpy( p_user,(char *)(*z_user)->value.str.val );
convert_to_string_ex( z_myjobs );
p_myjobs = strtoul((char *)(*z_myjobs)->value.str.val,NULL,10);
convert_to_string_ex( z_completed);
p_completed = strtoul((char *)(*z_completed)->value.str.val,NULL,10);
}
break;
}
if (strlen(p_server))
cupsSetServer(p_server);
if (strlen(p_user))
cupsSetUser(p_user);
else
cupsSetUser("root");
num_jobs = cupsGetJobs(&jobs,p_name,p_myjobs,p_completed);
for (i=0; i < num_jobs; i++)
{
jptr = &jobs[i];
MAKE_STD_ZVAL(new_object);
if (object_init(new_object) == SUCCESS)
{
add_property_long(new_object,"id",jptr->id );
add_property_string(new_object,"dest",jptr->dest, 1 );
add_property_string(new_object,"title",jptr->title, 1 );
add_property_string(new_object,"user",jptr->user, 1 );
add_property_string(new_object,"format",jptr->format, 1 );
add_property_long(new_object,"state",jptr->state );
add_property_long(new_object,"size",jptr->size );
add_property_long(new_object,"priority",jptr->priority );
add_property_long(new_object,"completed_time",jptr->completed_time);
add_property_long(new_object,"creation_time",jptr->creation_time);
add_property_long(new_object,"processing_time",jptr->processing_time);
add_next_index_zval( return_value, new_object );
}
else
{
printf("\nError creating new object\n");
}
}
cupsFreeJobs(num_jobs,jobs);
}
PHP_FUNCTION(cups_last_error)
{
static char error[1024];
zval **z_server;
char c_server[256];
bzero( c_server, 256 );
switch (ZEND_NUM_ARGS())
{
case 1: if (zend_get_parameters_ex(1,&z_server) != SUCCESS)
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server );
if ( (char *)(*z_server)->value.str.val != NULL )
{
strcpy( c_server,(char *)(*z_server)->value.str.val );
cupsSetServer( c_server );
}
break;
}
sprintf( error,"%d", cupsLastError());
RETURN_STRINGL(error, strlen(error)+1, 1);
}
PHP_FUNCTION(cups_cancel_job)
{
zval **z_server, **z_name, **z_job;
char p_server[256], p_name[256];
int p_job;
int ret_val = -1;
if ((ZEND_NUM_ARGS() != 3) ||
(zend_get_parameters_ex( 3, &z_server, &z_name, &z_job ) != SUCCESS))
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server);
if ( (char *)(*z_name)->value.str.val != NULL )
{
strcpy( p_server,(char *)(*z_server)->value.str.val );
cupsSetServer(p_server);
}
convert_to_string_ex( z_name );
if ( (char *)(*z_name)->value.str.val != NULL )
strcpy( p_name,(char *)(*z_name)->value.str.val );
convert_to_string_ex( z_job );
p_job = strtoul((char *)(*z_job)->value.str.val,NULL,10);
if (strlen(p_server))
cupsSetServer(p_server);
cupsSetUser("root");
ret_val = cupsCancelJob(p_name,p_job);
RETURN_LONG(ret_val);
}
cups_option_t *_phpcups_parse_options( cups_option_t *options,
int *num_options, char *param )
{
char name[1024], value[1024];
sscanf(param,"%1023[^=]=%1023s", name, value );
if (strlen(name) && strlen(value))
{
if (options == NULL)
{
options = (cups_option_t *)emalloc(sizeof(cups_option_t));
options->name = (char *)emalloc(strlen(name)+1);
options->value = (char *)emalloc(strlen(value)+1);
strcpy( options->name, name );
strcpy( options->value, value );
(*num_options)++;
}
else
{
options = (cups_option_t *)erealloc(options,
(*num_options+1) * sizeof(cups_option_t));
options[*num_options].name = (char *)emalloc(strlen(name)+1);
options[*num_options].value = (char *)emalloc(strlen(value)+1);
strcpy( options[*num_options].name, name );
strcpy( options[*num_options].value, value );
(*num_options)++;
}
}
return(options);
}
PHP_FUNCTION(cups_print_file)
{
zval **z_server, **z_printer, **z_filename, **z_title,
**z_options, **keydata;
HashTable *param_ht;
char p_server[256];
char p_printer[256];
char p_filename[256];
char p_title[256];
char temp[4096];
cups_option_t *options = NULL;
int count, current;
int ret_val = -1;
int zend_num_args = ZEND_NUM_ARGS();
switch (zend_num_args)
{
case 3:
if (zend_get_parameters_ex( 3, &z_server, &z_printer,
&z_filename) != SUCCESS)
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
{
strcpy( p_server,(char *)(*z_server)->value.str.val );
cupsSetServer(p_server);
}
convert_to_string_ex( z_printer);
if ( (char *)(*z_printer)->value.str.val != NULL )
strcpy( p_printer,(char *)(*z_printer)->value.str.val );
convert_to_string_ex( z_filename );
if ( (char *)(*z_filename)->value.str.val != NULL )
strcpy( p_filename,(char *)(*z_filename)->value.str.val );
strcpy( p_title,"untitled");
break;
case 4:
if (zend_get_parameters_ex( 4, &z_server,
&z_printer,
&z_filename,
&z_title) != SUCCESS)
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
{
strcpy( p_server,(char *)(*z_server)->value.str.val );
cupsSetServer(p_server);
}
convert_to_string_ex( z_printer);
if ( (char *)(*z_printer)->value.str.val != NULL )
strcpy( p_printer,(char *)(*z_printer)->value.str.val );
convert_to_string_ex( z_filename );
if ( (char *)(*z_filename)->value.str.val != NULL )
strcpy( p_filename,(char *)(*z_filename)->value.str.val );
convert_to_string_ex( z_title );
if ( (char *)(*z_title)->value.str.val != NULL )
strcpy( p_title,(char *)(*z_title)->value.str.val );
break;
case 5:
if (zend_get_parameters_ex( 5, &z_server,
&z_printer,
&z_filename,
&z_title,
&z_options) != SUCCESS)
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
{
strcpy( p_server,(char *)(*z_server)->value.str.val );
cupsSetServer(p_server);
}
convert_to_string_ex( z_printer);
if ( (char *)(*z_printer)->value.str.val != NULL )
strcpy( p_printer,(char *)(*z_printer)->value.str.val );
convert_to_string_ex( z_filename );
if ( (char *)(*z_filename)->value.str.val != NULL )
strcpy( p_filename,(char *)(*z_filename)->value.str.val );
convert_to_string_ex( z_title );
if ( (char *)(*z_title)->value.str.val != NULL )
strcpy( p_title,(char *)(*z_title)->value.str.val );
convert_to_array_ex( z_options );
param_ht = Z_ARRVAL_PP( z_options );
count = zend_hash_num_elements( param_ht );
options = emalloc(sizeof(zval **) * count);
current = 0;
zend_hash_internal_pointer_reset(param_ht);
for (current=0; current < count; current++)
{
zend_hash_get_current_data(param_ht,(void **)&keydata);
switch(Z_TYPE_PP(keydata))
{
case IS_STRING:
convert_to_string_ex(keydata);
strcpy(temp,(char *)(*keydata)->value.str.val );
options = _phpcups_parse_options( options, ¤t,
temp );
break;
}
zend_hash_move_forward(param_ht);
}
break;
default: WRONG_PARAM_COUNT;
}
if (current > 0)
{
ret_val = cupsPrintFile( p_printer,p_filename,p_title,current,options);
for (current=0; current < count; current++)
{
efree( options[current].name );
efree( options[current].value );
}
efree(options);
}
else
ret_val = cupsPrintFile( p_printer,p_filename,p_title,0,NULL );
RETURN_LONG(ret_val);
}
PHP_FUNCTION(cups_get_printer_attributes)
{
zval **z_server, **z_name;
zval *new_object;
char p_server[256], p_name[256];
int i, count;
array_init(return_value);
if ((ZEND_NUM_ARGS() != 2) ||
(zend_get_parameters_ex( 2, &z_server, &z_name ) != SUCCESS))
{
WRONG_PARAM_COUNT;
}
convert_to_string_ex( z_server);
if ( (char *)(*z_server)->value.str.val != NULL )
{
strcpy( p_server,(char *)(*z_server)->value.str.val );
cupsSetServer(p_server);
}
convert_to_string_ex( z_name );
if ( (char *)(*z_name)->value.str.val != NULL )
strcpy( p_name,(char *)(*z_name)->value.str.val );
printer_attrs = NULL;
count = _phpcups_get_printer_status( p_name );
for (i=0; i < count; i++)
{
if ((printer_attrs[i].name != NULL) && (printer_attrs[i].value != NULL))
{
MAKE_STD_ZVAL(new_object);
if (object_init(new_object) == SUCCESS)
{
add_property_string(new_object,"name",printer_attrs[i].name, 1 );
add_property_string(new_object,"value",printer_attrs[i].value, 1 );
add_next_index_zval( return_value, new_object );
}
}
}
_phpcups_free_attrs_list();
}
void _phpcups_free_attrs_list(void)
{
int i;
if (num_attrs < 1)
return;
for ( i=0; i < num_attrs; i++ )
{
if (printer_attrs[i].name != NULL)
efree(printer_attrs[i].name);
if (printer_attrs[i].value != NULL)
efree(printer_attrs[i].value );
}
efree(printer_attrs);
num_attrs = 0;
}
int _phpcups_update_attrs_list( char *name, char *value )
{
if (num_attrs < 1)
{
printer_attrs = (printer_attrs_t *)emalloc(sizeof(printer_attrs_t));
printer_attrs->name = (char *)emalloc(strlen(name)+1);
printer_attrs->value = (char *)emalloc(strlen(value)+1);
strcpy( printer_attrs->name, name );
strcpy( printer_attrs->value, value );
num_attrs = 1;
}
else
{
printer_attrs = (printer_attrs_t *)erealloc(printer_attrs,
(num_attrs + 1) * sizeof(printer_attrs_t));
printer_attrs[num_attrs].name = (char *)emalloc(strlen(name)+1);
printer_attrs[num_attrs].value = (char *)emalloc(strlen(value)+1);
strcpy( printer_attrs[num_attrs].name, name );
strcpy( printer_attrs[num_attrs].value, value );
num_attrs++;
}
return(num_attrs);
}
int _phpcups_get_printer_status(char *name )
{
ipp_t *request,
*response;
ipp_attribute_t *attr;
cups_lang_t *language;
char printer_uri[1024];
char temp[1024];
int i;
if (name == NULL)
{
last_error = IPP_INTERNAL_ERROR;
return (0);
}
if (!cups_connect(name, NULL, NULL))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (0);
}
request = ippNew();
request->request.op.operation_id = IPP_GET_PRINTER_ATTRIBUTES;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL, language->language);
sprintf(printer_uri, "ipp://localhost/printers/%-s", name );
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_URI,
"printer-uri", NULL, printer_uri );
num_attrs = 0;
printer_attrs = NULL;
if ((response = cupsDoRequest(cups_server, request, "/")) != NULL)
{
last_error = response->request.status.status_code;
for (attr = response->attrs; attr != NULL; attr = attr->next)
{
if (attr->num_values < 1)
continue;
if (attr->name != NULL &&
strcasecmp(attr->name, "printer-state") == 0 &&
attr->value_tag == IPP_TAG_ENUM)
{
strcpy( temp, "unknown" );
switch( attr->values[0].integer )
{
case 3: strcpy( temp, "idle" );
break;
case 4: strcpy( temp, "processing" );
break;
case 5: strcpy( temp, "stopped" );
break;
default: continue;
}
_phpcups_update_attrs_list( attr->name, temp );
}
else if (attr->name != NULL &&
(attr->value_tag == IPP_TAG_TEXT ||
attr->value_tag == IPP_TAG_URI ||
attr->value_tag == IPP_TAG_STRING))
{
for (i=0; i < attr->num_values; i++)
_phpcups_update_attrs_list(attr->name, attr->values[i].string.text );
}
else if (attr->name != NULL &&
(attr->value_tag == IPP_TAG_ENUM ||
attr->value_tag == IPP_TAG_BOOLEAN ||
attr->value_tag == IPP_TAG_INTEGER))
{
for (i=0; i < attr->num_values; i++)
{
sprintf(temp,"%-d", attr->values[i].integer );
_phpcups_update_attrs_list(attr->name, temp );
}
}
else if (attr->name != NULL &&
attr->value_tag == IPP_TAG_RESOLUTION)
{
for (i=0; i < attr->num_values; i++)
{
sprintf(temp,"X:%-d Y:%-d U:%-d",
attr->values[i].resolution.xres,
attr->values[i].resolution.yres,
attr->values[i].resolution.units );
_phpcups_update_attrs_list(attr->name, temp );
}
}
else if (attr->name != NULL &&
attr->value_tag == IPP_TAG_RANGE)
{
for (i=0; i < attr->num_values; i++)
{
sprintf(temp,"%d-%d",
attr->values[i].range.lower,
attr->values[i].range.upper );
_phpcups_update_attrs_list(attr->name, temp );
}
}
}
ippDelete(response);
}
else
{
last_error = IPP_BAD_REQUEST;
return(0);
}
return (num_attrs);
}
int
cupsCancelJob(const char *name,
int job)
{
char printer[HTTP_MAX_URI],
hostname[HTTP_MAX_URI],
uri[HTTP_MAX_URI];
ipp_t *request,
*response;
cups_lang_t *language;
if (!cups_connect(name, printer, hostname))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (0);
}
request = ippNew();
request->request.op.operation_id = IPP_CANCEL_JOB;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL,
language != NULL ? language->language : "C");
snprintf(uri, sizeof(uri), "ipp://%s:%d/printers/%s", hostname, ippPort(), printer);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_URI, "printer-uri",
NULL, uri);
ippAddInteger(request, IPP_TAG_OPERATION, IPP_TAG_INTEGER, "job-id", job);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_NAME, "requesting-user-name",
NULL, cupsUser());
if ((response = cupsDoRequest(cups_server, request, "/jobs/")) == NULL)
{
last_error = IPP_BAD_REQUEST;
return (0);
}
else
{
last_error = response->request.status.status_code;
ippDelete(response);
return (1);
}
}
ipp_t *
cupsDoFileRequest(http_t *http,
ipp_t *request,
const char *resource,
const char *filename)
{
ipp_t *response;
char length[255];
http_status_t status;
FILE *file;
struct stat fileinfo;
int bytes;
char buffer[32768];
const char *password;
char realm[HTTP_MAX_VALUE],
nonce[HTTP_MAX_VALUE],
plain[255],
encode[512];
char prompt[1024];
int digest_tries;
if (http == NULL || request == NULL || resource == NULL)
{
if (request != NULL)
ippDelete(request);
last_error = IPP_INTERNAL_ERROR;
return (NULL);
}
DEBUG_printf(("cupsDoFileRequest(%p, %08x, \'%s\', \'%s\')\n",
http, request, resource, filename ? filename : "(null)"));
if (filename != NULL)
{
if (stat(filename, &fileinfo))
{
ippDelete(request);
last_error = IPP_NOT_FOUND;
return (NULL);
}
if ((file = fopen(filename, "rb")) == NULL)
{
ippDelete(request);
last_error = IPP_NOT_FOUND;
return (NULL);
}
}
else
file = NULL;
response = NULL;
status = HTTP_ERROR;
digest_tries = 0;
while (response == NULL)
{
DEBUG_puts("cupsDoFileRequest: setup...");
if (filename != NULL)
sprintf(length, "%lu", (unsigned long)(ippLength(request) +
(size_t)fileinfo.st_size));
else
sprintf(length, "%lu", (unsigned long)ippLength(request));
httpClearFields(http);
httpSetField(http, HTTP_FIELD_CONTENT_LENGTH, length);
httpSetField(http, HTTP_FIELD_CONTENT_TYPE, "application/ipp");
httpSetField(http, HTTP_FIELD_AUTHORIZATION, authstring);
DEBUG_puts("cupsDoFileRequest: post...");
if (httpPost(http, resource))
{
if (httpReconnect(http))
{
status = HTTP_ERROR;
break;
}
else
continue;
}
DEBUG_puts("cupsDoFileRequest: ipp write...");
request->state = IPP_IDLE;
if (ippWrite(http, request) != IPP_ERROR)
if (filename != NULL)
{
DEBUG_puts("cupsDoFileRequest: file write...");
rewind(file);
while ((bytes = fread(buffer, 1, sizeof(buffer), file)) > 0)
if (httpWrite(http, buffer, bytes) < bytes)
break;
}
DEBUG_puts("cupsDoFileRequest: update...");
while ((status = httpUpdate(http)) == HTTP_CONTINUE);
if (status == HTTP_UNAUTHORIZED)
{
DEBUG_puts("cupsDoFileRequest: unauthorized...");
httpFlush(http);
if (cups_local_auth(http))
continue;
if (strncmp(http->fields[HTTP_FIELD_WWW_AUTHENTICATE], "Basic", 5) == 0 ||
digest_tries > 1 || !pwdstring[0])
{
snprintf(prompt, sizeof(prompt), "Password for %s on %s? ", cupsUser(),
http->hostname);
if ((password = cupsGetPassword(prompt)) == NULL)
break;
if (!password[0])
break;
strncpy(pwdstring, password, sizeof(pwdstring) - 1);
pwdstring[sizeof(pwdstring) - 1] = '\0';
digest_tries = 0;
}
else
digest_tries ++;
if (strncmp(http->fields[HTTP_FIELD_WWW_AUTHENTICATE], "Basic", 5) == 0)
{
snprintf(plain, sizeof(plain), "%s:%s", cupsUser(), pwdstring);
httpEncode64(encode, plain);
snprintf(authstring, sizeof(authstring), "Basic %s", encode);
}
else
{
httpGetSubField(http, HTTP_FIELD_WWW_AUTHENTICATE, "realm", realm);
httpGetSubField(http, HTTP_FIELD_WWW_AUTHENTICATE, "nonce", nonce);
httpMD5(cupsUser(), realm, pwdstring, encode);
httpMD5Final(nonce, "POST", resource, encode);
snprintf(authstring, sizeof(authstring),
"Digest username=\"%s\", realm=\"%s\", nonce=\"%s\", "
"response=\"%s\"", cupsUser(), realm, nonce, encode);
}
continue;
}
else if (status == HTTP_ERROR)
{
#ifdef WIN32
if (http->error != WSAENETDOWN && http->error != WSAENETUNREACH)
#else
if (http->error != ENETDOWN && http->error != ENETUNREACH)
#endif
continue;
else
break;
}
#ifdef HAVE_LIBSSL
else if (status == HTTP_UPGRADE_REQUIRED)
{
httpFlush(http);
httpEncryption(http, HTTP_ENCRYPT_REQUIRED);
continue;
}
#endif
else if (status != HTTP_OK)
{
DEBUG_printf(("cupsDoFileRequest: error %d...\n", status));
httpFlush(http);
break;
}
else
{
DEBUG_puts("cupsDoFileRequest: response...");
response = ippNew();
if (ippRead(http, response) == IPP_ERROR)
{
ippDelete(response);
response = NULL;
last_error = IPP_SERVICE_UNAVAILABLE;
break;
}
}
}
if (filename != NULL)
fclose(file);
httpFlush(http);
ippDelete(request);
if (response)
last_error = response->request.status.status_code;
else if (status == HTTP_NOT_FOUND)
last_error = IPP_NOT_FOUND;
else if (status == HTTP_UNAUTHORIZED)
last_error = IPP_NOT_AUTHORIZED;
else if (status != HTTP_OK)
last_error = IPP_SERVICE_UNAVAILABLE;
return (response);
}
void
cupsFreeJobs(int num_jobs,
cups_job_t *jobs)
{
int i;
if (num_jobs <= 0 || jobs == NULL)
return;
for (i = 0; i < num_jobs; i ++)
{
efree(jobs[i].dest);
efree(jobs[i].user);
efree(jobs[i].format);
efree(jobs[i].title);
}
efree(jobs);
}
int
cupsGetClasses(char ***classes)
{
int n;
ipp_t *request,
*response;
ipp_attribute_t *attr;
cups_lang_t *language;
char **temp;
if (classes == NULL)
{
last_error = IPP_INTERNAL_ERROR;
return (0);
}
if (!cups_connect("default", NULL, NULL))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (0);
}
request = ippNew();
request->request.op.operation_id = CUPS_GET_CLASSES;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL, language->language);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_KEYWORD,
"requested-attributes", NULL, "printer-name");
n = 0;
*classes = NULL;
if ((response = cupsDoRequest(cups_server, request, "/")) != NULL)
{
last_error = response->request.status.status_code;
for (attr = response->attrs; attr != NULL; attr = attr->next)
if (attr->name != NULL &&
strcasecmp(attr->name, "printer-name") == 0 &&
attr->value_tag == IPP_TAG_NAME)
{
if (n == 0)
temp = emalloc(sizeof(char *));
else
temp = erealloc(*classes, sizeof(char *) * (n + 1));
if (temp == NULL)
{
while (n > 0)
{
n --;
efree((*classes)[n]);
}
efree(*classes);
ippDelete(response);
return (0);
}
*classes = temp;
temp[n] = estrdup(attr->values[0].string.text);
n ++;
}
ippDelete(response);
}
else
last_error = IPP_BAD_REQUEST;
return (n);
}
const char *
cupsGetDefault(void)
{
ipp_t *request,
*response;
ipp_attribute_t *attr;
cups_lang_t *language;
const char *var;
static char def_printer[256];
if ((var = getenv("LPDEST")) != NULL)
return (var);
else if ((var = getenv("PRINTER")) != NULL && strcmp(var, "lp") != 0)
return (var);
if (!cups_connect("default", NULL, NULL))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (NULL);
}
request = ippNew();
request->request.op.operation_id = CUPS_GET_DEFAULT;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL, language->language);
if ((response = cupsDoRequest(cups_server, request, "/")) != NULL)
{
last_error = response->request.status.status_code;
if ((attr = ippFindAttribute(response, "printer-name", IPP_TAG_NAME)) != NULL)
{
strncpy(def_printer, attr->values[0].string.text, sizeof(def_printer) - 1);
def_printer[sizeof(def_printer) - 1] = '\0';
ippDelete(response);
return (def_printer);
}
ippDelete(response);
}
else
last_error = IPP_BAD_REQUEST;
return (NULL);
}
int
cupsGetJobs(cups_job_t **jobs,
const char *mydest,
int myjobs,
int completed)
{
int n;
ipp_t *request,
*response;
ipp_attribute_t *attr;
cups_lang_t *language;
cups_job_t *temp;
int id,
priority,
size;
ipp_jstate_t state;
time_t completed_time,
creation_time,
processing_time;
const char *dest,
*format,
*title,
*user;
char uri[HTTP_MAX_URI];
static const char *attrs[] =
{
"job-id",
"job-priority",
"job-k-octets",
"job-state",
"time-at-completed",
"time-at-creation",
"time-at-processing",
"job-printer-uri",
"document-format",
"job-name",
"job-originating-user-name"
};
if (jobs == NULL)
{
last_error = IPP_INTERNAL_ERROR;
return (0);
}
if (!cups_connect("default", NULL, NULL))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (0);
}
request = ippNew();
request->request.op.operation_id = IPP_GET_JOBS;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL, language->language);
if (mydest)
snprintf(uri, sizeof(uri), "ipp://localhost/printers/%s", mydest);
else
strcpy(uri, "ipp://localhost/jobs");
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_URI,
"printer-uri", NULL, uri);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_NAME,
"requesting-user-name", NULL, cupsUser());
if (myjobs)
ippAddBoolean(request, IPP_TAG_OPERATION, "my-jobs", 1);
if (completed)
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_KEYWORD,
"which-jobs", NULL, "completed");
ippAddStrings(request, IPP_TAG_OPERATION, IPP_TAG_KEYWORD,
"requested-attributes", sizeof(attrs) / sizeof(attrs[0]),
NULL, attrs);
n = 0;
*jobs = NULL;
if ((response = cupsDoRequest(cups_server, request, "/")) != NULL)
{
last_error = response->request.status.status_code;
for (attr = response->attrs; attr != NULL; attr = attr->next)
{
while (attr != NULL && attr->group_tag != IPP_TAG_JOB)
attr = attr->next;
if (attr == NULL)
break;
id = 0;
size = 0;
priority = 50;
state = IPP_JOB_PENDING;
user = NULL;
dest = NULL;
format = NULL;
title = NULL;
creation_time = 0;
completed_time = 0;
processing_time = 0;
while (attr != NULL && attr->group_tag == IPP_TAG_JOB)
{
if (strcmp(attr->name, "job-id") == 0 &&
attr->value_tag == IPP_TAG_INTEGER)
id = attr->values[0].integer;
else if (strcmp(attr->name, "job-state") == 0 &&
attr->value_tag == IPP_TAG_ENUM)
state = (ipp_jstate_t)attr->values[0].integer;
else if (strcmp(attr->name, "job-priority") == 0 &&
attr->value_tag == IPP_TAG_INTEGER)
priority = attr->values[0].integer;
else if (strcmp(attr->name, "job-k-octets") == 0 &&
attr->value_tag == IPP_TAG_INTEGER)
size = attr->values[0].integer;
else if (strcmp(attr->name, "time-at-completed") == 0 &&
attr->value_tag == IPP_TAG_INTEGER)
completed_time = attr->values[0].integer;
else if (strcmp(attr->name, "time-at-creation") == 0 &&
attr->value_tag == IPP_TAG_INTEGER)
creation_time = attr->values[0].integer;
else if (strcmp(attr->name, "time-at-processing") == 0 &&
attr->value_tag == IPP_TAG_INTEGER)
processing_time = attr->values[0].integer;
else if (strcmp(attr->name, "job-printer-uri") == 0 &&
attr->value_tag == IPP_TAG_URI)
{
if ((dest = strrchr(attr->values[0].string.text, '/')) != NULL)
dest ++;
}
else if (strcmp(attr->name, "job-originating-user-name") == 0 &&
attr->value_tag == IPP_TAG_NAME)
user = attr->values[0].string.text;
else if (strcmp(attr->name, "document-format") == 0 &&
attr->value_tag == IPP_TAG_MIMETYPE)
format = attr->values[0].string.text;
else if (strcmp(attr->name, "job-name") == 0 &&
(attr->value_tag == IPP_TAG_TEXT ||
attr->value_tag == IPP_TAG_NAME))
title = attr->values[0].string.text;
attr = attr->next;
}
if (dest == NULL || title == NULL || user == NULL || id == 0)
{
if (attr == NULL)
break;
else
continue;
}
if (format == NULL)
format = "application/octet-stream";
if (n == 0)
temp = emalloc(sizeof(cups_job_t));
else
temp = erealloc(*jobs, sizeof(cups_job_t) * (n + 1));
if (temp == NULL)
{
cupsFreeJobs(n, *jobs);
*jobs = NULL;
ippDelete(response);
return (0);
}
*jobs = temp;
temp += n;
n ++;
temp->dest = estrdup(dest);
temp->user = estrdup(user);
temp->format = estrdup(format);
temp->title = estrdup(title);
temp->id = id;
temp->priority = priority;
temp->state = state;
temp->size = size;
temp->completed_time = completed_time;
temp->creation_time = creation_time;
temp->processing_time = processing_time;
if (attr == NULL)
break;
}
ippDelete(response);
}
else
last_error = IPP_BAD_REQUEST;
return (n);
}
const char *
cupsGetPPD(const char *name)
{
int i;
ipp_t *request,
*response;
ipp_attribute_t *attr;
cups_lang_t *language;
int fd;
int bytes;
char buffer[8192];
char printer[HTTP_MAX_URI],
method[HTTP_MAX_URI],
username[HTTP_MAX_URI],
hostname[HTTP_MAX_URI],
resource[HTTP_MAX_URI];
int port;
const char *password;
char realm[HTTP_MAX_VALUE],
nonce[HTTP_MAX_VALUE],
plain[255],
encode[512];
http_status_t status;
char prompt[1024];
int digest_tries;
static char filename[HTTP_MAX_URI];
static const char *requested_attrs[] =
{
"printer-uri-supported",
"printer-type",
"member-uris"
};
if (name == NULL)
{
last_error = IPP_INTERNAL_ERROR;
return (NULL);
}
if (!cups_connect(name, printer, hostname))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (NULL);
}
request = ippNew();
request->request.op.operation_id = IPP_GET_PRINTER_ATTRIBUTES;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL, language->language);
snprintf(buffer, sizeof(buffer), "ipp://localhost/printers/%s", printer);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_URI,
"printer-uri", NULL, buffer);
ippAddStrings(request, IPP_TAG_OPERATION, IPP_TAG_NAME,
"requested-attributes",
sizeof(requested_attrs) / sizeof(requested_attrs[0]),
NULL, requested_attrs);
if ((response = cupsDoRequest(cups_server, request, "/")) != NULL)
{
last_error = response->request.status.status_code;
printer[0] = '\0';
hostname[0] = '\0';
if ((attr = ippFindAttribute(response, "member-uris", IPP_TAG_URI)) != NULL)
{
for (i = 0; i < attr->num_values; i ++)
{
httpSeparate(attr->values[0].string.text, method, username, hostname,
&port, resource);
if (strncmp(resource, "/printers/", 10) == 0)
{
strncpy(printer, resource + 10, sizeof(printer) - 1);
printer[sizeof(printer) - 1] = '\0';
break;
}
}
}
else if ((attr = ippFindAttribute(response, "printer-uri-supported",
IPP_TAG_URI)) != NULL)
{
httpSeparate(attr->values[0].string.text, method, username, hostname,
&port, resource);
strncpy(printer, strrchr(resource, '/') + 1, sizeof(printer) - 1);
printer[sizeof(printer) - 1] = '\0';
}
ippDelete(response);
gethostname(buffer, sizeof(buffer));
if (strcasecmp(buffer, hostname) == 0)
strcpy(hostname, "localhost");
}
cupsLangFree(language);
if (!printer[0])
return (NULL);
if (strcasecmp(cups_server->hostname, hostname) != 0)
{
httpClose(cups_server);
if ((cups_server = httpConnectEncrypt(hostname, ippPort(),
cupsEncryption())) == NULL)
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (NULL);
}
}
if ((fd = cupsTempFd(filename, sizeof(filename))) < 0)
{
httpFlush(cups_server);
httpClose(cups_server);
cups_server = NULL;
return (NULL);
}
snprintf(resource, sizeof(resource), "/printers/%s.ppd", printer);
digest_tries = 0;
do
{
httpClearFields(cups_server);
httpSetField(cups_server, HTTP_FIELD_HOST, hostname);
httpSetField(cups_server, HTTP_FIELD_AUTHORIZATION, authstring);
if (httpGet(cups_server, resource))
{
if (httpReconnect(cups_server))
{
status = HTTP_ERROR;
break;
}
else
{
status = HTTP_UNAUTHORIZED;
continue;
}
}
while ((status = httpUpdate(cups_server)) == HTTP_CONTINUE);
if (status == HTTP_UNAUTHORIZED)
{
DEBUG_puts("cupsGetPPD: unauthorized...");
httpFlush(cups_server);
if (cups_local_auth(cups_server))
continue;
if (strncmp(cups_server->fields[HTTP_FIELD_WWW_AUTHENTICATE], "Basic", 5) == 0 ||
digest_tries > 1 || !pwdstring[0])
{
snprintf(prompt, sizeof(prompt), "Password for %s on %s? ", cupsUser(),
cups_server->hostname);
if ((password = cupsGetPassword(prompt)) == NULL)
break;
if (!password[0])
break;
strncpy(pwdstring, password, sizeof(pwdstring) - 1);
pwdstring[sizeof(pwdstring) - 1] = '\0';
digest_tries = 0;
}
else
digest_tries ++;
if (strncmp(cups_server->fields[HTTP_FIELD_WWW_AUTHENTICATE], "Basic", 5) == 0)
{
snprintf(plain, sizeof(plain), "%s:%s", cupsUser(), pwdstring);
httpEncode64(encode, plain);
snprintf(authstring, sizeof(authstring), "Basic %s", encode);
}
else
{
httpGetSubField(cups_server, HTTP_FIELD_WWW_AUTHENTICATE, "realm", realm);
httpGetSubField(cups_server, HTTP_FIELD_WWW_AUTHENTICATE, "nonce", nonce);
httpMD5(cupsUser(), realm, pwdstring, encode);
httpMD5Final(nonce, "GET", resource, encode);
snprintf(authstring, sizeof(authstring),
"Digest username=\"%s\", realm=\"%s\", nonce=\"%s\", "
"response=\"%s\"", cupsUser(), realm, nonce, encode);
}
continue;
}
#ifdef HAVE_LIBSSL
else if (status == HTTP_UPGRADE_REQUIRED)
{
httpFlush(cups_server);
httpEncryption(cups_server, HTTP_ENCRYPT_REQUIRED);
continue;
}
#endif
}
while (status == HTTP_UNAUTHORIZED || status == HTTP_UPGRADE_REQUIRED);
if (status != HTTP_OK)
{
unlink(filename);
httpFlush(cups_server);
httpClose(cups_server);
cups_server = NULL;
return (NULL);
}
while ((bytes = httpRead(cups_server, buffer, sizeof(buffer))) > 0)
write(fd, buffer, bytes);
close(fd);
return (filename);
}
int
cupsGetPrinters(char ***printers)
{
int n;
ipp_t *request,
*response;
ipp_attribute_t *attr;
cups_lang_t *language;
char **temp;
if (printers == NULL)
{
last_error = IPP_INTERNAL_ERROR;
return (0);
}
if (!cups_connect("default", NULL, NULL))
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (0);
}
request = ippNew();
request->request.op.operation_id = CUPS_GET_PRINTERS;
request->request.op.request_id = 1;
language = cupsLangDefault();
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL, language->language);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_KEYWORD,
"requested-attributes", NULL, "printer-name");
n = 0;
*printers = NULL;
if ((response = cupsDoRequest(cups_server, request, "/")) != NULL)
{
last_error = response->request.status.status_code;
for (attr = response->attrs; attr != NULL; attr = attr->next)
if (attr->name != NULL &&
strcasecmp(attr->name, "printer-name") == 0 &&
attr->value_tag == IPP_TAG_NAME)
{
if (n == 0)
temp = emalloc(sizeof(char *));
else
temp = erealloc(*printers, sizeof(char *) * (n + 1));
if (temp == NULL)
{
while (n > 0)
{
n --;
efree((*printers)[n]);
}
efree(*printers);
ippDelete(response);
return (0);
}
*printers = temp;
temp[n] = estrdup(attr->values[0].string.text);
n ++;
}
ippDelete(response);
}
else
last_error = IPP_BAD_REQUEST;
return (n);
}
ipp_status_t
cupsLastError(void)
{
return (last_error);
}
int
cupsPrintFile(const char *name,
const char *filename,
const char *title,
int num_options,
cups_option_t *options)
{
DEBUG_printf(("cupsPrintFile(\'%s\', \'%s\', %d, %p)\n",
name, filename, num_options, options));
return (cupsPrintFiles(name, 1, &filename, title, num_options, options));
}
int
cupsPrintFiles(const char *name,
int num_files,
const char **files,
const char *title,
int num_options,
cups_option_t *options)
{
int i;
const char *val;
ipp_t *request;
ipp_t *response;
ipp_attribute_t *attr;
char hostname[HTTP_MAX_URI],
printer[HTTP_MAX_URI],
uri[HTTP_MAX_URI];
cups_lang_t *language;
int jobid;
DEBUG_printf(("cupsPrintFiles(\'%s\', %d, %p, %d, %p)\n",
name, num_files, files, num_options, options));
if (name == NULL || num_files < 1 || files == NULL)
return (0);
if (!cups_connect(name, printer, hostname))
{
DEBUG_printf(("cupsPrintFile: Unable to open connection - %s.\n",
strerror(errno)));
last_error = IPP_SERVICE_UNAVAILABLE;
return (0);
}
language = cupsLangDefault();
if ((request = ippNew()) == NULL)
return (0);
request->request.op.operation_id = num_files == 1 ? IPP_PRINT_JOB :
IPP_CREATE_JOB;
request->request.op.request_id = 1;
snprintf(uri, sizeof(uri), "ipp://%s:%d/printers/%s", hostname, ippPort(), printer);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL,
language != NULL ? language->language : "C");
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_URI, "printer-uri",
NULL, uri);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_NAME, "requesting-user-name",
NULL, cupsUser());
if (title)
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_NAME, "job-name", NULL, title);
cupsEncodeOptions(request, num_options, options);
snprintf(uri, sizeof(uri), "/printers/%s", printer);
if (num_files == 1)
response = cupsDoFileRequest(cups_server, request, uri, *files);
else
response = cupsDoRequest(cups_server, request, uri);
if (response == NULL)
jobid = 0;
else if (response->request.status.status_code > IPP_OK_CONFLICT)
{
DEBUG_printf(("IPP response code was 0x%x!\n",
response->request.status.status_code));
jobid = 0;
}
else if ((attr = ippFindAttribute(response, "job-id", IPP_TAG_INTEGER)) == NULL)
{
DEBUG_puts("No job ID!");
jobid = 0;
}
else
jobid = attr->values[0].integer;
if (response != NULL)
ippDelete(response);
if (jobid > 0 && num_files > 1)
for (i = 0; i < num_files; i ++)
{
if ((request = ippNew()) == NULL)
return (0);
request->request.op.operation_id = IPP_SEND_DOCUMENT;
request->request.op.request_id = 1;
snprintf(uri, sizeof(uri), "ipp://%s:%d/jobs/%d", hostname, ippPort(),
jobid);
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_CHARSET,
"attributes-charset", NULL, cupsLangEncoding(language));
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_LANGUAGE,
"attributes-natural-language", NULL,
language != NULL ? language->language : "C");
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_URI, "job-uri",
NULL, uri);
if (cupsGetOption("raw", num_options, options))
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_MIMETYPE, "document-format",
NULL, "application/vnd.cups-raw");
else if ((val = cupsGetOption("document-format", num_options, options)) != NULL)
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_MIMETYPE, "document-format",
NULL, val);
else
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_MIMETYPE, "document-format",
NULL, "application/octet-stream");
ippAddString(request, IPP_TAG_OPERATION, IPP_TAG_NAME, "requesting-user-name",
NULL, cupsUser());
if (i == (num_files - 1))
ippAddBoolean(request, IPP_TAG_OPERATION, "last-document", 1);
snprintf(uri, sizeof(uri), "/printers/%s", printer);
if ((response = cupsDoFileRequest(cups_server, request, uri,
files[i])) != NULL)
ippDelete(response);
}
return (jobid);
}
static char *
cups_connect(const char *name,
char *printer,
char *hostname)
{
char hostbuf[HTTP_MAX_URI];
static char printerbuf[HTTP_MAX_URI];
DEBUG_printf(("cups_connect(\"%s\", %p, %p)\n", name, printer, hostname));
if (name == NULL)
{
last_error = IPP_BAD_REQUEST;
return (NULL);
}
if (sscanf(name, "%1023[^@]@%1023s", printerbuf, hostbuf) == 1)
{
strncpy(hostbuf, cupsServer(), sizeof(hostbuf) - 1);
hostbuf[sizeof(hostbuf) - 1] = '\0';
}
if (hostname != NULL)
{
strncpy(hostname, hostbuf, HTTP_MAX_URI - 1);
hostname[HTTP_MAX_URI - 1] = '\0';
}
else
hostname = hostbuf;
if (printer != NULL)
{
strncpy(printer, printerbuf, HTTP_MAX_URI - 1);
printer[HTTP_MAX_URI - 1] = '\0';
}
else
printer = printerbuf;
if (cups_server != NULL)
{
if (strcasecmp(cups_server->hostname, hostname) == 0)
return (printer);
httpClose(cups_server);
}
DEBUG_printf(("connecting to %s on port %d...\n", hostname, ippPort()));
if ((cups_server = httpConnectEncrypt(hostname, ippPort(),
cupsEncryption())) == NULL)
{
last_error = IPP_SERVICE_UNAVAILABLE;
return (NULL);
}
else
return (printer);
}
static int
cups_local_auth(http_t *http)
{
#if defined(WIN32) || defined(__EMX__)
return (0);
#else
int pid;
FILE *fp;
char filename[1024],
certificate[33];
const char *root;
if (ntohl(http->hostaddr.sin_addr.s_addr) != 0x7f000001 &&
strcasecmp(http->hostname, "localhost") != 0)
return (0);
if ((root = getenv("CUPS_SERVERROOT")) == NULL)
root = CUPS_SERVERROOT;
pid = getpid();
snprintf(filename, sizeof(filename), "%s/certs/%d", root, pid);
if ((fp = fopen(filename, "r")) == NULL && pid > 0)
{
snprintf(filename, sizeof(filename), "%s/certs/0", root);
fp = fopen(filename, "r");
}
if (fp == NULL)
return (0);
fgets(certificate, sizeof(certificate), fp);
fclose(fp);
snprintf(authstring, sizeof(authstring), "Local %s", certificate);
return (1);
#endif
}