CGI-AppBuilder-HTML

 view release on metacpan or  search on metacpan

HTML.pm  view on Meta::CPAN

    my $vs = 'task,web_url,pid,sel_sn1'; 
    my ($tsk,$url,$pid,$sn) = $s->get_params($vs, $ar); 
    my $pg = (exists $ar->{pg_fns}) ? (eval $ar->{pg_fns}) : {}; 
    my $hlp = (exists $pg->{$pid}{hlp})?$pg->{$pid}{hlp}:'/owb/map_hlp.htm';
      $url .= "?pid=$pid&no_dispform=1&sel_sn1=$sn";
    my $f_a2 = "<a href=\"%s\" target=\"%s\" title=\"%s\">%s</a>\n";     
    my $u1b = "$url&task=disp_new&new_task=run_login"; 
    my $s1b = sprintf $f_a2, $u1b, "R", "Login User", "Login>>";    
       $vs  = 'guid,user_uid,user_pwd,user_sid,user_tmo';
    my ($usr_gid,$usr_uid,$usr_pwd,$usr_sid,$usr_tmo) = $s->get_params($vs,$ar);
    my @aa = ($usr_gid) ? (split /:/, $usr_gid) : (); 
       $usr_sid = $aa[0]	if !$usr_sid; 
       $usr_uid = $aa[1]	if !$usr_uid; 
       $usr_tmo = $aa[2]	if !$usr_tmo; 
    my $sid = (exists $ar->{logout} && $ar->{logout}) ? "" : "&guid=$usr_gid";    
    my $mpt = (exists $pv->{mpt} && $pv->{mpt}) ? $pv->{mpt} : "&task=disp_links";
    my $msg = "($prg) ";     
    
    # 2. get page definition
    my $pd = {}; 
       $pd = eval $ar->{page_def} if exists $ar->{page_def};
    my $t_lgin = "&task=new_task&new_task=run_login$sid";       
    if (! exists $pd->{top}) { 
      my $t_lgin = "&task=disp_new&new_task=run_login$sid";       
      my $t_lgot = "&task=disp_new&new_task=run_logout$sid";       

HTML.pm  view on Meta::CPAN

    my $pv = (exists $ar->{page_var}) ? (eval $ar->{page_var}) : {}; 
    $s->echo_msg("ERR: ($prg) $@", 0) if $@;      
    
    my $vs = 'web_url,pid,sel_sn1,log_outdir,ds'; 
    my ($url,$pid,$sn,$ldr,$ds) = $s->get_params($vs, $ar); 
      $url .= "?pid=$pid&no_dispform=1&sel_sn1=$sn";
    my $f_a2 = "<a href=\"%s\" target=\"%s\" title=\"%s\">%s</a>\n";     
    my $u1b = "$url&task=disp_new&new_task=run_login"; 
    my $s1b = sprintf $f_a2, $u1b, "R", "Login User", "Login>>";    
       $vs  = 'guid,user_uid,user_pwd,user_sid,user_tmo';
    my ($usr_gid,$usr_uid,$usr_pwd,$usr_sid,$usr_tmo) = $s->get_params($vs,$ar);

    # my $sid = "&user_uid=$usr_uid&user_sid=$usr_sid&user_tmo=$usr_tmo";    
    my $sid = "&guid=$usr_gid";    
    my $mpt = (exists $pv->{mpt} && $pv->{mpt}) ? $pv->{mpt} : "&task=disp_links";
    my $msg = "($prg) ";     
        
    # 2. get page definition
    my $pd = {}; 
       $pd = eval $ar->{page_def} if exists $ar->{page_def};
    if (! exists $pd->{frd}) { 
      $pd->{frd} = [
        {cols=>"1/4,1/4,1/4,1/4",frameborder=>'no',border=>'0',framespacing=>'0'},[
        {src=>"$url&task=disp_client$sid",name=>"D1"},

HTML.pm  view on Meta::CPAN

    my $pv  = (exists $ar->{page_var}) ? (eval $ar->{page_var}) : {};    
    $s->echo_msg("ERR: ($prg) $@", 0) if $@;  

    my $vs = 'task,web_url,pid,sel_sn1'; 
    my ($tsk,$url,$pid,$sn) = $s->get_params($vs, $ar); 
      $url .= "?pid=$pid&no_dispform=1&sel_sn1=$sn";
    my $f_a2 = "<a href=\"%s\" target=\"%s\" title=\"%s\">%s</a>\n";     
    my $u1b = "$url&task=disp_new&new_task=run_login"; 
    my $s1b = sprintf $f_a2, $u1b, "R", "Login User", "Login>>";    
       $vs  = 'guid,user_uid,user_pwd,user_sid,user_tmo';
    my ($usr_gid,$usr_uid,$usr_pwd,$usr_sid,$usr_tmo) = $s->get_params($vs,$ar);

    # my $sid = "&user_uid=$usr_uid&user_sid=$usr_sid&user_tmo=$usr_tmo";    
    my $sid = ($tsk =~ /logout$/i) ? "&guid=$usr_gid&logout=1" : "&guid=$usr_gid";    
    my $mpt = (exists $pv->{mpt} && $pv->{mpt}) ? $pv->{mpt} : "&task=disp_links";
    my $msg = "($prg) "; 
    if (!$usr_gid) {
      $msg = "No user credential ($usr_gid)."; 
      print $q->header("text/html");
      print $q->start_html(%{$ar->{html_header}});
      $s->disp_param($ar->{_sql_output}) if exists $ar->{_sql_output}; 
      print "$msg<br> Please $s1b<br>\n";
      print $q->end_html; 
      exit;
    } else { 
      my @ss = split /:/, $usr_gid;
      $usr_sid = $ss[0] if !$usr_sid;
      $usr_uid = $ss[1] if !$usr_uid;
      $usr_tmo = $ss[2] if !$usr_tmo;
    }    
    my $op = (exists $ar->{_sql_output}) ? $ar->{_sql_output} : [];
    if (exists $ar->{out_num} && $ar->{out_num} > 0) {
      print $q->header("text/html");
      $ar->{html_header}{-target} = "R";
      print $q->start_html(%{$ar->{html_header}});
      print "<pre>\n@$op\n</pre>\n";

HTML.pm  view on Meta::CPAN

  # $s->disp_param($ar);
  my $prg = 'AppBuilder::HTML->disp_linkedfiles';

  if (ref($pr) !~ /^ARRAY/ || !@$pr)  {
    $s->echo_msg("ERR: ($prg) no files to be linked.", 0);
    return; 
  }

  my $vs = 'pid,sid,guid,script_url';
  my ($pid,$sid,$usr_gid,$url) = $s->get_params($vs,$ar); 
  my $ug = ($usr_gid) ? "&guid=$usr_gid" : ""; 
  
  my $u1  = "$url?pid=$pid&sel_sn1=$sid$ug&task=disp_file&f=";
  my $f_aa = "<a href=\"%s\" target=R>%s</a>\n"; 
  my $f_a2 = "<a href=\"%s\" target=\"%s\" title=\"%s\">%s</a>\n"; 
  my $f_li = "  <li><a href=\"%s\">%s</a></li>\n";  

  my $t = "<ul>\n"; 
  for my $i (0..$#$pr) {
    my $f = $pr->[$i];
    my ($fname, $path, $sfx) = fileparse($f,qr{\..*});