Desperately seaking

dulcimers · Nov 11, 2003

Ok, so maybe I'm not desperate, but I am in need of help.

I'm not a programmer. Just a busy, self-taught web designer with a dozen other jobs.

Recently I moved my domain from Concentric to Ipowerweb. Everything has worked quite well except that Concentric had a "library" of cgi scripts available for my use, and Ipowerweb expects me to provide my own scripts.

So far I've been successful locating and installing scripts to randomize my introductory photo, and another script to randomize music which opens the page. (You can see them in action at

http://dulcimers.com)

But I have been unsuccessful locating a copy of a script I really need: form2file.

Form2file was one of the scripts which Concentric provided. With it, I was able to set-up a form on my website where workshop leaders could "register" classes they were willing to instruct at a music festival (where I'm the workshop coordinator). I still have the "html form" but obviously no form2file script to run it.

It was pretty straight-forward, and I've seen references to that script lots of places, but I can't find a copy of it. I'm pretty sure it's a cgi standard.

It allowed the individual who was registering to fill in the form, then the output was written to a txt file which was embedded in a html document. Once submitted, the individual was taken to the page that showed all of the classes with his as the most recent addition. Since each addition was added on, the workshop instructors could see the classes offered by those who had registered before them. They could "proof" their own copy, and stay abreast of the classes being offered.

Has anyone seen the script I am talking about on any of the perl or cgi script sites? I've looked high and low but without success. Yes, I can find similar scripts, but this one was "perfect"!! and it would be so nice if I could just set up the script on Ipowerweb. I already have the form prepared from previous years and my instructors are used to working with it.

Again, it is called form2file.

Sharon Skaryd

MikeLacey · Nov 11, 2003

this is a download link to something called form2file

http://physics.dickinson.edu/~wp_web/Old_WP_Website/Computer_Software/Web_Software/Download_Alias2

hope it's what you want

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

dulcimers · Nov 12, 2003

Sadly the above mentioned site didn't not provide a download. It may have at one time, but it was last updated in 1997 and was no longer functioning.

So I'm still looking!!

Sharon Skaryd

MikeLacey · Nov 12, 2003

hmmm I have a mime encoded version of form2file.pl... can't figure out how to extract it <sigh>

anyone?

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

crackn101 · Nov 13, 2003

Mike,
I have a perl module that can decode mime.
You can find it here at cpan.

http://search.cpan.org/~gaas/MIME-Base64-2.21/Base64.pm

The header should tell you what the encoding method
used was. ( Usually base64 );
I tried it on form2file.pl found on this page :

https://lists.aas.duke.edu/pipermail/cgi/2001-November/000006.html

Looks like they might have modified the script.
Who knows what it originally was.
Here's the decoded output though :

#!/usr/bin/perl -w
print "Content-type:text/html\n\n";
open(OUTF,">>/var/tmp/survey.out&quot

or dienice("Couldn't open survey.out for writing: $!&quot

;
# This locks the file so no other CGI can write to it at the
# same time...
flock(OUTF,2);
# Reset the file pointer to the end of the file, in case
# someone wrote to it while we waited for the lock...
seek(OUTF,0,2);
print OUTF "------- \n\n";
print OUTF scalar localtime(time);
print OUTF "------- \n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# $value =~ tr/+/ /;
# $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g; # replace newlines with spaces
$value =~ s/\r//g; # remove hard returns
$value =~ s/\cM//g; # delete ^M's
$FORM{$name} = $value;
print OUTF "$name \t\t $FORM{$name} $value \n\n";
}
close(OUTF);

#print OUTF "$FORM{'name'}|$FORM{'email'}|";
#print OUTF "$FORM{'howreach'}|$FORM{'rating'}|";

print <<EndHTML;

<html><head><title>Thank You</title></head>
<body>
<h2>Thank You!</h2>
Thank you for your information.<p>
<a href="

http://www.chem.duke.edu/computing/services">Return

to information page</a><p>
</body></html>

EndHTML

sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}

If you want to post the encoded form2file.pl that you
have, I will be happy to decode it and repost the contents.

Take Care.
Crackn101

MikeLacey · Nov 14, 2003

Crackn,

Thank you...

I think it's the same one though, have a look.

--60313769-532152488-1005861761=:5023
Content-Type: TEXT/PLAIN; charset=US-ASCII; name="form2file.pl"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.4.33.0111151702410.5023@yorktown.chem.duke.edu>
Content-Description:
Content-Disposition: attachment; filename="form2file.pl"

IyEvdXNyL2Jpbi9wZXJsIC13DQoNCnByaW50ICJDb250ZW50LXR5cGU6dGV4
dC9odG1sXG5cbiI7DQoNCm9wZW4oT1VURiwiPj4vdmFyL3RtcC9zdXJ2ZXku
b3V0Iikgb3IgZGllbmljZSgiQ291bGRuJ3Qgb3BlbiBzdXJ2ZXkub3V0IGZv
ciB3cml0aW5nOiAkISIpOw0KDQojIFRoaXMgbG9ja3MgdGhlIGZpbGUgc28g
bm8gb3RoZXIgQ0dJIGNhbiB3cml0ZSB0byBpdCBhdCB0aGUgDQojIHNhbWUg
dGltZS4uLg0KZmxvY2soT1VURiwyKTsNCg0KIyBSZXNldCB0aGUgZmlsZSBw
b2ludGVyIHRvIHRoZSBlbmQgb2YgdGhlIGZpbGUsIGluIGNhc2UgDQojIHNv
bWVvbmUgd3JvdGUgdG8gaXQgd2hpbGUgd2Ugd2FpdGVkIGZvciB0aGUgbG9j
ay4uLg0Kc2VlayhPVVRGLDAsMik7DQoNCnByaW50IE9VVEYgIi0tLS0tLS0g
XG5cbiI7DQpwcmludCBPVVRGIHNjYWxhciBsb2NhbHRpbWUodGltZSk7DQpw
cmludCBPVVRGICItLS0tLS0tIFxuXG4iOw0KDQpyZWFkKFNURElOLCAkYnVm
ZmVyLCAkRU5WeydDT05URU5UX0xFTkdUSCd9KTsNCkBwYWlycyA9IHNwbGl0
KC8mLywgJGJ1ZmZlcik7DQpmb3JlYWNoICRwYWlyIChAcGFpcnMpIHsNCgko
JG5hbWUsICR2YWx1ZSkgPSBzcGxpdCgvPS8sICRwYWlyKTsNCiMJJHZhbHVl
ID1+IHRyLysvIC87DQojCSR2YWx1ZSA9fiBzLyUoW2EtZkEtRjAtOV1bYS1m
QS1GMC05XSkvcGFjaygiQyIsIGhleCgkMSkpL2VnOw0KCSR2YWx1ZSA9fiBz
L1xuLyAvZzsJIyByZXBsYWNlIG5ld2xpbmVzIHdpdGggc3BhY2VzDQoJJHZh
bHVlID1+IHMvXHIvL2c7CSMgcmVtb3ZlIGhhcmQgcmV0dXJucw0KCSR2YWx1
ZSA9fiBzL1xjTS8vZzsJIyBkZWxldGUgXk0ncw0KCSRGT1JNeyRuYW1lfSA9
ICR2YWx1ZTsNCiAJcHJpbnQgT1VURiAiJG5hbWUgXHRcdCAkRk9STXskbmFt
ZX0gJHZhbHVlIFxuXG4iOw0KDQp9DQoNCmNsb3NlKE9VVEYpOw0KDQoNCiNw
cmludCBPVVRGICIkRk9STXsnbmFtZSd9fCRGT1JNeydlbWFpbCd9fCI7DQoj
cHJpbnQgT1VURiAiJEZPUk17J2hvd3JlYWNoJ318JEZPUk17J3JhdGluZyd9
fCI7DQoNCg0KcHJpbnQgPDxFbmRIVE1MOw0KPGh0bWw+PGhlYWQ+PHRpdGxl
PlRoYW5rIFlvdTwvdGl0bGU+PC9oZWFkPg0KPGJvZHk+DQo8aDI+VGhhbmsg
WW91ITwvaDI+DQpUaGFuayB5b3UgZm9yIHlvdXIgaW5mb3JtYXRpb24uPHA+
DQo8YSBocmVmPSJodHRwOi8vd3d3LmNoZW0uZHVrZS5lZHUvY29tcHV0aW5n
L3NlcnZpY2VzIj5SZXR1cm4gdG8gaW5mb3JtYXRpb24gcGFnZTwvYT48cD4N
CjwvYm9keT48L2h0bWw+DQpFbmRIVE1MDQoNCnN1YiBkaWVuaWNlIHsNCglt
eSgkbXNnKSA9IEBfOw0KCXByaW50ICI8aDI+RXJyb3I8L2gyPlxuIjsNCglw
cmludCAkbXNnOw0KCWV4aXQ7DQp9DQoNCg==
--60313769-532152488-1005861761=:5023--

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

crackn101 · Nov 14, 2003

Howdy Yall. (Yep I'm in Texas hehe)
The script that you had was from the same page.
Although, I found another copy of this script.
I found it using

http://www.dogpile.com

.

http://ece.www.ecn.purdue.edu/ECE/scripts/

http://ece.www.ecn.purdue.edu/ECE/scripts/index.wshtml?perl=form2file.pl

<--- Direct link.

May be more of a complete script.
Take Care.
Crackn101

form2file.pl

#!/usr/local/bin/perl -w

#-- Form
#This script is OpenSource Under the GPL Liscense. If you use it please
#keep it that way. And I just want a bit of credit.
#Script By Brandon Robinette

#-- Instructions
#Install to your cgi-bin dir and chmod the script 755.
#Make a data file that matches the variable below then chmod it 666
#Change the URL in the HTML file and it's ready!

#-- Define Variables
#Title of the page
$title = "ECE Headline Editor";
#The location of the file on the servers hard drive
$data = "./news.txt";
#-- Variables Defined

#-- DO NOT EDIT BELOW THIS LINE
print "content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g; $FORM{$name} = $value;}

$link = $FORM{'link'};
$story = $FORM{'story'};
$date = $FORM{'date'};
$image = $FORM{'image'};

open(data,">>$data&quot

;
print data "\n";
print data "$link|";
print data "$date|";
print data "$story|";
print data "$image|";
print data "\n";

print qq (<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"

http://www.w3.org/TR/REC-html40/loose.dtd">);

print "<html>\n\t<head>\n";
print "\t<title>$title</title>\n";
print qq (<link href="./ENGR.css" rel="Stylesheet" type="text/css">\n);
print "</head><body>\n";
print "<b class=lg>Complete</b><br>\n";
print qq (<div class=sm>Your form has been processed.</div><br>\n);
print qq (<a href="news.txt" class="roll-gold">Examine new data.</a></div>\n);
print "</body></html>\n";

MikeLacey · Nov 15, 2003

Thanks Crackn -- good of you.

Sharon - Hope these scripts help; let us know how you get on.

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

dulcimers · Nov 15, 2003

Unfortunately so far the form2file scripts are different than the one I was using. I may be able to make the above script work, but it's definitely not the one I had before.

If you want to see the form from last year and get an idea of what I need, please go to

http://dulcimers.com/evart

You'll see the form (which no longer works). You can click on the link at the top of the form ("Go to Workshops that have been Submitted&quot

which will take you to the output page. This html page contained a text output file that "grew" as each person registered to do a class. (Last class registered was always on top.)

Since I'm expecting 222 workshops, I need a reliable, easy way for the leaders to be able to leave their information for me and the form2file script which Concentric (my previous domain host) provided worked perfectly. Sure wish I could find a duplicate of it that I could run.

I will be checking with my new domain host, Ipowerweb, to see if they have a solution for my problem. They've been very helpful so far.

As I said, I tried, but I haven't been able to tailor the one provided (above) to work in my situation. I thought form2file.pl was pretty standard, so I didn't think it would be hard finding it, but I was wrong.

So I'm still looking.....

Sharon

MikeLacey · Nov 16, 2003

The guy I asked at chem.duke.edu (Bill Day) said that they'd stopped using form2file and suggested an alternative. I didn't put it to you at the time because it looks like quite a project to implement. I'll dig out the details later and pass them to you. If it's this important to you (222 workshops) it might well be worth the effort.

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

MikeLacey · Nov 16, 2003

Have a look at

http://gathering.itm.mh.se/modsurvey/

As I said, not trivial to implement but it will do the job you want and lots more.

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

dulcimers · Nov 16, 2003

I'll definitely try Mike's suggestion.

Yes, it definitely is a "big deal". It's the world's largest hammered dulcimer event drawing about 10,000 folks from all over the world. I organize the workshops which are offered by the best folk musicians in the world (many national and world champions) who volunteer to instruct these classes (222 of them) over three days covering every instrument imaginable (from banjos to harps)! I compile the information the instructors provide into a 16-page program! Everything is done as a "labor of love and devotion". The cost for folks to attend is $3 for the whole event including the program. No one (including me) gets paid. It's AWESOME!

Hopefully Mike's script will work. But I sure wish that guy from Duke still had form2file, since I'm really not familiar with perl/cgi. Nevertheless I'm determined!! I may have questions. If so, maybe some of you who "do Perl" can help.

MikeLacey · Nov 16, 2003

From the documentation:

In order to get Mod_Survey to work, you will need a working apache installation with mod_perl installed and configured. Mod_perl will need perl installed. Apart from this, the program should be possible to run on any unixoid system

You'll need to start a conversation with your IPowerweb. It doesn't seem likely that they'll have mod_survey installed already so you will need to put a good case forward.

It may be that they have something else installed that will do the job -- I'd be talking to them right now.

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

dulcimers · Nov 18, 2003

I was asked to provide a status report.

I now have a working script!! Sunday I went to a website called

http://CGIlance.com.

I signed up as a webmaster and posted a "job description" to hire a programmer. There were three bids from folks willing to do my project. I was able to select from the three offers. Yesterday I contracted with "Steve" from Cast Web Design.

He knew his stuff. Last night I sent him the form, txt file, etc. which I'd used previously and this morning he'd reworked a form2file so that it do what I needed.

You can see how it works at

http://dulcimers.com/evart

His price was unbelievably low. He said it was fun and easy. He seemed to enjoy contributing his talents to an event like ours.

I'm over-joyed!!

Sharon

MikeLacey · Nov 19, 2003

excellent result

Mike

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884

It's like this; even samurai have teddy bears, and even teddy bears get drunk.

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!

Desperately seaking

dulcimers

Technical User

MikeLacey

MIS

dulcimers

Technical User

MikeLacey

MIS

crackn101

Programmer

MikeLacey

MIS

crackn101

Programmer

MikeLacey

MIS

dulcimers

Technical User

MikeLacey

MIS

MikeLacey

MIS

dulcimers

Technical User

MikeLacey

MIS

dulcimers

Technical User

MikeLacey

MIS

Part and Inventory Search

Sponsor