1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

help me to get pusr

Discussion in 'Perl' started by sasidv, Oct 31, 2011.

  1. sasidv

    sasidv New Member

    function setval()
    var url = window.location.toString();
    var params = RegExp.$1;
    var params = params.split("&");
    var queryStringList = {};
    for(var i=0;i<params.length;i++)
    var tmp = params[i].split("=");
    var acc_usr=tmp[1];
    document.getElementById('pusr').value = acc_usr;
    <body onload = "setval();">
    <FORM ENCTYPE="multipart/form-data" ACTION="/cgibin/fupload.cgi" METHOD="POST">
    <TABLE BORDER=0 WIDTH="550">
    File Name:
    <INPUT TYPE="File" NAME="filetoupload01" SIZE="70">
    </TD> </TR>
    <TR> <TD COLSPAN=2>&nbsp;<BR></TD>
    <INPUT TYPE="Submit" onclick="ValidateFilename(filetoupload01.value)" VALUE="UPLOAD FILE">
    <INPUT TYPE="HIDDEN" NAME="filetoupload02" VALUE="">
    <INPUT TYPE="hidden" name="pusr" value="" />
    the following is the code in fupload.cgi

    my %ufiles;
    foreach $key (sort {$a <=> $b} $query->param()) {
    next if ($key =~ /^\s*$/);
    next if ($query->param($key) =~ /^\s*$/);
    next if ($key !~ /^filetoupload_(\d+)$/);
    $Number = $1;
    if ($query->param($key) =~ /([^\/\\]+)$/) {
    $Filename = $1;
    $Filename =~ s/^\.+//;
    $ufiles{$Number} = $Filename;
    $File_Handle = $query->param($key);
    i want to read the value of <code>pusr</code> thats coming from the html form and rename the uploaded file with the name of pusr value
  2. chorny

    chorny New Member

    use $handle file handle, you don't need value $query->param($key):

        if (not($query->upload($key))) {
          if ($query->cgi_error) {
            die "Error uploading picture ".$query->cgi_error."\n";
        } else {
          my $handle=$query->upload($key)->handle;
  3. pradeep

    pradeep Team Leader

    use strict;
    use warnings;
    use CGI;
    my $cgi = new CGI;
    ## get all upload file input names
    my @all_upload_files = grep { /^filetoupload_(\d+)$/ } keys $cgi->Vars;
    foreach my $file_upload_name (@all_upload_files) {
        my ($filename) = $cgi->param($file_upload_name) =~ /([^\/\\]+)$/;
        ## append to filename/ or do whatever you want
        $filename .= '_' . $cgi->param('pusr');
        my $uph = $cgi->upload($file_upload_name);
        binmode $uph;
        open my $h, '>', "$filename" or die $!;
        while (<$uph>) {
            print {$h} $_;
        close $h;

Share This Page