Devam Ediyor

Convert Perl Coding to PHP

I'm using a basic html form with this call:

Now, I use a perl tracking script for my referrers that attaches a cookie. Right now, I'm using a program that someone made that works like this.

I link to a script say [url removed, login to view] that has this coding:

#!/usr/bin/perl

require('/home/[url removed, login to view]');

$SECUREURL = '[url removed, login to view]';

$MyCk = CookieGet($CookieID);

if ($MyCk eq "1" && $Cookies{$CookieID} ne "") {

$Referrer = $Cookies{$CookieID};

$Referrer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

} elsif ($MyCk eq "1" && $Cookies{$CookieID} eq "") {

$Referrer = $DefaultID;

} elsif ($MyCk ne "1" && $ENV{'QUERY_STRING'}) {

$Referrer = $ENV{'QUERY_STRING'};

} else {

$Referrer = $DefaultID;

}

if ($Referrer eq "") { $Referrer = $DefaultID; }

$NEWURL = $SECUREURL . '?' . $Referrer;

print "Location: $NEWURLnn";

exit(0);

Now, it refers to a file named [url removed, login to view], which it's code says this:

#!/usr/bin/perl

require('/home/[url removed, login to view]');

$ORDERFORM = '/home/[url removed, login to view]';

print "Content-Type: text/htmlnn";

if ($ENV{'QUERY_STRING'}) {

$Referrer = $ENV{'QUERY_STRING'};

$Referrer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

} elsif (CookieGet($CookieID) && $Cookies{$CookieID} ne "") {

$Referrer = $Cookies{$CookieID};

} else {

$Referrer = $DefaultID;

}

if ($Referrer eq "") { $Referrer = $DefaultID; }

open(ORDER, "$ORDERFORM") || print "Unable to open Order Form for reading: $!nn";

@File=();

close(ORDER);

foreach $line (@File) {

if ($line =~ /<FORM/gi) {

print $line . "nn";

} else {

print $line;

}

}

exit(0);

Now, what it does is places this line of coding into the html page, which is what I want as I already have configured my php script to collect it:

What I need is that coding to be converted into php and placed into the php script I'm using to send the html form. That way when the page is submitted, part of the scripts job is to collect the cookie code from the customer's computer and paste it into the email along with the rest of the data sent in the form.

Can anyone give me a bid?

Thanks

Curtis

Beceriler: Perl, PHP

Daha fazlasını görün: convert cgi php, convert perl php, perl php converter, convertir cgi php, convert perl php code, referral code, print pack, placed, php code contact, line coding, job works home, coding program, coding computer, code coding, basic computer coding, convert perl cgi, convertir perl php, perl convert php, cgi php converter, cgi php konverter, perl print location referer, php cgi doc2pdf conversion, perl tracking, perl print location referrer, convert perl script php

İşveren Hakkında:
( 2 değerlendirme ) Huntsville, United States

Proje NO: #18243

Seçilen:

auraspan

You got one!

1 gün içinde 75$ USD
(53 Değerlendirme)
5.8

8 freelancer bu iş için ortalamada 68$ teklif veriyor

secom

hi i can help you to get it done.

in 2 gün içinde100$ USD
(574 Değerlendirme)
8.7
hansashish

Respected SirI think that this is not so hard task. We will perform it very easily because we assuring quality to our customers not quantity. Here a few of the sites that we have pulled off in the recent past- http://w Daha fazlası

in 10 gün içinde50$ USD
(49 Değerlendirme)
7.6
campbeld

How long have you wanted to convert this script? When you are ready to convert the script, choose my bid and we can get started. Only when you are ready.

in 14 gün içinde100$ USD
(12 Değerlendirme)
4.8
albertandrejev

I can make this in 5 days or less. Good luck!

in 5 gün içinde45$ USD
(5 Değerlendirme)
3.8
varshyltech

can be done....No probs

1 gün içinde 70$ USD
(2 Değerlendirme)
3.3
hacker

I think that this is no so hard task.

1 gün içinde 50$ USD
(1 Değerlendirme)
1.4
siddharth1972

Dear Sir, We have started a new website which is similar to Scriptlance / Getafreelancer in functions and features. We have three big advantages compared to both these websites. 1. Our Website has only a group o Daha fazlası

in 2 gün içinde50$ USD
(0 Değerlendirme)
0.0