📄 update.pl

📁 check and update program
💻 PL
字号:
#!/usr/bin/perl


#######################################
##### Get the cmdline parameters#######
#######################################
$update=$ARGV[0];
$cr_number=$ARGV[1];
$cr_Summary=$ARGV[2];
$component=$ARGV[3];
$rel=$ARGV[4];
$rp=$ARGV[5];
$engineer=$ARGV[6];
$reporter=$ARGV[7];
$type=$ARGV[8];
$fix=$ARGV[9];
$status=$ARGV[10];
$rel_cr=$ARGV[11];
$date_updated=$ARGV[12];
$description=$ARGV[13];


$update=~tr/+/ /;
$cr_number=~tr/+/ /;
$cr_Summary=~tr/+/ /;
$component=~tr/+/ /;
$rel=~tr/+/ /;
$rp=~tr/+/ /;
$engineer=~tr/+/ /;
$reporter=~tr/+/ /;
$type=~tr/+/ /;
$fix=~tr/+/ /;
$status=~tr/+/ /;
$rel_cr=~tr/+/ /;
$date_updated=~tr/+/ /;
$description=~tr/+/ /;

$update=~ s/^\s+|\s+$//g;
$cr_number=~ s/^\s+|\s+$//g;
$cr_Summary=~ s/^\s+|\s+$//g;
$component=~ s/^\s+|\s+$//g;
$rel=~ s/^\s+|\s+$//g;
$rp=~ s/^\s+|\s+$//g;
$engineer=~ s/^\s+|\s+$//g;
$reporter=~ s/^\s+|\s+$//g;
$type=~ s/^\s+|\s+$//g;
$fix=~ s/^\s+|\s+$//g;
$status=~ s/^\s+|\s+$//g;
$rel_cr=~ s/^\s+|\s+$//g;
$date_updated=~ s/^\s+|\s+$//g;
$description=~ s/^\s+|\s+$//g;


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

###############################################################
###if for some reason, the no. of parameters is not correct ###
### simply quit and send a message back. ######################
###############################################################
        $updateline= $cr_number."|".$cr_Summary."|".$component."|".$rel."|".$rp."|".$engineer."|".$reporter."|".$type."|".$fix."|".$status."|".$rel_cr."|".$description."|".$date_updated;

        $datafile1 = "tier4.cl";
        $datafile2 = "tier42.cl";
        
if (!($update == 1||$update == 2||$update==3||$update==4)) { 

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


        ################################
        ### Append a new line     ######
        ################################
        
        $flag=0;      ##flag whether the cr_number is existd
        
        open(OUT,"$datafile1");
        
        while($readline=<OUT>)
        {
         chomp($readline);
         @list=split(/\|/,$readline);
         $length=@list;
             if($length==13)
             {
        	  if($cr_number eq $list[0])
        	  {
        	  $flag++;
        	  }
             }
        }
        
      	close(OUT);
      	
      	if($flag>0)
      	{
      $HTMLfile= qq~
                <html> <head><title>ADD UNSUCCESSFULLY</title></head>
                <body>
                        Sorry!The cr_number have existed, the update action you just performed does not take effect.<br>
                        Please use the query to edit it!<br>
                </body>
                </html>
        ~;
      	}
      	else
      	{
        open(OUT,">>$datafile1");
        print OUT "$updateline\n";
        close(OUT);


        $HTMLfile= qq~
                <html> <head><title>Added succesfully</title></head>
                <body>
                        <b>The escalation you just edited:</b>
                        <br>&nbsp &nbsp $updateline &nbsp &nbsp<br>
                        <b> has successfully added</b>
      <br>
      <br>
      <br>
      <br>
      <p align=left>
      <A HREF="http://bjwin2k2/cce/index.html"><i>Back to Home</i></A>
      </p>
                </body>
                </html>
        ~;

        }
        $flag=0;
print $HTMLfile;
}
elsif($update==2)  

################################
#####creat the edit html########
################################

