Gravatar profile avatar downloader

[HezkoreParticipant]

Download your Gravatar profile picture and display it in your Monkey 2 app.
The very same avatars used on this forum.
It supports custom sizes, custom “no avatar set” images, along with all of Gravatars default avatars like ‘identicon’ and ‘robohash’ etc.

I’ve got no function for MD5 hashing, so you’ll have to convert your Gravatar E-Mail address yourself.
Here’s a page that does it: http://www.miraclesalad.com/webtools/md5.php
Make sure you enter your E-Mail in LOWER CASE!

If anyone has a MD5 function, I’ll update this.

Download source & wget.exe (required for Windows):
gravatar.zip

Source only:

Monkey

'Gravatar profile avatar downloader 'https://gravatar.com/ 'By @Hezkore 'Explanation 'The 'Gravatar' class acts as normal images 'Create a new 'Gravatar' and enter your Gravatar E-Mail in lower case but in MD5 hash 'Here's an online converter: http://www.miraclesalad.com/webtools/md5.php 'For example "my@mail.com" would be aa9c8aff95b1d8eb91ba15adc3e42802 'Example: myAvatar=New Gravatar( "aa9c8aff95b1d8eb91ba15adc3e42802" ) 'IMPORTANT! 'Remember to import wget for windows! #If __TARGET__="windows" #Import "bin/wget.exe" #Endif #Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow Extends Window 'Custom image to use if no avatar is set Field customNoAvatarURL:String="http://ichef-1.bbci.co.uk/news/660/cpsprodpb/025B/production/_85730600_monkey2.jpg" Field avatar:Gravatar Field customNoAvatar:Gravatar Field noAvatar1:Gravatar Field noAvatar2:Gravatar Method New() Super.New( "Gravatar", 640, 640 ) 'New avatar 'Use Gravatar default image if no avatar is set avatar=New Gravatar( "c105749e9ce7a0535df2a22265f2fc58", 256 ) 'New avatar 'Use our own custom image URL if no avatar is set customNoAvatar=New Gravatar( "00000000000000000000000000000000", 256, customNoAvatarURL ) 'New avatar 'Use 'Robohash' if no avatar is set 'Robohash: a generated robot with different colors, faces, etc noAvatar1=New Gravatar( "00020000000000000200000000000000", 256, GravatarDefault.Robohash ) 'New avatar 'Use 'Identicon' if no avatar is set 'Identicon: a geometric pattern based on an email hash noAvatar2=New Gravatar( "01000100001000010000100000000000", 256, GravatarDefault.Identicon ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawImage( avatar, 32 ,32 ) canvas.DrawImage( customNoAvatar, 32+268 ,32 ) canvas.DrawImage( noAvatar1, 32 ,32+268 ) canvas.DrawImage( noAvatar2, 32+268 ,32+268 ) End End Function Main() New AppInstance New MyWindow App.Run() End 'Gravatar Enum GravatarDefault Mystery=1 Identicon=2 Monsterid=3 Wavatar=4 Retro=5 Robohash=6 Blank=7 End Class Gravatar Extends Image Const GRAVATAR_DOMAIN:="http://gravatar.com" Const GRAVATAR_DEFSIZE:=40 'New Gravatar with Gravatars built in options for empty avatars Method New( user:String, size:Int=0, noAvatar:GravatarDefault ) Super.New( StartImage( size ) ) GetGravatar( user, size, TranslateDefaultEnum( noAvatar ) ) End 'New Gravatar with custom image for empty avatars Method New( user:String, size:Int=0, noAvatar:String="" ) Super.New( StartImage( size ) ) GetGravatar( user, size, noAvatar ) End 'Download Gravatar Method GetGravatar( user:String, size:Int, noAvatar:String="" ) If size<=0 Then size=GRAVATAR_DEFSIZE New Fiber(Lambda() 'Prepare address Local src:=GRAVATAR_DOMAIN+"/avatar/"+user+"/default.jpg?s="+size If noAvatar Then src+="&d="+noAvatar 'Temp location Local tmp:=user+"_"+Millisecs()+"_gravatar.jpg" 'Make sure it doesn't exist already DeleteFile( tmp ) 'Prepare console Local _console:Console=New Console #if __HOSTOS__="macos" Local cmd:="curl -s -o ~q"+tmp+"~q ~q"+src+"~q" #else Local cmd:="wget -q -O ~q"+tmp+"~q ~q"+src+"~q" #endif 'Download! If Not _console.Run( cmd ) Return 'Error? If _console.Process.ExitCode Print "Gravatar "+_console.Process.ExitCode Return Endif If GetFileSize( tmp )<=1 Then Print "Gravatar error downloading" Return Endif 'Set new image Local texture:=New Texture( Pixmap.Load( tmp ), TextureFlags.FilterMipmap ) Self.Texture=texture 'Cleanup DeleteFile( tmp ) End) End Private 'Just an empty image Method StartImage:Pixmap( size:Int ) If size<=0 Then size=GRAVATAR_DEFSIZE Local tmpPix:Pixmap tmpPix=New Pixmap( size, size ) tmpPix.ClearARGB( 0 ) Return tmpPix End 'Translate Enums to proper built in Gravatar avatars Method TranslateDefaultEnum:String( v:Int ) Select v Case 1 Return "mm" 'mystery man Case 2 Return "identicon" Case 3 Return "monsterid" Case 4 Return "wavatar" Case 5 Return "retro" Case 6 Return "robohash" Case 7 Return "blank" End Return "" End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182

