Maybe I didn't understand well, but if you want your Perl program to get and
store the data submitted by the form, then the action of the form should point
to the Perl script something like:
<form action="/path/to/your/Perl/script.pl" method="post">
So your "form" object in Python should set the action as the path to the Perl
program.
--Octavian
----- Original Message -----
From: "Mulla" <mullaper...@gmail.com>
Newsgroups: comp.lang.python
To: <python-list@python.org>
Sent: Friday, August 31, 2012 11:40 AM
Subject: Call perl to store data in DB
> hey,
>
> when i submit the form in html , the entered data (fname,lanme,uname.....)all
> have to come in perl script to store that data in DB.
>
>
> Python View.py
>
>
> def ProfileRegistration(request):
> if request.user.is_authenticated():
> return HttpResponseRedirect('/profile/')
> if request.method == 'POST':
> form = RegistrationForm(data=request.POST, files=request.FILES)
> if form.is_bound and form.is_valid():
> user =
> User.objects.create_user(username=form.cleaned_data['username'],
> email=form.cleaned_data['email'],
>
> password=form.cleaned_data['password'],)
> new_user= user.save()
> profile =
> Profile(user=user,firstname=form.cleaned_data['firstname'],
> lastname=form.cleaned_data['lastname'],
> telephone=form.cleaned_data['telephone'],
> service=form.cleaned_data['service'],
> servicetype=form.cleaned_data['servicetype'],)
> new_user = profile.save()
> # messages.info(request, "Thank you for registration.Please login
> to continue")
> # login(request, new_user)
> return HttpResponseRedirect('/dashboard/')
> else:
> return render_to_response('register.html',{'form':
> form},context_instance=RequestContext(request))
> else:
> form = RegistrationForm()
> context = {'form':form}
> return render_to_response('register.html',context,
> context_instance=RequestContext(request))
>
> Below in my perl script
>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use user;
>
>
>
> my $tempuser = new user ();
>
> if ($tempuser->readbyfirstname('Pervez') eq 1) {
> # Continue processing since we found a match
> if($tempuser->{lastname} eq 'Noel')
> {
> print "Name already exists, \n";
> }
> }
>
> my $tempuser1 = new user();
> $tempuser1->readbyemail_id('mullaper...@gmail.com');
> if($tempuser1->{email_id} eq 'mullaper...@gmail.com')
> {
> print "email_id is in use \n";
> }
>
>
>
> my $tempuser2 = new user();
> $tempuser2->readbyusername('Tim_sir');
> if ($tempuser2->{username} eq 'Mulla')
> {
> print "username is already present\n";
> }
> else {
> print "we have no match\n";
> }
>
> my $tempuser4 = new user('pervez', '', 'mulla', 'mullaper...@gmail.com',
> '193274198');
> my $string = $tempuser4->{firstname};
> my @c = split(//, $string);
> my $userhash = "00$c[0]$c[-1]";
> print "$userhash \n";
> #$tempuser4->{userhash} = $userhash;
> $tempuser4->setuserhash( "$userhash" );
> $tempuser4->write;
>
>
> when I submit data , that data must come in place "my $tempuser4 = new
> user('pervez', '', 'mulla', 'mullaper...@gmail.com', '193274198');" ...
>
> how can I do this ...>>?
>
> Look forward for hear from you soon
>
> Thank You
> --
> http://mail.python.org/mailman/listinfo/python-list
--
http://mail.python.org/mailman/listinfo/python-list