{

	
	
   $HTMLfile=qq~
<HTML><HEAD>
<SCRIPT language=JavaScript>		<!--		function assign(){}//to confirm the fields, including validation, before they are submitted function myConfirm() {    if (document.input.date_updated.value=='')        	{alert('date_update is required for any TUXEDO CCE Regression CR. Please try again!'); return false;}	    document.output.cr_number.value=document.input.cr_number.value; //cr_number    document.output.cr_Summary.value=document.input.cr_Summary.value; //cr_Summary    document.output.component.value=document.input.component.value; //component	    document.output.rel.value=document.input.rel.value; //rel    document.output.rp.value=document.input.rp.value; //rp	    document.output.engineer.value=document.input.engineer.value; //engineer    document.output.reporter.value=document.input.reporter.value; //reporter    document.output.type.value=document.input.type.value; //type    document.output.fix.value=document.input.fix.value; //fix    document.output.status.value=document.input.status.value; //status
    document.output.rel_cr.value=document.input.rel_cr.value; //rel_cr    document.output.date_updated.value=document.input.date_updated.value; //date_updated    document.output.description.value=document.input.description.value; //description        var names = new Array("cr_number","cr_Summary","component","rel","rp","engineer","reporter","type","fix","status","rel_cr","date_updated","description");    var windowHandle = window.open("","msgwin","width=600,height=500,scrollbars=yes");
    if (!windowHandle.opener)       windowHandle.opener = self;    windowHandle.document.write("<HTML><HEAD><TITLE>For your information</TITLE></HEAD><BODY onBlur=\\"self.focus()\\"><table border=1>");    for (var l=0;l<names.length;l++)	    windowHandle.document.write("<TR><TD WIDTH=2%25 ALIGN=LEFT >"		+names[l]+"<TD WIDTH=15%25 ALIGN=LEFT>"		+document.output.elements[l+1].value+"</TD></TR>");    windowHandle.document.write("</table>");    windowHandle.document.write('<FORM>');
    windowHandle.document.write("<BR><br>Press OK to submit an Regression CR containing the above information?<BR><BR>");	
    windowHandle.document.write('<TABLE align=center>');
    windowHandle.document.write("<TR><TD><INPUT align=center TYPE=button VALUE=' O   k ' onClick=\\"opener.document.output.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();	
} //clear all the text fieldsfunction clearText() {if (document.all){	for (var i=0;i<document.forms[0].elements.length;i++)		if ((document.forms[0].elements[i].type == "text")||(document.forms[0].elements[i].type == "textarea"))			document.forms[0].elements[i].value = '';				}else	if (document.layers){	for (var i=0;i<document.forms[0].elements.length;i++)		if ((document.forms[0].elements[i].type == "text")||(document.forms[0].elements[i].type == "textarea"))			document.forms[0].elements[i].value = '';				for (var i=0;i<document.layers["num2"].document.forms[0].elements.length;i++)		if (document.layers["num2"].document.forms[0].elements[i].type == "text")			document.layers["num2"].document.forms[0].elements[i].value = '';				}}//--></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 = "4">Edit A TUXEDO CCE Regression CR:</font></td></tr>  <TBODY></TBODY></TABLE>
  
  
<FORM name=input action=http://lcui01:11120 method=post>
<table border=1>
<TR><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">cr_number</td><TD>
   ~;
print $HTMLfile;
#################################################
#################################################
#################################################


        open(OUT,"$datafile1");
        
        while($readline=<OUT>)
        {
         chomp($readline);
         @list=split(/\|/,$readline);
         $length=@list;
             if($length==13)
             {
        	  if($cr_number eq $list[0])
        	  {

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

for($a=1;$a<13;$a++)
{
#$list2[$a]=~tr/'/\'/;
}
#$cr_Summary=$list[1];
#$component=$list[2];
#$rel=$list[3];
#$rp=$list[4];
#$engineer=$list[5];
#$reporter=$list[6];
#$type=$list[7];
#$fix=$list[8];
#$status=$list[9];
#$rel_cr=$list[10];
#$date_updated=$list[12];
#$description=$list[11];        	  	
        	  }
             }
        }
        
      	close(OUT);	


$HTMLfile=$cr_number;
print $HTMLfile;

$HTMLfile=qq~</TD><INPUT type=hidden name=cr_number value='~;
print $HTMLfile;    
    
$HTMLfile=$cr_number;
print $HTMLfile;  
    
$HTMLfile=qq~'><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">cr_Summary</td><td ><TEXTAREA name=cr_Summary rows=3 cols=30>~;
print $HTMLfile;   
    
$HTMLfile=$list2[1];
print $HTMLfile;

$HTMLfile=qq~</TEXTAREA></TD></TR><tr><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">component</td><td ><input size=30 name=component value='~;
print $HTMLfile;
    
$HTMLfile=$list2[2];
print $HTMLfile;  
	
$HTMLfile=qq~'></TD>
<TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">rel</td><td ><input size=30 name=rel value='~;	
print $HTMLfile;

$HTMLfile=$list2[3];
print $HTMLfile;  

$HTMLfile=qq~'></TD></TR>
<tr><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">rp</td><td ><input size=30 name=rp value='~;	
print $HTMLfile;

$HTMLfile=$list2[4];
print $HTMLfile;

$HTMLfile=qq~'></TD>
<TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">engineer</td><td ><input size=30 name=engineer value='~;	
print $HTMLfile;

$HTMLfile=$list2[5];
print $HTMLfile;

$HTMLfile=qq~'></TD></TR>
<tr><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">reporter</td><td ><input size=30 name=reporter value='~;	
print $HTMLfile;

$HTMLfile=$list2[6];
print $HTMLfile;

$HTMLfile=qq~'></TD>
<TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">type</td><td ><input size=30 name=type value='~;	
print $HTMLfile;

$HTMLfile=$list2[7];
print $HTMLfile;

$HTMLfile=qq~'></TD></TR>
<tr><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">fix</td><td ><input size=30 name=fix value='~;	
print $HTMLfile;
	
$HTMLfile=$list2[8];
print $HTMLfile;

$HTMLfile=qq~'></TD>
<TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">status</td><td ><input size=30 name=status value='~;	
print $HTMLfile;

$HTMLfile=$list2[9];
print $HTMLfile;

$HTMLfile=qq~'></TD></TR>
<tr><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">rel_cr</td><td ><input size=30 name=rel_cr value='~;	
print $HTMLfile;
	
$HTMLfile=$list2[10];
print $HTMLfile;

$HTMLfile=qq~'></TD>
<TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">date_updated</td><td ><input size=30 name=date_updated value='~;	
print $HTMLfile;

$HTMLfile=$list2[12];
print $HTMLfile;

$HTMLfile=qq~'></TD></TR>
<tr><TD WIDTH=2%25 ALIGN=LEFT bgcolor="#dcdcdc">description</td><td colspan=3><TEXTAREA name=description rows=18 cols=100 >~;	
print $HTMLfile;

$HTMLfile=$list2[11];
print $HTMLfile;

$HTMLfile=qq~</TEXTAREA></TD></TR>
</table>
</FORM>

<FORM name=output action=http://lcui01:11120 method=post><INPUT type=hidden name=update value=3> <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><A name=dyn></A>
<FORM name=dynamicfoot>
<TABLE align=center>
  <TBODY>
  <TR>
    <TD><INPUT onclick=myConfirm() type=button value="Submit it" name=upload> 
      &nbsp;&nbsp;&nbsp; <INPUT onclick=clearText() type=button value="Reset text"> 
</TD></TR></TBODY></TABLE>
</FORM></BODY></HTML>
~;	
print $HTMLfile;

}
elsif($update==3)   

