📄 query.pl.bak

📁 check and update program
💻 BAK
📖 第 1 页 / 共 2 页
字号:
12 下一页
#!/usr/bin/perl

##################################
## Get the cmdline parameters ####
##################################

$query=$ARGV[0];
$cr_number=$ARGV[1];
$rel=$ARGV[2];
$rp=$ARGV[3];

#print $cr_number;

#########################################
### Replace '+' in pattern with ' '######
#########################################

$cr_number=~tr/+/ /;
$rel=~tr/+/ /;
$rp=~tr/+/ /;

#########################################
####trim#################################
#########################################
$cr_number =~ s/^\s+|\s+$//g;
$rel =~ s/^\s+|\s+$//g;
$rp =~ s/^\s+|\s+$//g;

##########################################

if($cr_number eq "")
        {
        $cr_number="+";
        }
if($rel eq "")
        {
        $rel="+";
        }
if($rp eq "")
        {
        $rp="+";
        }

@name=("cr_number","cr_Summary","component","rel","rp","engineer","reporter","type","fix","status","rel_cr","description","date_updated");

############################################
############################################

if (($query != 1)&&($query != 2)) {

        $outline= qq~
                <html> <head><title>UPDATED UNSUCCESSFULLY</title></head>
                <body>
                        For some reason, the query action you just performed does not take effect. Please check your input and make sure there are no characters like newline in the 'decription' or 'recommend' field <br>
                        Sorry!<br>
                </body>
                </html>
        ~;
        print $outline;
}
############################################
elsif($query==1){
           $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;


#  <tr>
#    <TD align=left><A>&nbsp</A></TD>
#    <TD align=left><A>cr_number</A></TD>
#    <TD align=left><A>cr_Summary</A></TD>
#    <TD align=left><A>component</A></TD>
#    <TD align=left><A>rel</A></TD>
#    <TD align=left><A>rp</A></TD>
#    <TD align=left><A>engineer</A></TD>
#    <TD align=left><A>reporter</A></TD>
#    <TD align=left><A>type</A></TD>
#    <TD align=left><A>fix</A></TD>
#    <TD align=left><A>status</A></TD>
#    <TD align=left><A>rel_cr</A></TD>
#    <TD align=left><A>description</A></TD>
#    <TD align=left><A>date_updated</A></TD>
#    </tr>
#################################################
        $datafile = "tier4.cl";
        open(IN,"$datafile");
        $line=-1;
#################################################
#################################################
#################################################



while($readline=<IN>)
{

chomp($readline);

@list=split(/\|/,$readline);
$length=@list;


   if($length==13)
   {
      if(($list[0]  eq $cr_number)||($list[3] eq $rel)||($list[4] eq $rp))
      {
      $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;
      }
      else
      {
      @list1=split(/\//,$list[10]);
      $length=@list1;
      $temp=0;
         for($a=0;$a<$length;$a++)
         {

         $list1[$a]=~ s/^\s+|\s+$//g;
         if($list1[$a] eq $cr_number){$temp++;}
         }

         if($temp>0)
         {
         $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"><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"><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;
12 下一页
💿 文件大小 49 K
👤 上传用户 lqlm521
📂 所属分类其他
🏷️ 相关标签

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

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