Topic Title: [TESTING] Random Photo- Version 2.0

PHP: › <?php global $gallery; ?>

PHP: › <?php global $gallery,$Version_Num; ?>

PHP: › <?php function scanalbums() {
    global $cache;
    global $gallery;

    $cache = array();
    $albumDB = new AlbumDB();
    foreach ($albumDB->albumList as $tmpAlbum) {
                        $numPhotos = $tmpAlbum->numPhotos(1);
                        $name = $tmpAlbum->fields["name"];
                        if ($numPhotos > 0) {
                                $cache[$name] = $numPhotos;
                        }       
    }
} ?>

Code: ›
#!/usr/bin/env perl
#
use strict;
use Data::Dumper;
use Getopt::Long;

my $validate_only = 0;
GetOptions("validate-only+" => \$validate_only);

my %parse_func =
  ("O:" => \&parse_object,
   "a:" => \&parse_array,
   "s:" => \&parse_string,
   "i:" => \&parse_integer,
   "b:" => \&parse_integer,
   "N;" => \&parse_null);

# Slurp the stdin
undef $/;
my $data = <>;

my ($tree, $index) = &parse(0);
print "$index bytes parsed";

if ($validate_only) {
  print " -- valid\n";
} else {
  print "\n";
  $Data::Dumper::Indent = 1;
  print Dumper($tree);
}

sub parse {
  my $index = shift;

  my $type = substr($data, $index, 2);
  my $func = $parse_func{$type};
  if (!$func) {
    die "Unknown type '$type' at position $index";
  }
  &$func($index+2);
}

sub parse_object {
  my $index = shift;

  my $self = {};

  my ($name, $members);
  ($name, $index) = &get_string($index);
  $index = skip($index, ':');
  ($members, $index) = &parse_array($index);

  $self->{"$name (class)"} = $members;

  return ($self, $index);
}

sub parse_null {
  my $index = shift;

  return ("<null>", $index);
}

sub parse_integer {
  my $index = shift;

  my $value;
  my $self = {};
  ($value, $index) = get_number($index);
  $index = skip($index, ';');

  return ($value, $index);
}

sub parse_string {
  my $index = shift;

  my $value;
  my $size = 0;

  ($value, $index) = get_string($index);
  $index = skip($index, ';');

  return ($value, $index);
}

sub parse_array {
  my $index = shift;

  my $self = [];
  my $count = 0;
  ($count, $index) = get_number($index);
  $index = skip($index, ':{');
  for (my $i = 0; $i < $count; $i++) {
    my ($key, $value);
    ($key, $index) = &parse($index);
    ($value, $index) = &parse($index);
    push(@$self, { $key => $value });
  }
  $index = skip($index, '}');
  return ($self, $index);
}

sub get_string {
  my $index = shift;

  my $size;
  my $value;
  ($size, $index) = get_number($index);
  $index = skip($index, ':"');
  $value = substr($data, $index, $size);
  $index += $size;
  $index = skip($index, '"');

  return ($value, $index);
}

sub get_number {
  my $index = shift;

  my $ch;
  my $num = undef;
  while(($ch = substr($data, $index, 1)) =~ /\d/) {
    $index++;
    if (!defined($num)) {
      $num = 0;
    }
    $num = 10 * $num + int($ch);
  }

  if (!defined($num)) {
    die "Expected number at $index, found '$ch' instead\n";
  }

  return ($num, $index);
}


sub skip {
  my $index = shift;
  my $expected = shift;

  my $size = length($expected);
  my $actual = substr($data, $index, $size);
  if ($actual ne $expected) {
    die "Expected '$expected' at $index, found '$actual' instead\n";
    exit;
  }

  return $index + $size;
}

__END__
while(<>) {
  foreach $line (split(/([{\}])/)) {
    $indent -= ($line eq "}");
    next unless $line;
    $line =~ s/;/";\n" . "  " x $indent/ge;
    print "  " x $indent, "$line\n";
    $indent += ($line eq "{");
  }
}

Code: › perl decode.pl <dbfile>

Code: › Warning: Invalid argument supplied for foreach() in /home/ffxicom/public_html/blocks/block-NG-RandomPhoto_functions.php on line 258

Fatal error: Call to a member function on a non-object in /home/ffxicom/public_html/blocks/block-NG-RandomPhoto_functions.php on line 66

Code: › global $gallery, $GALLERY_EMBEDDED_INSIDE, $GALLERY_EMBEDDED_INSIDE_TYPE, $GALLERY_MODULENAME,$Version_Num;

Code: ›  $GALLERY_BASEDIR ="/usr/local/apache2/2.0.47/htdocs/modules/gallery/";

