view release on metacpan or  search on metacpan

examples/sitemap.pl  view on Meta::CPAN

use File::Find qw();
use POSIX qw(strftime);
use WWW::Google::SiteMap qw();
#use WWW::Google::SiteMap::Ping qw();
  
chdir('/home/nicolaw/webroot/www/bb-207-42-158-85.fallbr.tfb.net/') || die $!;
my $map = WWW::Google::SiteMap->new(file => 'sitemap.gz');

File::Find::find({wanted => sub {
			my ($dev,$ino,$mode,$nlink,$uid,$gid,$mtime,$vol);
			(($dev,$ino,$mode,$nlink,$uid,$gid,undef,undef,undef,$mtime) = lstat($_)) &&
			-d _ &&
			s/^\.\/// &&
			!/\/\./s &&
			($vol = substr($_,0,1)) &&
			print("$_\n") &&
			$map->add(WWW::Google::SiteMap::URL->new(
					loc        => "http://bb-207-42-158-85.fallbr.tfb.net/$_",
					lastmod    => strftime('%Y-%m-%d',localtime($mtime)),
					changefreq => ($vol eq 'D' ? 'daily' : 'monthly'),
					priority   => ($vol eq 'D' ? 0.75 : 0.25),

lib/Apache2/AutoIndex/XSLT.pm  view on Meta::CPAN

	1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
	return $_;
}


sub stat_file {
	my ($r,$filename) = @_;

	my %stat;
	@stat{qw(dev ino mode nlink uid gid rdev size
			atime mtime ctime blksize blocks)} = lstat($filename);

	my %rtn;
	$rtn{$_} = $stat{$_} for qw(uid gid mtime ctime size);
	$rtn{perms} = file_mode($stat{mode});
	$rtn{owner} = scalar getpwuid($rtn{uid});
	$rtn{group} = scalar getgrgid($rtn{gid});

	$rtn{nicesize} = comify(sprintf('%d KB',
						($rtn{size} + ($rtn{size} ? 1024 : 0))/1024
					));