src/chxj_hdml.c
/**
 * The substitution processing of tag "input type = password" is done. 
 * 
 * @param hdml [i/o] The pointer to the HDML structure at the output 
 *                   destination is specified. 
 * @param tag  [i]   The tag node of input type=password is specified. 
 */
The substitution processing of tag "input type = password" is done.

@param hdml [i/o] The pointer to the HDML structure at the output
destination is specified.
@param tag  [i]   The tag node of input type=password is specified.
The substitution processing of tag " input type = password " is done . @param hdml [ i / o ] The pointer to the HDML structure at the output destination is specified . @param tag [ i ] The tag node of input type = password is specified .
static void
s_hdml_do_input_password_tag(hdml_t *hdml, Node *tag)
{
  Doc         *doc;
  request_rec *r;
  char        *mlen;
  char        *val;
  char        *is;
  char        *nm;
  char        *fmt;
  doc = hdml->doc;
  r   = doc->r;
  s_hdml_tag_output_upper_half(hdml, tag);
  hdml->card_cnt++;
  s_output_to_hdml_out(hdml, "<A TASK=GOSUB LABEL=\"\x93\xfc\x97\xcd\" DEST=");
  s_output_to_hdml_out(hdml, apr_psprintf(r->pool, "#D%d ", hdml->card_cnt));
  s_output_to_hdml_out(hdml, 
                       apr_psprintf(r->pool, 
                                    "VARS=\"V=$%s%02d\" ", 
                                    s_get_form_no(r, hdml),
                                    hdml->var_cnt[hdml->pure_form_cnt]));
  s_output_to_hdml_out(hdml, 
                  apr_psprintf(r->pool, "RECEIVE=%s%02d>"  , 
                               s_get_form_no(r, hdml),
                          hdml->var_cnt[hdml->pure_form_cnt]));
  s_output_to_hdml_out(hdml, 
                  apr_psprintf(r->pool, "[$%s%02d]</A>\r\n"  , 
                          s_get_form_no(r, hdml),
                          hdml->var_cnt[hdml->pure_form_cnt]));
  s_output_to_hdml_card(hdml, "<ENTRY NAME="                               );
  s_output_to_hdml_card(hdml, apr_psprintf(r->pool, "D%d ", hdml->card_cnt));
  s_output_to_hdml_card(hdml, " KEY=V DEFAULT=$V "                         );
  mlen = NULL;
  is   = NULL;
  val  = NULL;
  fmt  = NULL;
  nm = qs_get_name_attr(doc, tag, r->pool);
  if (! nm) {
    nm = qs_alloc_zero_byte_string(r->pool);
  }
  s_output_to_postdata(hdml, 
                  apr_psprintf(r->pool, 
                          "%s=$%s%02d", 
                          nm,
                          s_get_form_no(r, hdml),
                          hdml->var_cnt[hdml->pure_form_cnt]));
  mlen = qs_get_maxlength_attr  (doc, tag, r->pool);
  val  = qs_get_value_attr      (doc, tag, r->pool);
  fmt = apr_psprintf(r->pool, "N");
  if (mlen) {
    if (chxj_chk_numeric(mlen) != 0)
      mlen = apr_psprintf(r->pool, "0");
    s_output_to_hdml_card(hdml, 
                    apr_psprintf(r->pool, " FORMAT=%d%s", chxj_atoi(mlen), fmt));
  }
  else 
    s_output_to_hdml_card(hdml, 
                    apr_psprintf(r->pool, " FORMAT=*%s", fmt)       );
  s_output_to_hdml_card(hdml, apr_psprintf(r->pool, " NOECHO=TRUE "));
  s_output_to_hdml_card(hdml, 
                  " MARKABLE=FALSE>\r\n"
                  "<ACTION TYPE=ACCEPT TASK=RETURN RETVALS=$V>\r\n"
                  "</ENTRY>\r\n");
  if (val) 
    s_output_to_init_vars(hdml, 
                    apr_psprintf(r->pool, "%s%02d=%s", 
                        s_get_form_no(r, hdml),
                        hdml->var_cnt[hdml->pure_form_cnt], 
                        chxj_escape_uri(r->pool,val)));
  else 
    s_output_to_init_vars(hdml, 
                    apr_psprintf(r->pool, "%s%02d=", 
                        s_get_form_no(r, hdml),
                        hdml->var_cnt[hdml->pure_form_cnt]));
  hdml->var_cnt[hdml->pure_form_cnt]++;
}
static void s_hdml_do_input_password_tag ( hdml_t * hdml , Node * tag ) { Doc * doc ; request_rec * r ; char * mlen ; char * val ; char * is ; char * nm ; char * fmt ; doc = hdml -> doc ; r = doc -> r ; s_hdml_tag_output_upper_half ( hdml , tag ) ; hdml -> card_cnt ++ ; s_output_to_hdml_out ( hdml , " \" \x93 \xfc \x97 \xcd \" " ) ; s_output_to_hdml_out ( hdml , apr_psprintf ( r -> pool , " " , hdml -> card_cnt ) ) ; s_output_to_hdml_out ( hdml , apr_psprintf ( r -> pool , " \" \" " , s_get_form_no ( r , hdml ) , hdml -> var_cnt [ hdml -> pure_form_cnt ] ) ) ; s_output_to_hdml_out ( hdml , apr_psprintf ( r -> pool , " " , s_get_form_no ( r , hdml ) , hdml -> var_cnt [ hdml -> pure_form_cnt ] ) ) ; s_output_to_hdml_out ( hdml , apr_psprintf ( r -> pool , " \r \n " , s_get_form_no ( r , hdml ) , hdml -> var_cnt [ hdml -> pure_form_cnt ] ) ) ; s_output_to_hdml_card ( hdml , " " ) ; s_output_to_hdml_card ( hdml , apr_psprintf ( r -> pool , " " , hdml -> card_cnt ) ) ; s_output_to_hdml_card ( hdml , " " ) ; mlen = NULL ; is = NULL ; val = NULL ; fmt = NULL ; nm = qs_get_name_attr ( doc , tag , r -> pool ) ; if ( ! nm ) { nm = qs_alloc_zero_byte_string ( r -> pool ) ; } s_output_to_postdata ( hdml , apr_psprintf ( r -> pool , " " , nm , s_get_form_no ( r , hdml ) , hdml -> var_cnt [ hdml -> pure_form_cnt ] ) ) ; mlen = qs_get_maxlength_attr ( doc , tag , r -> pool ) ; val = qs_get_value_attr ( doc , tag , r -> pool ) ; fmt = apr_psprintf ( r -> pool , " " ) ; if ( mlen ) { if ( chxj_chk_numeric ( mlen ) != 0 ) mlen = apr_psprintf ( r -> pool , " " ) ; s_output_to_hdml_card ( hdml , apr_psprintf ( r -> pool , " " , chxj_atoi ( mlen ) , fmt ) ) ; } else s_output_to_hdml_card ( hdml , apr_psprintf ( r -> pool , " " , fmt ) ) ; s_output_to_hdml_card ( hdml , apr_psprintf ( r -> pool , " " ) ) ; s_output_to_hdml_card ( hdml , " \r \n " " \r \n " " \r \n " ) ; if ( val ) s_output_to_init_vars ( hdml , apr_psprintf ( r -> pool , " " , s_get_form_no ( r , hdml ) , hdml -> var_cnt [ hdml -> pure_form_cnt ] , chxj_escape_uri ( r -> pool , val ) ) ) ; else s_output_to_init_vars ( hdml , apr_psprintf ( r -> pool , " " , s_get_form_no ( r , hdml ) , hdml -> var_cnt [ hdml -> pure_form_cnt ] ) ) ; hdml -> var_cnt [ hdml -> pure_form_cnt ] ++ ; }
The substitution processing of tag "input type = password" is done.
The substitution processing of tag " input type = password " is done .
/*--------------------------------------------------------------------------*/ /* Default is a figure input.                                               */ /*--------------------------------------------------------------------------*/