PHP: › <?php function createBlockContent($album,$index,$scale) { ?>

PHP: › <?php function createBlockContent($album,$index,$scale,$auto=0) { ?>

PHP: › <?php if($scale == 0) { ?>

PHP: › <?php if($scale == 0) {
                        if($auto == 0) {
                                $IMG = "<center><a href=\"$PHOTO_URL\">".$album->getThumbnailTag($index)."</a><br>";
                        }
                        else {
                                $IMG = "<center><a href=\"$PHOTO_URL\" target=\"_top\">".$album->getThumbnailTag($index)."</a><br>";
                        }
        } else {
                        if($auto == 0) {
                                $IMG = "<center><a href=\"$PHOTO_URL\">".$album->getThumbnailTag($index,$scale)."</a><br>";
                        }
                        else {
                                $IMG = "<center><a href=\"$PHOTO_URL\" target=\"_top\">".$album->getThumbnailTag($index,$scale)."</a><br>";
                        }
        } ?>

PHP: › <?php function createBlockContent($album,$index,$scale,$auto=0) {
        global $gallery, $GALLERY_EMBEDDED_INSIDE, $GALLERY_EMBEDDED_INSIDE_TYPE, $GALLERY_MODULENAME;

        $id = $album->getPhotoId($index);
        $caption = $album->getCaption($index);
        $photo = $album->getPhoto($index);
        $dir = $album->getAlbumDirURL("full");
        $image = $photo->image;
        $PHOTO_URL = makeAlbumUrl($album->fields['name'], $id);
        $ALBUM_URL = makeAlbumUrl($album->fields['name']);
        if($scale == 0) {
                        if($auto == 0) {
                                $IMG = "<center><a href=\"$PHOTO_URL\">".$album->getThumbnailTag($index)."</a><br>";
                        }
                        else {
                                $IMG = "<center><a href=\"$PHOTO_URL\" target=\"_top\">".$album->getThumbnailTag($index)."</a><br>";
                        }
        } else {
                        if($auto == 0) {
                                $IMG = "<center><a href=\"$PHOTO_URL\">".$album->getThumbnailTag($index,$scale)."</a><br>";
                        }
                        else {
                                $IMG = "<center><a href=\"$PHOTO_URL\" target=\"_top\">".$album->getThumbnailTag($index,$scale)."</a><br>";
                        }
        }
        $FROM = "From: <a href=\"$ALBUM_URL\">" . $album->fields['title'] . '</a>';
        $blockContent .=  "\t$IMG\n";
        $blockContent .= "\t$caption<br />\n";
        $blockContent .= "\t$FROM\n</center>";
        return $blockContent;
} ?>

PHP: › <?php $FROM = "From: <a href=\"$ALBUM_URL\">" . $album->fields['title'] . '</a>'; ?>

PHP: › <?php $FROM = "From: <a href=\"$ALBUM_URL\" target=\"_top\">" . $album->fields['title'] . '</a>'; ?>

Code: › Fatal error: Cannot redeclare createblockcontent() (previously declared in /home/virtual/site21/fst/var/www/html/html/blocks/NG-RandomPhotoSelectTest_functions.php:63) in /home/virtual/site21/fst/var/www/html/html/blocks/NG-RandomPhotoSelectTest_functions2.php on line 63

Code: ›
Warning: fopen(http://xtz.dreamsite.be/doven/modules/gallery/albums/block-random.cache): failed to open stream: HTTP wrapper does not support writeable connections. in /opt/www/balzarinit/web/xtz.dreamsite.be/doven/blocks/NG-RandomPhoto_functions.php on line 221

Warning: fwrite(): supplied argument is not a valid stream resource in /opt/www/balzarinit/web/xtz.dreamsite.be/doven/blocks/NG-RandomPhoto_functions.php on line 223

Warning: fclose(): supplied argument is not a valid stream resource in /opt/www/balzarinit/web/xtz.dreamsite.be/doven/blocks/NG-RandomPhoto_functions.php on line 225

Fatal error: Call to undefined function: isalbumname() in /opt/www/balzarinit/web/xtz.dreamsite.be/doven/blocks/NG-RandomPhoto_functions.php on line 101

Code: ›    function loadPhotosFromFile($filename) {
                $tmp = unserialize(getFile($filename));
                if (!is_Array($tmp)){
line 783 --->    $tmp = unserialize(getFile($filename, true));
                        if (!is_Array($tmp)){
                                return 0;
                        }
                }
                if (count($tmp) > 0) {
                        if (strcasecmp(get_class($tmp[0]), "albumitem")) {
                                /* Dunno what we unserialized .. but it
wasn't an album! */
                                return 0;

Code: › php_admin_value memory_limit 32M