'Gravatar profile avatar downloader 'https://gravatar.com/ 'By @Hezkore   'Explanation 'The 'Gravatar' class acts as normal images 'Create a new 'Gravatar' and enter your Gravatar E-Mail in lower case but in MD5 hash 'Here's an online converter: http://www.miraclesalad.com/webtools/md5.php 'For example "my@mail.com" would be aa9c8aff95b1d8eb91ba15adc3e42802   'Example: myAvatar=New Gravatar( "aa9c8aff95b1d8eb91ba15adc3e42802" )   'IMPORTANT! 'Remember to import wget for windows! #If __TARGET__="windows" #Import "bin/wget.exe" #Endif   #Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox..   Class MyWindow Extends Window 'Custom image to use if no avatar is set Field customNoAvatarURL:String="http://ichef-1.bbci.co.uk/news/660/cpsprodpb/025B/production/_85730600_monkey2.jpg" Field avatar:Gravatar Field customNoAvatar:Gravatar Field noAvatar1:Gravatar Field noAvatar2:Gravatar Method New() Super.New( "Gravatar", 640, 640 ) 'New avatar 'Use Gravatar default image if no avatar is set avatar=New Gravatar( "c105749e9ce7a0535df2a22265f2fc58", 256 ) 'New avatar 'Use our own custom image URL if no avatar is set customNoAvatar=New Gravatar( "00000000000000000000000000000000", 256, customNoAvatarURL ) 'New avatar 'Use 'Robohash' if no avatar is set 'Robohash: a generated robot with different colors, faces, etc noAvatar1=New Gravatar( "00020000000000000200000000000000", 256, GravatarDefault.Robohash ) 'New avatar 'Use 'Identicon' if no avatar is set 'Identicon: a geometric pattern based on an email hash noAvatar2=New Gravatar( "01000100001000010000100000000000", 256, GravatarDefault.Identicon ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawImage( avatar, 32 ,32 ) canvas.DrawImage( customNoAvatar, 32+268 ,32 ) canvas.DrawImage( noAvatar1, 32 ,32+268 ) canvas.DrawImage( noAvatar2, 32+268 ,32+268 ) End End   Function Main() New AppInstance New MyWindow App.Run() End   'Gravatar Enum GravatarDefault Mystery=1 Identicon=2 Monsterid=3 Wavatar=4 Retro=5 Robohash=6 Blank=7 End   Class Gravatar Extends Image Const GRAVATAR_DOMAIN:="http://gravatar.com" Const GRAVATAR_DEFSIZE:=40 'New Gravatar with Gravatars built in options for empty avatars Method New( user:String, size:Int=0, noAvatar:GravatarDefault ) Super.New( StartImage( size ) ) GetGravatar( user, size, TranslateDefaultEnum( noAvatar ) ) End 'New Gravatar with custom image for empty avatars Method New( user:String, size:Int=0, noAvatar:String="" ) Super.New( StartImage( size ) ) GetGravatar( user, size, noAvatar ) End 'Download Gravatar Method GetGravatar( user:String, size:Int, noAvatar:String="" ) If size<=0 Then size=GRAVATAR_DEFSIZE New Fiber(Lambda() 'Prepare address Local src:=GRAVATAR_DOMAIN+"/avatar/"+user+"/default.jpg?s="+size If noAvatar Then src+="&d="+noAvatar 'Temp location Local tmp:=user+"_"+Millisecs()+"_gravatar.jpg" 'Make sure it doesn't exist already DeleteFile( tmp ) 'Prepare console Local _console:Console=New Console #if __HOSTOS__="macos" Local cmd:="curl -s -o ~q"+tmp+"~q ~q"+src+"~q" #else Local cmd:="wget -q -O ~q"+tmp+"~q ~q"+src+"~q" #endif 'Download! If Not _console.Run( cmd ) Return 'Error? If _console.Process.ExitCode Print "Gravatar "+_console.Process.ExitCode Return Endif If GetFileSize( tmp )<=1 Then Print "Gravatar error downloading" Return Endif 'Set new image Local texture:=New Texture( Pixmap.Load( tmp ), TextureFlags.FilterMipmap ) Self.Texture=texture 'Cleanup DeleteFile( tmp ) End) End Private 'Just an empty image Method StartImage:Pixmap( size:Int ) If size<=0 Then size=GRAVATAR_DEFSIZE Local tmpPix:Pixmap tmpPix=New Pixmap( size, size ) tmpPix.ClearARGB( 0 ) Return tmpPix End 'Translate Enums to proper built in Gravatar avatars Method TranslateDefaultEnum:String( v:Int ) Select v Case 1 Return "mm" 'mystery man Case 2 Return "identicon" Case 3 Return "monsterid" Case 4 Return "wavatar" Case 5 Return "retro" Case 6 Return "robohash" Case 7 Return "blank" End Return "" End End

[AmonParticipant]

That’s awesome….

[Mark SiblyKeymaster]

Cool!

[Author]

Posts