Diese Website existiert nur weil wir Werbung mit AdSense ausliefern.
Bitte den AdBlocker daher auf dieser Website ausschalten! Danke.

Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Geocaching-Logs und -Listings zu Statistik-Webseiten und Opencaching konvertieren

Moderatoren: HSCA, Lapu-Lapu, fogg

Benutzeravatar
geomitast
Geocacher
Beiträge: 108
Registriert: Mi 1. Aug 2012, 16:12

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von geomitast » Mo 27. Aug 2018, 23:06

@wrtlbrmpft
Auch von mir ein erneutes, riesiges danke!!!

VG
geomitast

Werbung:
wrtlbrmpft
Geocacher
Beiträge: 272
Registriert: Fr 8. Sep 2006, 13:31
Wohnort: 82008 Unterhaching

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von wrtlbrmpft » Sa 13. Okt 2018, 18:34

Wieder wurde die Login-Seite geändert - hier die Anpassungen:

Zeile 78 alt:

Code: Alles auswählen

my ($version) = "2.93j";
Zeile 78 neu:

Code: Alles auswählen

my ($version) = "2.93k";
Zeile 3974 alt:

Code: Alles auswählen

                'Username' => $user,
Zeile 3974 neu:

Code: Alles auswählen

                'UsernameOrEmail' => $user,

Benutzeravatar
marsipulami0815
Geocacher
Beiträge: 115
Registriert: Sa 24. Jan 2009, 11:25
Wohnort: Siegerland
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von marsipulami0815 » Sa 13. Okt 2018, 22:19

Danke. Geht wieder.
GPSmap 60CSx & Cachebox/Moto X

hjoe
Geocacher
Beiträge: 53
Registriert: Mo 6. Apr 2015, 10:46
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von hjoe » Di 16. Okt 2018, 19:52

marsipulami0815 hat geschrieben:
Sa 13. Okt 2018, 22:19
Danke. Geht wieder.
Danke auch von mir. War schon drauf gefasst, da auch c:geo Anmeldeprobleme hatte
mfg Heinz

Benutzeravatar
reindeer
Geocacher
Beiträge: 23
Registriert: Di 13. Feb 2007, 11:41
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von reindeer » Sa 29. Dez 2018, 11:48

Ich bräuchte dringend Hilfestellung, da ich seit längerer Zeit leider den Anschluss zum geolog-Programm und den nötigen Anpassungen verloren habe.
Meine letzten funktionierenden Aktualisierungen stammen mittlerweile vom 11.09.2016:
http://geolog.reindeer-geocaching.de
Vielleicht könnte mir jemand eine funktionierende exe-Datei schicken?
Oder gibt es irgendwo eine Anleitung, wie das mit perl funktioniert?
Vielen Dank schon mal.

Benutzeravatar
marsipulami0815
Geocacher
Beiträge: 115
Registriert: Sa 24. Jan 2009, 11:25
Wohnort: Siegerland
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von marsipulami0815 » Sa 29. Dez 2018, 17:02

Hallo reindeer,

falls Du selber patchen willst/möchtest/kannst, dann hier ein ein "diff" von der Version 2.92 zur 2.93k, so wie sie bei mir noch läuft. Das sind alle Änderungen, die ich hier im Forum dazu mitbekommen habe. Wahrscheinlich wirst Du das nicht selber können, da Du ja nach einer EXE-Datei fragst, aber vielleicht kann das jemand anderes mit dem u.a. diff erledigen.

Zu geolog unter Windows mit PERL kann ich Dir leider nicht weiterhelfen, da ich das nicht im Einsatz habe.

VG, Marcus

Code: Alles auswählen

--- geolog.pl-2.92	2015-08-07 16:36:00.000000000 +0200
+++ geolog.pl-2.93k	2018-12-29 16:40:36.971737394 +0100
@@ -75,7 +75,7 @@ require utf8;
 
 no utf8;
 
-my ($version) = "2.92";
+my ($version) = "2.93k";
 
 my ($geolog_agent)    = "Geolog/$version ($^O)";
 my ($mozilla_browser) = "User-Agent=Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.6) Gecko/2009011913 Firefox/3.0.6";
