WebDeveloper.com - Perl/Python/Ruby

CGI Forms - Help Required

simdunn — Mon, 06 May 2013 16:07:42 GMT

Hi,

I am very new to all this and have recently set up a website using Webplus X5 and justhost as the web host. On the website I have included a form for clients to include their Name etc and attach a document. I have been trying to correct / change the code on the form (using CGI) for a while now but I cannot get it to work.

Please please please could someone help me, because as I said I am new to all this and have try / read everything I can but I am totally getting confused now! I have contacted the web host provided but they don't seem to want to help.

Anyway I have included the upload script and form script (plus some of the rest of the page script - if you can help and need the rest I can post it) I have been trying to correct and would be very grateful if someone could try and direct me to how to make it work.

Also any advice on where the forms / upload script should go would be welcome as I have read that if it is not put in the right place the whole thing will not work.

As I said I am TOTALLY confused with it all now and really could do with some help!

Thanks

Upload script

#!/usr/bin/perl -wT

use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;

$CGI::POST_MAX = 1024 * 5000;
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $upload_dir = "/uploads";

my $query = new CGI;
my $filename = $query->param("DOCUMENT1");
my $email_address = $query->param("email_address");

if ( !$filename )
{
print $query->header ( );
print "There was a problem uploading your document (try a smaller file).";
exit;
}

my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
$filename = $name . $extension;
$filename =~ tr/ /_/;
$filename =~ s/[^$safe_filename_characters]//g;

if ( $filename =~ /^([$safe_filename_characters]+)$/ )
{
$filename = $1;
}
else
{
die "Filename contains invalid characters";
}

my $upload_filehandle = $query->upload("DOCUMENT1");

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

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

close UPLOADFILE;

print $query->header ( );
print <

Thanks You

Thanks for uploading your document

Your email address: $email_address

Your document:

END_HTML

Form script

Get a Quote

Welcome to First Choice Translation

Perl Login System Idea / help

jazzmasterkc — Thu, 02 May 2013 06:22:47 GMT

You know I'm curious, as I'm developing a site right now, I thought of an authentication process. I'll list it in steps:

1. User will appear at login screen. Instead of the username and password being the traditional -username and password, it will be more so.. like walking into a patdown in an airport before going threw the scanner.
2. Next perl script will execute a traditional mysql query match, and if true some random number gets generated and outputted to the user, this doesn't flag the authentication flag in the database yet though.. however a cookie is sent / a new CGI session.
3. The user will then be in more so of a.. contained locked down authentication state any dynamic data that needs to be updated by the user (just data stored in database) will be accomplished here.. Once the user triggers an event that we know the user is done updating the database of information, step 4 occurs..
4. The next perl script, will search for an email from user, validate the validation code, and username. If authenticated, the old cookie is destroyed and a new one is created and stored on users computer, if authentication failed the script prompts a new validation code and ask to repeate so user doesn't rage face from lossing data that they already updated (but this data was more so temporary).
5. ajax will bassically load a new page for user, and they have access to my main product/functionallity.. which is actually a dynamic and static sms web content group page where other users can be assigned to a group and see people's sms updates, which are actually commands that I parse in perl when their browser consistantly request a perl script that manages the messages. Really cool, I'll show you guys the link to a small demo if you want.

Now here is the catch, since their browser will request a different perl script every 5000ms to check for sms commands/updates, why not connect it to another more... logical script that destroys the user's session after 15000ms of no ajax requesting the mail processor?

I can't think of how to do this programatically, setting up this session destroy when a script is not executed after 15000ms.. The only thing I can think of is printing a variable to a perl script that would flag something not to delete session, but even that I'm unsure how to tackle it.

And the way my site is set up, is perfect for an operation like this to happen. This measure of secury flows in well with what the users are doing since its very specific, if that makes sense.

Let me know what you guys think:)

Printing records in Perl

edatz — Wed, 01 May 2013 19:36:24 GMT

Let's say I have a file and there are 8 records in it.
I would like to print the whole file 3 records at a time.
The file will never be large (maybe a dozen or so records at most).

I tried to find an answer for this, however, found everything but.

Code:

use strict;

use warnings;

use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print "Content-type: text/html\n\n";



my $nol="3"; # number of records per row



while() {

my $count = $.;



 my @pl =split /\|/, $_;



  print qq ~($pl[0])$pl[1] ~; # Each row is three records



 }



__DATA__

aaa|one

bbb|two

ccc|three

ddd|four

eee|five

fff|six

ggg|seven

hhh|eight

How do I make this work?

Thanks in advance