Adding debian version 2.4.63-1.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
parent
7263481e48
commit
f56986e2d9
1490 changed files with 80785 additions and 0 deletions
50
debian/perl-framework/t/htdocs/php/cfunctions.php
vendored
Normal file
50
debian/perl-framework/t/htdocs/php/cfunctions.php
vendored
Normal file
|
@ -0,0 +1,50 @@
|
|||
<?php
|
||||
|
||||
function print_stuff($stuff)
|
||||
{
|
||||
print $stuff;
|
||||
}
|
||||
|
||||
|
||||
function still_working()
|
||||
{
|
||||
return "I'm still alive";
|
||||
}
|
||||
|
||||
function dafna()
|
||||
{
|
||||
static $foo = 0;
|
||||
|
||||
print "Dafna!\n";
|
||||
print call_user_func("still_working")."\n";
|
||||
$foo++;
|
||||
return (string) $foo;
|
||||
}
|
||||
|
||||
|
||||
class dafna_class {
|
||||
function dafna_class() {
|
||||
$this->myname = "Dafna";
|
||||
}
|
||||
function GetMyName() {
|
||||
return $this->myname;
|
||||
}
|
||||
function SetMyName($name) {
|
||||
$this->myname = $name;
|
||||
}
|
||||
};
|
||||
|
||||
for ($i=0; $i<200; $i++):
|
||||
print "$i\n";
|
||||
call_user_func("dafna");
|
||||
call_user_func("print_stuff","Hey there!!\n");
|
||||
print "$i\n";
|
||||
endfor;
|
||||
|
||||
|
||||
$dafna = new dafna_class();
|
||||
|
||||
print $name=call_user_func(array($dafna, "GetMyName"));
|
||||
print "\n";
|
||||
|
||||
?>
|
Loading…
Add table
Add a link
Reference in a new issue