@@ -148,7 +148,7 @@ my $logConf = q(
         log4perl.appender.Logfile.Filter                        = LogFilter
         
         log4perl.filter.LogFilter                               = Log::Log4perl::Filter::LevelRange
-        log4perl.filter.LogFilter.LevelMin                      = INFO
+        log4perl.filter.LogFilter.LevelMin                      = TRACE
         log4perl.filter.LogFilter.LevelMax                      = FATAL
         log4perl.filter.LogFilter.AcceptOnMatch                 = true
         
@@ -259,8 +259,8 @@ my ($loginURL)   = "https://www.geocachi
 my ($logsURL)    = "http://www.geocaching.com/my/logs.aspx";
 my ($parkingURL) = "http://www.geocaching.com/images/attributes/parking-yes.gif";
 my ($publicURL)  = "http://www.geocaching.com/images/attributes/public-yes.gif";
-my ($profileURL) = "http://www.geocaching.com/profile/";
-my ($accountURL) = "http://www.geocaching.com/myaccount/settings/preferences";
+my ($profileURL) = "https://www.geocaching.com/profile/";
+my ($accountURL) = "https://www.geocaching.com/account/settings/preferences";
 my ($logBookURL) = "http://www.geocaching.com/seek/geocache.logbook";
 my ($logBookStartURL) = "http://www.geocaching.com/seek/cache_logbook.aspx";
 
@@ -3726,7 +3726,7 @@ sub post_html {
     my ( $url, $av_sleep, $nl, $notlogin, @postparams ) = @_;
     my ( $req, $resp );
     my ($retry) = 2;
-    TRACE "<$url><$av_sleep><$nl><$notlogin><&postparams>";
+    TRACE "<$url><$av_sleep><$nl><$notlogin><@postparams>";
 
     init_browser() if ( !defined($browser) );
     $url = url($url);
@@ -3836,7 +3836,7 @@ sub get_cache_listing_page {
         }
     }
 
-    Encode::from_to( $content, "utf8", "iso-8859-1" );
+    #Encode::from_to( $content, "utf8", "iso-8859-1" );
     $content =~ s/\r//g if ($rem_cm);
 
     if ( $wpt eq "" ) {
@@ -3916,10 +3916,7 @@ sub init_ua {
 sub init_browser {
     TRACE "";
     #$browser = WWW::Mechanize::GZip->new(ssl_opts => { SSL_version => 'SSLv3', SSL_cert_file => Mozilla::CA::SSL_ca_file() });
-#    $browser = WWW::Mechanize::GZip->new(ssl_opts => { SSL_version => 'TLSv1'});
-###20150801 https://forum.geoclub.de/viewtopic.php?f=103&t=72200&start=20
-   $browser = WWW::Mechanize::GZip->new(ssl_opts => {verify_hostname => 0, SSL_verify_mode => SSL_VERIFY_NONE });
-###20150801 https://forum.geoclub.de/viewtopic.php?f=103&t=72200&start=20
+    $browser = WWW::Mechanize::GZip->new(ssl_opts => { SSL_version => 'TLSv1_2'});
     $browser->agent_alias('Windows Mozilla');
 
     $browser->add_handler( response_data   => \&cb_count );
@@ -3953,7 +3950,7 @@ sub login {
     $resp    = $browser->get($loginURL);
     $content = $browser->content();
     TRACE("Content: $content");
-    if ( $content =~ /You are logged in as/msi ) {
+    if ( $content =~ /ctl00_uxLoginStatus_divSignedIn/msi ) {
 	INFO( $EN
 	      ?"] Still logged in ...\n"
 	      :"] Immer noch angemeldet ... \n"
@@ -3972,12 +3969,11 @@ sub login {
 
     do {
         $browser->submit_form(
-            form_name => 'aspnetForm',
+            form_number => 1,
             fields    => {
-                'ctl00$ContentBody$tbUsername' => $user,
-                'ctl00$ContentBody$tbPassword' => $password,
-            },
-            button => 'ctl00$ContentBody$btnSignIn'
+                'UsernameOrEmail' => $user,
+                'Password' => $password,
+            }
             );
         $content = $browser->content();
         TRACE("Content: $content");
@@ -3991,7 +3987,7 @@ sub login {
                 );
         }
         #if ( $content =~ /You are logged in as/msi ) {
-		if ( $content =~ /class=\"LoginContainer LoggedIn\"/msi ) {
+		if ( $content =~ /\/my\/default\.aspx/msi ) {
 	    INFO( $EN
 		  ?"] Logged in!\n"
 		  :"] Angemeldet!\n"
@@ -3999,7 +3995,7 @@ sub login {
             $loggedin = 1;
         }
 #        elsif ( $content =~ /Your username\/password combination does not match. Make sure you entered your information correctly./msi  )
-		elsif ( $content =~ /class=\"FormSummaryWidget FormErrorWidget/msi  )
+		elsif ( $content =~ /class=\"validation-summary-errors/msi  )
         {
 	    INFO( $EN
 		  ?"\nLogin error!!\nPlease specify password for \"$username\": "
@@ -6236,6 +6232,7 @@ sub cachecoords {
     if( $text =~ /\"oldLatLngDisplay\":\"(.*?)\"}};/si)
     {
         $text = $1;
+		Encode::from_to( $text, "utf8", "iso-8859-1" );
         if($text =~ /([N|S] [0-9]+° [0-9]+.[0-9]+)'( [E|W] [0-9]+° [0-9]+.[0-9]+)'/si)
         {
             $coords = $1 . $2;
@@ -6245,6 +6242,7 @@ sub cachecoords {
 	elsif($text =~ /<span id=\"uxLatLon\">(.*?)<\/span>/si)
 	{
 		$text = $1;
+		Encode::from_to( $text, "utf8", "iso-8859-1" );
 		#coordinates not modified. use the coords from page
 		if($text =~ /([N|S] [0-9]+° [0-9]+.[0-9]+)( [E|W] [0-9]+° [0-9]+.[0-9]+)/si)
 		{
@@ -6262,9 +6260,9 @@ sub cachetype {
     my ($type);
     my ($mytype) = "";
     $text =~
-        /<a href=\"\/about\/cache_types.aspx\" target=\"_blank\" title=\"About Cache Types\"><img src=\"\/images\/WptTypes\/[0-9]+\.gif\" alt=\"(.*?)\" title/si;
+        /<a href=\"\/about\/cache_types.aspx\" target=\"_blank\" title=\"(.*?)\" class=\"cacheImage\">/si;
     $type = $1;
-
+    Encode::from_to( $type, "utf8", "iso-8859-1" );
     LOOP:
     {
         foreach my $cachetype (@cacheTypeTable)
@@ -6291,6 +6289,7 @@ sub cachecontainer {
   if ( $text =~  m%<img src=\"/images/icons/container/.*?\.gif\" alt=\"$langField{'size'}: (.*?)\"%si  )
   {
     $container = $1;
+    Encode::from_to( $container, "utf8", "iso-8859-1" );
     #Switch container name to containerindex
     $containerIndex = -1;
     LOOP: {
@@ -6558,7 +6557,7 @@ sub cacheattributes {
 
     while ( $text =~ /\/images\/attributes\//s ) 
     {
-        $text =~ /\/images\/attributes\/(.*?)\.gif(.*)/si;
+        $text =~ /\/images\/attributes\/(.*?)\.png(.*)/si;
         $text = $2;
         if ( $1 ne "alert-on" && $1 ne "attribute-blank" ) {
             if ( $attr eq "" ) {
@@ -6660,7 +6659,7 @@ sub download_or_compare_log_pictures {
 
         while ( $content =~ m%<p class="AlignCenter">%si ) {
 
-            if ( $content =~ m%<img alt=.*?src=\"(http://img\.geocaching\.com/cache/log)/thumb(/.*?)(\.gif|\.jpg|\.png|\.jpeg|\.tiff|\.bmp)\".*?>.*?<small>(.*?)<\/small>(.*?)$%si )
+            if ( $content =~ m%<img alt=.*?src=\"(https://img\.geocaching\.com/cache/log)/thumb(/.*?)(\.gif|\.jpg|\.png|\.jpeg|\.tiff|\.bmp)\".*?>.*?<span>(.*?)<\/span>(.*?)$%si )
             {
                 $picname = beautify_name($4);
                 $picurl  = $1 . $2 . $3;
@@ -7386,7 +7385,7 @@ sub upload_gccom_profile {
     INFO( $EN ? "]\nSend profile ... ": "]\nSende Profil ... " );
     rsleep($sleeppage);
     $browser->submit_form(
-        form_name => 'aspnetForm',
+        form_id => 'aspnetForm',
         fields    => {
             'ctl00$ContentBody$uxProfileDetails' =>
                 ( suck_in( $directory . "/gcprofile." . $htmlext ) )
@@ -11579,32 +11578,7 @@ sub get_picture_logs {
             );
         return;
     }
-    if ( $content =~
-         /<input type="hidden" name="__VIEWSTATE1" id="__VIEWSTATE1" value="([^"]*?)"/si
-        )
-    {
-        $viewstate1 = $1;
-    }
-    else {
-        ERROR ( $EN
-                ? "Could not identify VIEWSTATE1 value\n"
-                : "Konnte VIEWSTATE1-Wert nicht finden\n"
-            );
-        return;
-    }
-    if ( $content =~
-         /<input type="hidden" name="__VIEWSTATEFIELDCOUNT" id="__VIEWSTATEFIELDCOUNT" value="([^"]*?)"/si
-        )
-    {
-        $viewstatefieldcount = $1;
-    }
-    else {
-        ERROR ( $EN
-                ? "Could not identify VIEWSTATEFIELDCOUNT value\n"
-                : "Konnte VIEWSTATEFIELDCOUNT-Wert nicht finden\n"
-            );
-        return;
-    }
+
     if ( $content =~ /ctl00_ContentBody_ProfilePanel1_lnkGallery.*?href="javascript:__doPostBack\(&#39;(.*?)&#39;,&#39;&#39;\)">.*?ctl00_ContentBody_ProfilePanel1_lnkLists/si )
     {
         $eventtarget = $1;
@@ -11624,9 +11598,7 @@ sub get_picture_logs {
             $profileURL, $sleeppage, 0, 0,
             __EVENTTARGET  => $eventtarget,
             __EVENTARGUMENT => '',
-            __VIEWSTATEFIELDCOUNT => $viewstatefieldcount,
             __VIEWSTATE    => $viewstate,
-            __VIEWSTATE1   => $viewstate1
             );
         $content = $resp->content;
         store_file( $content, $directory . "/saving/pics_$count.html", 0, 0 )
@@ -11650,30 +11622,6 @@ sub get_picture_logs {
             );
             return;
         }
-        if ( $content =~ /<input type="hidden" name="__VIEWSTATE1" id="__VIEWSTATE1" value="([^"]*?)"/si )
-        {
-            $viewstate1 = $1;
-        }
-        else {
-            ERROR ( $EN
-                ? "Could not identify VIEWSTATE1 value\n"
-                : "Konnte VIEWSTATE1-Wert nicht finden\n"
-            );
-            return;
-        }
-        if ( $content =~
-             /<input type="hidden" name="__VIEWSTATEFIELDCOUNT" id="__VIEWSTATEFIELDCOUNT" value="([^"]*?)"/si
-            )
-        {
-            $viewstatefieldcount = $1;
-        }
-        else {
-            ERROR ( $EN
-                ? "Could not identify VIEWSTATEFIELDCOUNT value\n"
-                : "Konnte VIEWSTATEFIELDCOUNT-Wert nicht finden\n"
-                );
-            return;
-        }
         
         if ($count > $numberofPages)
         {
@@ -11690,7 +11638,7 @@ sub findloggcids {
     my (@result) = ();
 
     TRACE "<$text>";
-    while ( $text =~ m|http://www\.geocaching\.com\/seek/log\.aspx\?LUID=([^&]*?)&IID=|gsi )
+    while ( $text =~ m|https://www\.geocaching\.com\/seek/log\.aspx\?LUID=([^&]*?)&IID=|gsi )
     {
         if ( defined( $luid2gcid{$1} ) ) {
             push( @result, $luid2gcid{$1} );
@@ -11997,7 +11945,7 @@ sub db_putGcUser {
         %dbuser = %user;
     }
 
-    $sql = qq(INSERT OR REPLACE INTO gcUserTable (name, luid, userid) VALUES ( \"$dbuser{'name'}\", \"'$dbuser{'luid'}'\", \"$dbuser{'userid'}\" ));
+    $sql = qq(INSERT OR REPLACE INTO gcUserTable (name, luid, userid) VALUES ( \"$dbuser{'name'}\", \"$dbuser{'luid'}\", \"$dbuser{'userid'}\" ));
     $sth = $db->prepare($sql);
     $sth->execute;
 }
@@ -12060,8 +12008,8 @@ sub get_date_format {
     my ($content) = @_;
     TRACE "<content>";
     INFO( $EN
-          ? "\n  Search for date format"
-          : "\n  Suche Datumsformat"
+          ? "\n Search for date format "
+          : "\n Suche Datumsformat "
         );
     if ( $content =~ /<select.*? id=\"SelectedDateFormat\".*?>(.*?)<\/select>/si )
     {
@@ -12118,7 +12066,7 @@ sub get_language
         {
             INFO( $EN
                   ? "Could not identify selected language"
-                  : "Konnte ausgewaehltes Sprache nicht identifzieren"
+                  : "Konnte ausgewaehlte Sprache nicht identifzieren"
                 );
             return "";
         }
@@ -12126,7 +12074,7 @@ sub get_language
     else {
         INFO($EN
              ? "Could not identify selected language"
-             : "Konnte ausgewaehltes Sprache nicht identifzieren"
+             : "Konnte ausgewaehlte Sprache nicht identifzieren"
             );
         return "";
     }
@@ -12201,11 +12149,11 @@ sub getNameFromUid {
 
     $content = get_user_profile_page( $guid, 1 );
 
-    if ( $content =~ m%<span id=\"ctl00_ContentBody_lblUserProfile\".*?>$langField{'profileFor'} .*?: (.*?)</span>.*?id=\"ctl00_ContentBody_ProfilePanel1_lnkSeePosts.*?\&amp\;mid=(.*?)\"%si )
+    if ( $content =~ m%<a id=\"ctl00_ProfileHead_ProfileHeader_lnkSeePosts\".*?/profile/(.*?)-(.*?)/content/\">%si )
     {
-        $user{'name'}   = $1;
+        $user{'name'}   = $2;
         $user{'luid'}   = $guid;
-        $user{'userid'} = $2;
+        $user{'userid'} = $1;
     }
     else {
         $name = "UNKOWN (GC layout changed!)";
GPSmap 60CSx & Cachebox/Moto X

wrtlbrmpft
Geocacher
Beiträge: 272
Registriert: Fr 8. Sep 2006, 13:31
Wohnort: 82008 Unterhaching

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von wrtlbrmpft » So 30. Dez 2018, 16:16

Hallo reindeer,

hier meine damalige Bemerkung zur erfolgreichen Installation von StrawberryPerl auf Windows 10:
https://geoclub.de/forum/viewtopic.php? ... y#p1259836
Traust Du Dir das zu?

Die aktuelle Version von geolog.pl ist allerdings in der Zwischenzeit 2.93k.

Weiter unten ist auch eine Notiz zur Installation von ActivePerl .

Benutzeravatar
reindeer
Geocacher
Beiträge: 23
Registriert: Di 13. Feb 2007, 11:41
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von reindeer » Mo 31. Dez 2018, 14:42

Vielen Dank für eure Antworten. Ich habe StrawberryPerl installiert.
Dann habe ich obigen Code als Textdatei geolog.pl abgespeichert.
Aber ich glaube, ich muss noch einiges nachinstallieren (aber was?), denn beim Starten wird mir folgendes angezeigt:
C:\>perl c:\zumtesten\geolog.pl
Number found where operator expected at c:\zumtesten\geolog.pl line 1, near "2.92 2015"
(Missing operator before 2015?)
Number found where operator expected at c:\zumtesten\geolog.pl line 1, near "07 16"
(Missing operator before 16?)
Bareword found where operator expected at c:\zumtesten\geolog.pl line 2, near "2.93k"
(Missing operator before k?)
Number found where operator expected at c:\zumtesten\geolog.pl line 2, near "k 2018"
(Do you need to predeclare k?)
Number found where operator expected at c:\zumtesten\geolog.pl line 2, near "29 16"
(Missing operator before 16?)
Array found where operator expected at c:\zumtesten\geolog.pl line 3, near "@@"
(Missing semicolon on previous line?)
Array found where operator expected at c:\zumtesten\geolog.pl line 3, near "7 @@"
(Missing operator before @@?)
Can't modify constant item in predecrement (--) at c:\zumtesten\geolog.pl line 1, near "geolog."
syntax error at c:\zumtesten\geolog.pl line 1, near "2.92 2015"
Illegal octal digit '8' at c:\zumtesten\geolog.pl line 1, at end of line
BEGIN not safe after errors--compilation aborted at c:\zumtesten\geolog.pl line 5.
Ich wünsche Euch einen Guten Rutsch ins Neue Jahr! :margarita:

Benutzeravatar
reindeer
Geocacher
Beiträge: 23
Registriert: Di 13. Feb 2007, 11:41
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von reindeer » Mo 31. Dez 2018, 16:45

OK, ich weiß ja ungefähr, wie es funktioniert.
Aber die mit:
pp -o c:/zumtesten/geolog.exe c:/zumtesten/geolog.pl
erzeugte exe-Datei bringt die gleichen Fehlermeldungen.
Wie lautet den der korrekte Programmaufruf?

Benutzeravatar
SammysHP
Geowizard
Beiträge: 2787
Registriert: Mi 22. Dez 2010, 17:32
Wohnort: Celle
Kontaktdaten:

Re: Alle Jahre wieder: Geolog Anmeldung bei geocaching.com schlägt fehl

Beitrag von SammysHP » Mo 31. Dez 2018, 18:10

Obiger "Code" ist kein Perl-Script, sondern nur die Änderungen, die an der letzten Version mittels "patch" durchgeführt werden müssen!
c:geo-Entwickler

Antworten