Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Modal Window Woes

Status
Not open for further replies.
Nutthick

Nutthick

MIS
Joined
Jan 14, 2004
Messages
126
Location
GB
I'm struggling on this one. I have a modal window allowing the user to select a file top upload. When they click OK the file is uploaded, but I then need the modal window to close automatically, returning them back to the parent page. Is there a way to get perl to do this? I've tried putting an onClick event on the button, but it closes the parent window, not the modal.

Anyone got any ideas how to do it?

Thanks
 
Sort by date Sort by votes
Yep, a modal popup, so focus is on the popup until it is closed.
 
Upvote 0 Downvote
The upload script is as follows;

Code: 
#!/usr/bin/perl -w

use CGI;

$upload_dir = "/home/tracks";

$query = new CGI;

$filename = $query->param("mytrack");
$track_name = $query->param("name");

# Strip off everything that includes backslashes
$filename =~ s/.*[\/\\](.*)/$1/;

# Get the file handle
$upload_filehandle = $query->upload("mytrack");

# Upload the file, use upload filename as our filename
open UPLOADFILE, ">$upload_dir/$filename";

binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
	print UPLOADFILE $_;
}

close UPLOADFILE;

# Now need to close the window and dump back to parent

Thanks
 
Upvote 0 Downvote
O.K. The way this works is within the window.open() you must reference this script like below.
Code: 
window.open('script.pl?action=form','win');

Here's the upload script.
Code: 
#!/usr/bin/perl -w

use strict;

use CGI;
my $q = new CGI;

# configure
my $file_dir = "/home/tracks";

# do the action
my $action = $q->param('action');
my $method = {
    form   => \&form,
    upload => \&upload,
};
if ( $method->{$action} ) { $method->{$action}->(); } else { &form; }

# view the form
sub form {
    my ($done) = @_;

    my $close = $done == 1 ? "onLoad='self.close()'" : "";

    print <<FORM;
<html>
<body $close>

<!-- html form begin -->

<form method="POST" action="index.cgi" enctype="multipart/form-data">
<input type="hidden" name="action" value="upload">

<input type="text" name="name" size="28"><br>
<input type="file" name="file" size="28"><br>

<input type="submit">
</form>

<!-- html form end -->

</body>
</html>
FORM

}

# upload the file
sub upload {
    my $file = $q->upload('file');
    my $name = $q->param('name');

    $name =~ s/.*[\/\\](.*)/$1/;

    open( OUTFILE, ">$file_dir/$name" ) || die $!;
    binmode OUTFILE;
    for my $line (<$file>) {
        print OUTFILE $line;
    }
    close OUTFILE;

    form(1);  # reload the form closing the window
}

M. Brooks
 
Upvote 0 Downvote
Thanks for that. I've been on this for 16 hours now and I'm beat. I'll look at it tomorrow and let you know how I get on.
 
Upvote 0 Downvote
With Win32,
Code: 
Return -1;
issued from the modal will return to the parent.
 
Upvote 0 Downvote
Thanks for the replies.

@mbrooks

I got your code working, it's taught me a few new tricks, and it works nicely, just it's not modal. I changed it slightly to make the window modal, but then when the 'close' command is called IE was popping up a new window just so it could close it. Very strange. Still I've taken a couple of ideas from your solution and mixed it in with something else, and some sleep, and I'm nearly there. Thanks for the help.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

MoshiachNow
  • Locked
  • Question Question
Win32::GUI - need to create a window with scroll bar , within a main window
Replies
5
Views
560
MoshiachNow
MoshiachNow
MoshiachNow
  • Locked
  • Question Question
Windows - executable script will stop running if a remote Window is minimized
Replies
1
Views
320
hosehead78
hosehead78
TSch
  • Locked
  • Question Question
TK - How to update Window automatically
Replies
2
Views
336
kordaff
kordaff
MoshiachNow
  • Locked
  • Question Question
Win32::GUI - add splitting horizontal line in window
Replies
2
Views
243
MoshiachNow
MoshiachNow
MoshiachNow
  • Locked
  • Question Question
Windows - who keeps my file open ?
Replies
0
Views
178
MoshiachNow
MoshiachNow

Part and Inventory Search

Sponsor

Back
Top