Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl , uploading empty file.
Top Forums Shell Programming and Scripting Perl , uploading empty file. Post 302829089 by Anupam_Halder on Thursday 4th of July 2013 03:49:24 AM
Old 07-04-2013
Perl , uploading empty file.
Hi

The below script used to work fine. Suddenly it's uploading empty file. I am very new to perl. Please help me to find out the problem.


Code:
#!/usr/bin/perl
#script: upload.pl

use CGI qw/:standard/;

print header,
    start_html('File upload');
print_form();
print_results() if param;
print end_html;

sub print_form {
  print h3('Upload Fusion File');
  
  print start_multipart_form(),
    filefield(-name=>'upload',-size=>40),
    submit(-label=>'Upload File'),
    end_form;
}

sub print_results {
  my $length;
  my $file = param('upload');
  print "<hr>";
  if (!$file) {
     print '<br>Please select file to upload';
  } else {
    ($filename) = (split /\\/ , (split /\// , $file)[-1])[-1];
    #$filename = lc $filename;
    open(UPLOAD, ">./fusion_files/$filename") || 
      print "Cannot open $filename: $!";

    while (<$file>) {
      $length += length($_);
      print UPLOAD $_;
    }
    close(UPLOAD);
    print '<br><b>Showing process activities</b>';
    print '<br>File Name : ',$filename, '<br>File Size: ',$length,' bytes';
    print '<br>Starting main processing.....<br>This may take few minutes depending on number of lines in the file.';
    print '<SCRIPT language="JavaScript"> top.work.frame3.location.href="'.$ENV{'PANEL_WEB'}.'/adr/core/load/?M=D";</SCRIPT>';
  }
}

 

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Perl Uploading Files

Using perl 5.8.0, Linux 2.4.20-30.9, RedHat 9.0. We have many .cgi's that allow privileged users to upload files to the server through a web browser. We've had these .cgi's for years and have never had any problems with them. Recently the files being uploaded are sometimes being given 600... (16 Replies)
Discussion started by: sstevens
16 Replies

2. Shell Programming and Scripting

printing an empty line in a file (perl)

I know this must be really easy, but i can't get it to work I've got a perl script, with a file. I want to print an empty line, and the following doesn't seem to work: print nameoffile "\n" thanks for your help!! (3 Replies)
Discussion started by: kfad
3 Replies

3. Shell Programming and Scripting

Uploading a flat file into the database.

I want to upload a text file into the database. what is the command for that? Thanks in Advance. (1 Reply)
Discussion started by: Balkrishna
1 Replies

4. UNIX for Dummies Questions & Answers

How to check for empty file in Perl?

Hi, May I know how to check for empty file in Perl. Iam missing something, somewhere. #!/usr/bin/perl my $open_dir = '/path/'; my $file; my $ma = "abc_.*.\.psv\$" opendir(VAR, $open_dir) or die "Can't open $oepn_dir: $!\n"; while( defined ($file = readdir VAR) ) #read all... (1 Reply)
Discussion started by: deepakwins
1 Replies

5. UNIX for Dummies Questions & Answers

Getting same exit status for empty and non empty file

Hi All, I am checking for a empty input file to do some further action , but I am getting exit status 0 in both the cases , for empty and non empty file both. The value of $? is coming 0 in if part also and else part too. #!/bin/ksh if ]; then echo "data" # exit 0 echo "$?" else... (4 Replies)
Discussion started by: mavesum
4 Replies

6. Solaris

Issue With File Permissions while uploading

one of the business users is ftping files into unix box using user name ftp_user, where as i am using infa_user to login into same unix box. When i am trying to access those or copy over those files from upload directory it says permission denied. Though i know the password of ftp_user to... (4 Replies)
Discussion started by: Ariean
4 Replies

7. Shell Programming and Scripting

Issue in uploading file using sftp

Hi I'm using this script to upload a file from local system to sftp server. But in the log file i'm getting an error "Error during upload" Can you please help me out ... ### CONFIGURATION LOCAL_DIR=/abc/out FILE_MASK="File*.txt" LOG_DIR=/abc/error/File_`date "+%Y%m%d%H%M%S"`.LOG... (3 Replies)
Discussion started by: Jaychandra
3 Replies

8. Shell Programming and Scripting

Uploading a file in ftp by culr?

I have ftp url, username and passwd. My file is named app.log. How do I upload this to my ftp server??? I read the manual but I didn't understand much...:cool: (4 Replies)
Discussion started by: hakermania
4 Replies

9. Shell Programming and Scripting

Uploading excel sheet to sharepoint portal using perl

Thourgh Perl scripting, Is it possible to upload excel sheet to sharepoint portal ? If the answer is YES.. Could you please share your thoughts and required CPAN modules or any examples to proceed further? Regards, Giridhar S ---------- Post updated at 04:26 AM ---------- Previous update... (0 Replies)
Discussion started by: giridhar276
0 Replies

10. UNIX for Advanced & Expert Users

SFTP Resticting Only Uploading Of A File

I have setup our SFTP server: SFTP Setup: /etc/ssh/sshd_config: Subsystem sftp internal-sftp Match Group sftpusers PasswordAuthentication yes ChrootDirectory /srv/sftponly AllowTCPForwarding no X11Forwarding no ForceCommand internal-sftp Adding the... (5 Replies)
Discussion started by: metallica1973
5 Replies

LEARN ABOUT OSF1

dput

dput(1) 						      General Commands Manual							   dput(1)

NAME

       dput - package upload tool for Debian

SYNTAX

       dput [options] [host] package.changes ...

DESCRIPTION

       This  is  a  tool  for uploading Debian packages into the archive. You may specify to which host it should upload the file by passing it an
       host argument. If omitted, dput uses the host specified by default_host (or, historically default_host_non-us) configuration option.   Also
       you have to pass the program one or more name of package.changes files and then they will be sequentially uploaded.

       This  program  will  then  upload  the  package for you into the archive, using a selected upload method. Currently dput supports ftp, scp,
       rsync, http, https, and local. The method scripts have been split from the main script  so  it  is  easy  to  add  new  methods.   Look	in
       /usr/share/dput/ for examples.

       Should  something  go  wrong  with your upload to destinations using the Debian upload queue daemon (e.g. ftp-master), you can remove files
       from the upload queue with dcut(1).

OPTIONS

       -c, --config - define a config file to use.

       -d, --debug - activate debugging mode, helpful if bugs occur.

       -D, --dinstall - do a dry run of dinstall after the upload.

       -f, --force - force an upload of an already uploaded package.

       -h, --help - print help information and exit.

       -H, --host-list - print the lists of hosts that dput knows about.

       -l, --lintian - run lintian before the upload.

       -U, --no-upload-log - do not write a .upload log file after uploading.

       -o, --check-only - check only the package and do not upload.

       -p, --print - print the configuration that dput is using.

       -P, --passive - use passive ftp instead of active. Note that passive ftp is the default unless specified  otherwise  in	the  configuration
       file.

       -s, --simulate - simulate an upload only.

       -u, --unchecked - don't check GnuPG signature on the changes file.

       -e,  --delayed  - Upload to a DELAYED queue, rather than the usual Incoming. This takes an argument from 0 to 15. Note that a delay of 0 is
       different from no delay at all.

       -v, --version - print version information and exit.

       -V, --check-version - check if the user has already installed and tested the package before putting it into the archive.

ENVIRONMENT

       This program doesn't depend on any environment variables. But if the variable USER is set, it will be used.

LICENSE

       This program is distributed under the terms of the GPL.

BUGS

       Please send bug reports to the author.

FILES

       /etc/dput.cf
	      global dput configuration file

       ~/.dput.cf
	      peruser dput configuration file

SEE ALSO

       dput.cf(5)
       dcut(1)
       /usr/share/doc/dput
       /usr/share/dput

AUTHOR

       dput was written Christian Kurz. The current maintainer is Thomas Viehmann <tv@beamnet.de>.

       Many other people have contributed to this code. See the Thanks file.

COMMENTS

       The author does appreciate comments and suggestions from you.

								  October 5, 2001							   dput(1)
All times are GMT -4. The time now is 10:45 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy