📄 query.pl.bak

📁 check and update program
💻 BAK
📖 第 1 页 / 共 2 页
字号:
上一页 12

       $outline=$name[12];
       print $outline;

       $outline="[";
       print $outline;

       $outline=$line;
       print $outline;

       $outline="]='";
       print $outline;

       $outline=$list[12];
       print $outline;

       $outline="';</SCRIPT>";
       print $outline;

       $outline="</tr>";
       print $outline;

       $outline=qq~
       <TD align=left><A>$name[11]</A></TD>
       <TD align=left colspan=3><A>
       ~;
       print $outline;

       $descriptionlist=$list[11];
       @descriptionarray=split(/%0D%0A/,$descriptionlist);
       $deslength=@descriptionarray;
              for($i=1;$i<$deslength;$i++)
              {
                 $descriptionlist=~ s/%0D%0A/<br>/;
              }
       $outline=$descriptionlist;
       
       if($outline eq "")
       {
              $outline="&nbsp";
              }
        print $outline;

       $outline=qq~
       </A></TD>
       <SCRIPT>
       ~;
       print $outline;

       $outline=$name[11];
       print $outline;

       $outline="[";
       print $outline;

       $outline=$line;
       print $outline;

       $outline="]='";
       print $outline;

       $outline=$list[11];
       print $outline;

       $outline="';</SCRIPT>";
       print $outline;

       $outline="</tr>";
       print $outline;

      $outline=qq~
      </TBODY></TABLE>
      <br></br>
      ~;
      print $outline;

         }
      }
   }
}
##########################################
##########################################
##########################################
close(IN);

$outline= qq~
    </FORM>
<FORM name=output1 action=http://lcui01:11120 method=post>
<INPUT type=hidden name=update value=2>
<INPUT type=hidden name=cr_number>
<INPUT type=hidden name=cr_Summary>
<INPUT type=hidden name=component>
<INPUT type=hidden name=rel>
<INPUT type=hidden name=rp>
<INPUT type=hidden name=engineer>
<INPUT type=hidden name=reporter>
<INPUT type=hidden name=type>
<INPUT type=hidden name=fix>
<INPUT type=hidden name=status>
<INPUT type=hidden name=rel_cr>
<INPUT type=hidden name=date_updated>
<INPUT type=hidden name=description>
</FORM>
<FORM name=output2 action=http://lcui01:11120 method=post>
<INPUT type=hidden name=update value=4>
<INPUT type=hidden name=cr_number>
<INPUT type=hidden name=cr_Summary>
<INPUT type=hidden name=component>
<INPUT type=hidden name=rel>
<INPUT type=hidden name=rp>
<INPUT type=hidden name=engineer>
<INPUT type=hidden name=reporter>
<INPUT type=hidden name=type>
<INPUT type=hidden name=fix>
<INPUT type=hidden name=status>
<INPUT type=hidden name=rel_cr>
<INPUT type=hidden name=date_updated>
<INPUT type=hidden name=description>
</FORM>


    </body>
    </html>
~;
print $outline;
}
#########################################################################
#########################################################################
###################$query=2     list all        #########################

