Path: csiph.com!usenet.pasdenom.info!gegeweb.org!usenet-fr.net!nerim.net!novso.com!newsfeed.xs4all.nl!newsfeed5.news.xs4all.nl!xs4all!newsgate.cistron.nl!newsgate.news.xs4all.nl!post.news.xs4all.nl!not-for-mail
From: "Octavian Rasnita" <orasnita@gmail.com>
To: <python-list@python.org>
References: <407771a5-0b1f-4bb6-8548-e5f79908b43d@googlegroups.com>
Subject: Re: Call perl to store data in DB
Date: Fri, 31 Aug 2012 12:19:21 +0300
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Precedence: list
Newsgroups: comp.lang.python
Message-ID: <mailman.4002.1346404771.4697.python-list@python.org>
Lines: 127
NNTP-Posting-Host: 2001:888:2000:d::a6
Xref: csiph.com comp.lang.python:28163

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=3D"/path/to/your/Perl/script.pl" method=3D"post">

So your "form" object in Python should set the action as the path to the =
Perl program.

--Octavian

----- Original Message -----=20
From: "Mulla" <mullapervez@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,
>=20
> 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.
>=20
>=20
> Python View.py
>=20
>=20
> def ProfileRegistration(request):
>    if request.user.is_authenticated():
>        return HttpResponseRedirect('/profile/')
>    if request.method =3D=3D 'POST':
>        form =3D RegistrationForm(data=3Drequest.POST, =
files=3Drequest.FILES)
>        if form.is_bound and form.is_valid():
>            user =3D =
User.objects.create_user(username=3Dform.cleaned_data['username'],
>                                            =
email=3Dform.cleaned_data['email'],
>                                            =
password=3Dform.cleaned_data['password'],)
>            new_user=3D user.save()
>            profile =3D =
Profile(user=3Duser,firstname=3Dform.cleaned_data['firstname'],
>                              lastname=3Dform.cleaned_data['lastname'],
>                              =
telephone=3Dform.cleaned_data['telephone'],
>                              service=3Dform.cleaned_data['service'],
>                              =
servicetype=3Dform.cleaned_data['servicetype'],)
>            new_user =3D 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=3DRequestContext(request))
>    else:
>        form =3D RegistrationForm()
>        context =3D {'form':form}
>        return render_to_response('register.html',context, =
context_instance=3DRequestContext(request))
>=20
> Below in my perl script=20
>=20
>=20
> #!/usr/bin/perl
>=20
> use strict;
> use warnings;
> use user;
>=20
>=20
>=20
> my $tempuser =3D new user ();
>=20
> if ($tempuser->readbyfirstname('Pervez') eq 1) {
> # Continue processing since we found a match
>     if($tempuser->{lastname} eq 'Noel')
>                        {
>                        print "Name already exists, \n";
>                        }
> }
>=20
> my $tempuser1 =3D new user();
> $tempuser1->readbyemail_id('mullapervez@gmail.com');=20
>    if($tempuser1->{email_id} eq 'mullapervez@gmail.com')
>            {
>            print "email_id is in use \n";
>            }
>       =20
>=20
>=20
> my $tempuser2 =3D new user();
> $tempuser2->readbyusername('Tim_sir');
>        if ($tempuser2->{username} eq 'Mulla')=20
>        {
>            print "username is already present\n";
>        }
> else {
> print "we have no match\n";
> }
>=20
>    my $tempuser4 =3D new user('pervez', '', 'mulla', =
'mullapervez@gmail.com', '193274198');
>    my $string =3D $tempuser4->{firstname};
>        my @c =3D split(//, $string);
>        my $userhash =3D "00$c[0]$c[-1]";
>        print "$userhash \n";
>    #$tempuser4->{userhash} =3D $userhash;
>    $tempuser4->setuserhash( "$userhash" );
>    $tempuser4->write;
>   =20
>    =20
> when I submit data , that data must come in place "my $tempuser4 =3D =
new user('pervez', '', 'mulla', 'mullapervez@gmail.com', '193274198');" =
...
>=20
> how can I do this ...>>?
>=20
> Look forward for hear from you soon
>=20
> Thank You
> --=20
> http://mail.python.org/mailman/listinfo/python-list