a good challenge for u php freaks, I mean masta's

[Weapon]

convert this cgi image script to php

#!/usr/local/bin/perl

$headfile = ' ';

$footfile = ' ';

$File = $ENV{'QUERY_STRING'};


unless (open (DATA,"$headfile")) {die (&error);}
if ($uselock eq '1') {
flock DATA, 2;
seek DATA, 0, 0;
}
@headinfo = <DATA>;
if ($uselock eq '1') {
flock DATA, 8;
}
close (DATA);
foreach $headline (@headinfo){
$heading = $heading.$headline;
}


unless (open (DATA,"$footfile")) {die (&error);}
if ($uselock eq '1') {
flock DATA, 2;
seek DATA, 0, 0;
}
@footinfo = <DATA>;
if ($uselock eq '1') {
flock DATA, 8;
}
close (DATA);
foreach $footline (@footinfo){
$footer = $footer.$footline;
}


print "Content-type:text/html\n\n";
print "$heading";
print "<CENTER><IMG SRC=\"$File\"></CENTER>";
print "$footer";


:bandit2:

 

[megapuzik]

Hey...
I know php, but dont know perl.....what this script does ?

 

[Weapon]

its an image posting script, where instead of making a html page for each image it grabs a header and then a footer file

 

[niv]

That is utterly complicated for a script that only does that.

If you know what you're doing, this is good enough:

#!/usr/bin/perl

print "Content-type: text/html\n\n";
$headfile = ' ';  # insert filename
$footfile = ' ';  # insert filename

$File = $ENV{'QUERY_STRING'}; 
if (-e $headfile && -e $footfile){
open (HEADER, $headfile);
open (FOOTER, $footfile);
print <HEADER>;
close (HEADER);
print "<img src=\"$File\">";
print <FOOTER>;
close (FOOTER);
} else {
print "Error.\n";
}

PHP Version:

<? 
$headfile='';
$footfile='';
include ("$headfile");
echo ("<img src\"$QUERY_STRING\">");
include ("$footfile");
?>

 

[Weapon]

and how would I call the image with the php version?

 

[niv]

blahblah.php?blahblahblah [in relation to location of blahblah.php]

i.e.
http://www.myacen.com/otashki/blahblah.php?weeps_cant_spell.gif

would go to http://www.myacen.com/otashki/weeps_cant_spell.gif



Seriously, you can't spell [if japanese was your goal], there is no sh character in either the hiragana or katakana character sets.

 

[Weapon]

huh what do u mean I can't spell? not my fault the keys are missing :biggrin2:

 

[niv]

Weepsie-poopoo, I'm saying there's no sh, but there's shi. :classic2:

 

[Weapon]

grrrrrr weepsie pooo grrr :angry2: gonna kill meow grrrr :angry2:

 

[Weapon]

errr don't think it works, see http://www.aznpride.com.kg/

 

[megapuzik]

Hey hayama, there is now QUERY_STRING func. in php...
maybe you can try this :

<? 
$headfile='';
$footfile='';
include ("$headfile");
print '<img src='.$img.'>';
include ("$footfile");
?>

and to display some image, you need to do this...
bla.php?img=image.gif

 

[niv]

I was using the original script, so I used $QUERY_STRING (as in $ENV{'QUERY_STRING'}) in Perl.

 

[Dusty]

there is [no] QUERY_STRING func. in php

Yes there is.

 

[Woofcat]

well of course there is no query string "function," and if your php config is fully optimized like mine there is no $QUERY_STRING variable either... best to use getenv()... and readfile() is more efficient than include() (and closer to what the original perl script does)...

<?readfile('')?><img src="<?=getenv('QUERY_STRING')?>"><?readfile('')?>

 

[megapuzik]

wierd, I run a loop with all the GLOBAL vars, there is no quary string there...

 

[Weapon]

sorry for bringing an old thread up, but how do I specify a image size for the image? ( eg, width=, height= )

 

[megapuzik]

add these var to your page :

$height = "50";
$width = "10";

and add theme !

<?readfile('')?><img src="<?=getenv('QUERY_STRING')?>" width="<?=width?>" height="<?=height?>"><?readfile('')?>

thats all

 

[Weapon]

huh :confused2

 

[megapuzik]

Its like html, just with php variables

 

[Weapon]

:confused2 where exactly do I put those things? top of page? bottom? above body tag? what?