Sorry guys... I found out I wasn't ending the while loop properly.. opps...
the good news is that i have it working now.. Thanks anyway.. <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Hello.. I am having some problems with this sub... I am trying to take some > input box and send it to a file on a remote system.. Well, that works ok, > but I would like to rename the file when I am done, because a process polls > for the file.. Anyhow, I think my code is not releasing the handle on the > file after it write it, but I cannot for the life of me figure out how to do > so. Thanks for any help... > > sub FTP_INBOX{ > # Variables > my $widget = $OutputText->Subwidget("text"); > tie *STDOUT, ref $widget, $widget; > $counter=1; > my $loop_check= 0; > my $ftp_site = "f1n27-sw"; > my $destination = "/prod/egate/data/journal"; > my $tFilename = "unknown"; > my $pFilename = "unknown"; > > # Start FTP: connect and login > my $ftp = Net::FTP->new($ftp_site) > or die "FTP: Couldn't connect: [EMAIL PROTECTED]"; > $ftp->login($uname_EGATE, $passwd_EGATE) > or die "FTP: Couldn't login."; > # Specify a binary tranfer > $ftp->binary() > or die "FTP: Couldn't specify binary type."; > $ftp->cwd("$destination") or > die "\nBackup: No connection made, check username/password.\n\n"; > # loop over all the records in the input box and send them over. > if ($_[0] eq "TDS") { > $tFilename = "tTDS.dat"; > $pFilename = "pTDS.dat"; > print qq(\n SENDING: TDS.dat); > } else { > $tFilename = "tSCM.dat"; > $pFilename = "pSCM.dat"; > print qq(\n SENDING: SCM.dat); > } > my $ftpfile = $ftp->stor("$tFilename"); > # $ftp->rnto("$pFilename"); > while ($loop_check == 0) > { > my $peg=$PegText->get($counter . '.0', $counter . '.0 lineend'); > my $pegSize=1024; > $counter++; > if ( $peg eq "") > {$loop_check++} > { > $ftpfile ->write( $peg , length $peg); > }; > }; > #$ftpfile->close(); > $ftpfile = $ftp->close(); > > $ftp->rename( $tFilename , $pFilename ); > > # Exit from the ftp session > > $ftp->quit() > or die "FTP: Couldn't quit."; > } > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
