sub cvs_tar_gzip()
{
        ($obt_host, $c_ip, $c_user, $c_passwd, $obt_srcfile) = ( shift, shift, shift, shift, shift );
        chomp( $obt_host, $obt_srcfile, $c_ip, $c_user, $c_paswd );
        my %KP = ( 1 => $obt_host);
        my $REC = &GetRec( $hostfile, \%KP );
        return "1->ERROR : $REC" if ( $REC =~ /(FAILED|NO\sRECORD)/ );

        my ( $host, $ip, $user, $passwd, $supasswd, $pauser, $papasswd ) = split(':',$REC );
        return "ERROR : User not found" unless ( $user );

        #print " Telnet to $sel_ip with User -> $user Password -> $passwd <br> ";
        my $t = Net::Telnet->new( -host => $ip , -timeout => 70, -errmode => "return", Prompt=> $pmt);
        return "ERROR : Telnet To '$host' Failed" unless ( $t );
        $t->login( $user,$passwd );
        my $errr = $t->errmsg;
        return "ERROR : Login failed for '$host': $errr " if ( $t->errmsg ) ;

        my($ldir, $rfile) = $obt_srcfile =~ m/(.*)\/(.*)$/;
        my @Files = ("$rfile") ;

        my $chg_dir = " cd $ldir ";
        @change_dir = $t->cmd( String => $chg_dir, Timeout => 300);

        print " Changed to $ldir directory <br> ";
        return "Error: $! " if ( "@change_dir" =~ /No\s+such\s+file\s+or\s+directory/g);

        my $tar_file =  "$obt_host". "_" . $rfile . ".tar";
        my $tar_cmd = " tar -cvf "."  $tar_file  " . " $rfile ";
        @tar_result = $t->cmd( String => $tar_cmd , Timeout => 30);

 my $gzfile = $tar_file . ".gz";

        if ( "@zip_result" eq "" )
        {
                #return " $tar_file.gz  -> SuccessFully Done ! ";
                print " <br> --> $tar_file.gz  -> SuccessFully Done ! ";
        }
        else
        {
                return " Error : @zip_result ";
        }

        print qq{ CVS INFO =>  $c_ip, $c_user, $c_passwd <br> };

        my $rdir = "/tmp/WA_CVS";               #### Need to inform to the Client abt Temp Path

        $prom = '/\w+>\s*/';
        $ftp_session = "ftp \-n $c_ip ";
        #return " ftp --> $ftp_session \n";
        @Ftp_Session = $t->cmd(String => $ftp_session, Timeout => 60, Prompt => $prom);
        print " Session : <br> @Ftp_Session <br> ";

        $ftp_login = " user $c_user $c_passwd ";
        @Ftp_Login = $t->cmd(String => $ftp_login , Timeout => 60 , Prompt => $prom);
        print " Login :  @Ftp_Login <br> ";

        my $path = " $ldir/$gzfile  $rdir/$gzfile ";
        $ftp_cmd = " put $path ";
        @Ftp_Cmd = $t->cmd(String => $ftp_cmd , Timeout => 60 , Prompt => $prom);

        print " Result : @Ftp_Cmd ";
        print "<br> gunzip file --> $gzfile <br>";
        $bye_cmd = "bye";
        $t->cmd(String => $bye_cmd , Timeout => 60 , Prompt => $prom);

        $cmd = "rm $gzfile";
        &ExeCmd($t, $cmd);

        $t->close;
        my $ret_var_path = $rdir . "/".  $gzfile;
        return ( $ret_var_path );
}
        print qq{ CVS INFO =>  $c_ip, $c_user, $c_passwd <br> };

        my $rdir = "/tmp/WA_CVS";               #### Need to inform to the Client abt Temp Path

        $prom = '/\w+>\s*/';
        $ftp_session = "ftp \-n $c_ip ";
        #return " ftp --> $ftp_session \n";
        @Ftp_Session = $t->cmd(String => $ftp_session, Timeout => 60, Prompt => $prom);
        print " Session : <br> @Ftp_Session <br> ";

        $ftp_login = " user $c_user $c_passwd ";
        @Ftp_Login = $t->cmd(String => $ftp_login , Timeout => 60 , Prompt => $prom);
        print " Login :  @Ftp_Login <br> ";

        my $path = " $ldir/$gzfile  $rdir/$gzfile ";
        $ftp_cmd = " put $path ";
        @Ftp_Cmd = $t->cmd(String => $ftp_cmd , Timeout => 60 , Prompt => $prom);

        print " Result : @Ftp_Cmd ";
        print "<br> gunzip file --> $gzfile <br>";
        $bye_cmd = "bye";
        $t->cmd(String => $bye_cmd , Timeout => 60 , Prompt => $prom);

        $cmd = "rm $gzfile";
        &ExeCmd($t, $cmd);

        $t->close;
        my $ret_var_path = $rdir . "/".  $gzfile;
        return ( $ret_var_path );
}