else{

           $outline=qq~
<HTML>
<HEAD>
<SCRIPT language=JavaScript>
                <!--
var cr_number = new Array();
var cr_Summary = new Array();
var component = new Array();
var rel = new Array();
var rp = new Array();
var engineer = new Array();
var reporter = new Array();
var type = new Array();
var fix = new Array();
var status = new Array();var cr_number = new Array();
var rel_cr = new Array();
var date_updated = new Array();
var description = new Array();
var flag=-1;

  function fedit()
{

if(flag==-1)
{
alert('no object can be edited.')
}
else
{
    document.output1.cr_number.value=cr_number[flag]; //cr_number
    document.output1.cr_Summary.value=cr_Summary[flag]; //cr_Summary
    document.output1.component.value=component[flag]; //component
    document.output1.rel.value=rel[flag]; //rel
    document.output1.rp.value=rp[flag]; //rp
    document.output1.engineer.value=engineer[flag]; //engineer
    document.output1.reporter.value=reporter[flag]; //reporter
    document.output1.type.value=type[flag]; //type
    document.output1.fix.value=fix[flag]; //fix
    document.output1.status.value=status[flag]; //status
    document.output1.rel_cr.value=rel_cr[flag]; //rel_cr
    document.output1.date_updated.value=date_updated[flag]; //date_updated
    document.output1.description.value=description[flag]; //description



document.output1.submit();

}
}

  function fdelete()
{

if(flag==-1)
{
alert('no object can be deleted.')
}
else
{
    document.output2.cr_number.value=cr_number[flag]; //cr_number
    document.output2.cr_Summary.value=cr_Summary[flag]; //cr_Summary
    document.output2.component.value=component[flag]; //component
    document.output2.rel.value=rel[flag]; //rel
    document.output2.rp.value=rp[flag]; //rp
    document.output2.engineer.value=engineer[flag]; //engineer
    document.output2.reporter.value=reporter[flag]; //reporter
    document.output2.type.value=type[flag]; //type
    document.output2.fix.value=fix[flag]; //fix
    document.output2.status.value=status[flag]; //status
    document.output2.rel_cr.value=rel_cr[flag]; //rel_cr
    document.output2.date_updated.value=date_updated[flag]; //date_updated
    document.output2.description.value=description[flag]; //description

    var windowHandle = window.open("","msgwin","width=400,height=300,scrollbars=yes");

if (!windowHandle.opener)
    windowHandle.opener = self;
    windowHandle.document.write("<HTML><HEAD><TITLE>DELETE</TITLE></HEAD><BODY>");
    windowHandle.document.write("<BR><br>Are you sure to delete the cr_number:"+cr_number[flag]+"<BR><BR>");
    windowHandle.document.write("<FORM name=submit>");
    windowHandle.document.write('<TABLE align=center>');
    windowHandle.document.write("<TR><TD><INPUT align=center TYPE=button VALUE=' O   k ' onClick=\\"opener.document.output2.submit();self.close()\\">&nbsp;&nbsp;&nbsp;<INPUT align=center TYPE=button VALUE=Cancel onClick=\\"self.close()\\"></TR></TD>");
    windowHandle.document.write('</TABLE></FORM></BODY></html>');
    windowHandle.document.close();

}
}
//-->
</SCRIPT>
</HEAD>
<BODY text=#000000 vLink=#ad0031 link=#00208c bgColor=#ffffee><A name=top></A>
<TABLE cellSpacing=2 cellPadding=2 align=center border=0>
 <tr><td align=left><font size = "5">Result Of Regression CR Query:</font></td></tr>
  <TBODY></TBODY></TABLE>
<a align="left"><font size="3">TERMINOLOGY</font><br>
<a align="left"><font size="3">
The following abbreviations are used to describe regression type.</font><br>
<a align="left"><font  size="3">NSP - Not Solving (Customer's) Problem</font><br>
<a align="left"><font size="3">IB  - Introducing Bug</font><br>
<a align="left"><font size="3">CB  - Changing Behavior (Ususally the behavior was changed for good reason.</font><br>
<a align="left"><font size="3">     But such CRs could also break testcases as well as customer's
      application, if not carefully handled and/or release-noted.)</font><br>

  <FORM name=input>

    ~;
    print $outline;



#################################################
        $datafile = "tier4.cl";
        open(IN,"$datafile");
        $line=-1;
#################################################
#################################################
#################################################

while($readline=<IN>)
{
chomp($readline);

@list=split(/\|/,$readline);
$length=@list;
   if($length==13)
   {
      $line++;

         for($a=0;$a<11;$a++)
         {
                 if($a==0&&$line==0)
                 {
                $outline=qq~
                  <TABLE width="85%25" align=center border=2><TBODY>
                 <tr>
                 <TD align=left  WIDTH="13%25" bgcolor="#dcdcdc"><A>cr_number</A></TD>
                 <td  WIDTH="35%25"><A href="http://bugs.bea.com/WebClarify/CRView?CR=CR$list[$a]">
                 ~;
                 }
                 elsif($a==0&&$line!=0)
                 {
                $outline=qq~
                  <TABLE width="85%25" align=center border=2><TBODY>
                 <tr>
                 <TD align=left  WIDTH="13%25" bgcolor="#dcdcdc"><A>cr_number</A></TD>
                 <td  WIDTH="35%25"><A href="http://bugs.bea.com/WebClarify/CRView?CR=CR$list[$a]">
                 ~;
                 }
                 else
                 {
                $outline=qq~
                <TD align=left  WIDTH="13%25" bgcolor="#dcdcdc"><A>$name[$a]</A></TD>
                <TD align=left><A>
                ~;
                 }
                print $outline;

                $outline=$list[$a];

                if($outline eq "")
               {
                  $outline="&nbsp";
                  }
                print $outline;

                $outline=qq~
                </A></TD>
                <SCRIPT>
                ~;
                print $outline;

                $outline=$name[$a];
                print $outline;

                $outline="[";
                print $outline;

                $outline=$line;
                print $outline;

                $outline="]='";
                print $outline;

                $outline=$list[$a];
                print $outline;

                $outline="';</SCRIPT>";
                print $outline;

                if($a==1||$a==3||$a==5||$a==7||$a==9)
                {
                	if($a==1)
                	{
                		$outline=qq~
                		<TD ROWSPAN=7 WIDTH="3%25"><INPUT onclick="flag=$line;fedit()" type=button value="  edit   "><br><INPUT onclick="flag=$line;fdelete()" type=button value="delete"></TD>
                		~;
                		print $outline;
                	}                	
                $outline="</tr><tr>";
                print $outline;
                }

          }
       $outline=qq~
       <TD align=left bgcolor="#dcdcdc"><A>$name[12]</A></TD>
       <TD align=left><A>
       ~;
       print $outline;

       $outline=$list[12];

       if($outline eq "")
       {
              $outline="&nbsp";
              }
        print $outline;

       $outline=qq~
       </A></TD>
       <SCRIPT>
       ~;
       print $outline;

       $outline=$name[12];
       print $outline;

       $outline="[";
       print $outline;

       $outline=$line;
       print $outline;

       $outline="]='";
       print $outline;

       $outline=$list[12];
       print $outline;

       $outline="';</SCRIPT>";
       print $outline;

       $outline="</tr>";
       print $outline;

       $outline=qq~
       <TD align=left bgcolor="#dcdcdc"><A>$name[11]</A></TD>
       <TD align=left colspan=3><A>
       ~;
       print $outline;
       
       $descriptionlist=$list[11];
       @descriptionarray=split(/%0D%0A/,$descriptionlist);
       $deslength=@descriptionarray;
              for($i=1;$i<$deslength;$i++)
              {
                 $descriptionlist=~ s/%0D%0A/<br>/;
              }
       $outline=$descriptionlist;
              

       if($outline eq "")
       {
              $outline="&nbsp";
              }
        print $outline;

       $outline=qq~
       </A></TD>
       <SCRIPT>
       ~;
       print $outline;

       $outline=$name[11];
       print $outline;

       $outline="[";
       print $outline;

       $outline=$line;
       print $outline;

       $outline="]='";
       print $outline;

       $outline=$list[11];
       print $outline;

       $outline="';</SCRIPT>";
       print $outline;

       $outline="</tr>";
       print $outline;

      $outline=qq~
      </TBODY></TABLE>
      <br></br>
      ~;
      print $outline;

}
}
close(IN);

$outline= qq~
    </FORM>
<FORM name=output1 action=http://lcui01:11120 method=post>
<INPUT type=hidden name=update value=2>
<INPUT type=hidden name=cr_number>
<INPUT type=hidden name=cr_Summary>
<INPUT type=hidden name=component>
<INPUT type=hidden name=rel>
<INPUT type=hidden name=rp>
<INPUT type=hidden name=engineer>
<INPUT type=hidden name=reporter>
<INPUT type=hidden name=type>
<INPUT type=hidden name=fix>
<INPUT type=hidden name=status>
<INPUT type=hidden name=rel_cr>
<INPUT type=hidden name=date_updated>
<INPUT type=hidden name=description>
</FORM>
<FORM name=output2 action=http://lcui01:11120 method=post>
<INPUT type=hidden name=update value=4>
<INPUT type=hidden name=cr_number>
<INPUT type=hidden name=cr_Summary>
<INPUT type=hidden name=component>
<INPUT type=hidden name=rel>
<INPUT type=hidden name=rp>
<INPUT type=hidden name=engineer>
<INPUT type=hidden name=reporter>
<INPUT type=hidden name=type>
<INPUT type=hidden name=fix>
<INPUT type=hidden name=status>
<INPUT type=hidden name=rel_cr>
<INPUT type=hidden name=date_updated>
<INPUT type=hidden name=description>
</FORM>

    </body>
    </html>
~;
print $outline;

}



#    var windowHandle = window.open("","msgwin","width=400,height=300,scrollbars=yes");

#if (!windowHandle.opener)
#    windowHandle.opener = self;
#    windowHandle.document.write("<HTML><HEAD><TITLE>EDIT</TITLE></HEAD><BODY>");
#    windowHandle.document.write("<BR><br>Are you sure to edit the cr_number:"+cr_number[flag]+"<BR><BR>");
#    windowHandle.document.write("<FORM name=submit>");
#    windowHandle.document.write('<TABLE align=center>');
#    windowHandle.document.write("<TR><TD><INPUT align=center TYPE=button VALUE=' O   k ' onClick=\\"opener.document.output1.submit();self.close()\\">&nbsp;&nbsp;&nbsp;<INPUT align=center TYPE=button VALUE=Cancel onClick=\\"self.close()\\"></TR></TD>");
#    windowHandle.document.write('</TABLE></FORM></BODY></html>');
#    windowHandle.document.close();
上一页 12
💿 文件大小 49 K
👤 上传用户 lqlm521
📂 所属分类其他
🏷️ 相关标签

#program #update #check #and
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -