Linux vps-61133.fhnet.fr 4.9.0-19-amd64 #1 SMP Debian 4.9.320-2 (2022-06-30) x86_64
Apache/2.4.25 (Debian)
Server IP : 93.113.207.21 & Your IP : 216.73.216.119
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
www /
html /
asiafood.bdcloud.fr /
build /
gource /
Delete
Unzip
Name
Size
Permission
Date
Action
avatars
[ DIR ]
drwxr-xr-x
2025-11-08 11:16
README.md
1.21
KB
-rwxr-xr-x
2021-01-30 17:40
getavatars.pl
1.02
KB
-rwxr-xr-x
2021-01-30 17:40
Save
Rename
#!/usr/bin/perl #fetch Gravatars use strict; use warnings; use LWP::Simple; use Digest::MD5 qw(md5_hex); my $size = 90; my $output_dir = './avatars'; die("no .git/ directory found in current path\n") unless -d './avatars'; mkdir($output_dir) unless -d $output_dir; open(GITLOG, q/git log --pretty=format:"%ae|%an" |/) or die("failed to read git-log: $!\n"); my %processed_authors; while(<GITLOG>) { chomp; my($email, $author) = split(/\|/, $_); next if $processed_authors{$author}++; my $author_image_file = $output_dir . '/' . $author . '.png'; #skip images we have next if -e $author_image_file; #try and fetch image my $grav_url = "http://www.gravatar.com/avatar/".md5_hex(lc $email)."?d=404&size=".$size; warn "fetching image for '$author' $email ($grav_url)...\n"; my $rc = getstore($grav_url, $author_image_file); sleep(1); if($rc != 200) { unlink($author_image_file); next; } } close GITLOG;