#############################
########edit#################
#############################

{
        open(OUT,"$datafile1");
        open(OUTNEW,">$datafile2");
        
        while($readline=<OUT>)
        {
          chomp($readline);
          @list=split(/\|/,$readline);
          $length=@list;
          if($length==13)
          {
             if($cr_number eq $list[0])
             {
             print OUTNEW "$updateline\n";
             }
             else
             {
             print OUTNEW "$readline\n";
             }
          }
        }
      	close(OUT);
        close(OUTNEW);
        rename $datafile2, $datafile1;
        
        $HTMLfile= qq~
                <html> <head><title>Updated succesfully</title></head>
                <body>
                        <b>The escalation you just edited:</b>
                        <br>&nbsp &nbsp $updateline &nbsp &nbsp<br>
                        <b> has been successfully added</b>
      <br>
      <br>
      <br>
      <br>
      <p align=left>

      </p>
                </body>
                </html>
        ~;
print $HTMLfile;

}
else

##########################################
########del###############################
##########################################

{
        open(OUT,"$datafile1");
        open(OUTNEW,">$datafile2");
        
        while($readline=<OUT>)
        {
          chomp($readline);
          @list=split(/\|/,$readline);
          $length=@list;
          if($length==13)
          {
             if($cr_number eq $list[0])
             {
             }
             else
             {
             print OUTNEW "$readline\n";
             }
          }
        }
      	close(OUT);
        close(OUTNEW);
        rename $datafile2, $datafile1;
        
        $HTMLfile= qq~
                <html> <head><title>Updated succesfully</title></head>
                <body>
                        <b>The escalation you just edited:</b>
                        <br>&nbsp &nbsp $updateline &nbsp &nbsp<br>
                        <b> has been successfully deleted</b>
      <br>
      <br>
      <br>
      <br>
      <p align=left>

      </p>
                </body>
                </html>
        ~;
print $HTMLfile;

}
💿 文件大小 49 K
👤 上传用户 lqlm521
📂 所属分类其他
🏷️ 相关标签

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

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