Δι@ύγεια OpenData API – PHP Version

Δοκίμασα να κάνω μια διαφορετική δοκιμή να χρησιμοποιήσω το OpenData API της δι@ύγειας σε php αυτή τη φορά μήπως και έχω περισσότερη τύχη. Μετά από δοκιμές και άπειρα “500 internal errors” κατέληξα σε αυτά τα δύο κομμάτια κώδικα (μη ρωτήσετε που τα βρήκα, ούτε που θυμάμαι, κάπου στο internet) με όνομα works που δείχνει να δουλεύει και με όνομα fails που αρνείται πεισματικά και επιστρέφει πάντα 500 internal error.

<?php 
$ada = 'Β4ΩΛΧ-ΨΚΒ'; 
$url = 'http://opendata.diavgeia.gov.gr/api/decisions?ada='.urlencode($ada); 

function works($url) 
{ 
   $ch = curl_init(); 
   curl_setopt($ch, CURLOPT_URL,$url); 
   curl_setopt($ch, CURLOPT_HEADER, false); 
   curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); 
   $xmlstr = curl_exec($ch); 
   curl_close($ch); 

   return $xmlstr; 
} 

function fails($url) 
{ 
   $xmlstr = file_get_contents($url); //<-- line 19
   return $xmlstr; 
} 

$xml1 = simplexml_load_string(works($url)); 
$xml2 = simplexml_load_string(fails($url)); 

print_r($xml1); 
print_r($xml2); 
?>

Στο ini to allow_url_fopen το έχω on. Εκανα και το allow_url_include on (που δεν χρειάζεται αλλά να υπάρχει), έβαλα και το user_agent=”PHP” μιας και το ανέφερε και αυτό κάποιος στο documentation της file_get_contents.

Αυτό που παίρνω όταν τρέχω το αρχείο από κονσόλα είναι:

[dva@test ~]# php diavgeia.php 
PHP Warning:  file_get_contents(http://opendata.diavgeia.gov.gr/api/decisions?ada=%CE%924%CE%A9%CE%9B%CE%A7-%CE%A8%CE%9A%CE%92): failed to open stream: HTTP request failed! HTTP/1.1 500 Internal Server Error 
 in /var/www/html/test/xml/diavgeia.php on line 19 
SimpleXMLElement Object 
( 
    [queryInfo] => SimpleXMLElement Object 
        ( 
            [count] => 1 
            [from] => 1 
            [order] => desc 
            [total] => 1 
        ) 
)

Το οποίο δείχνει ότι η function works πέρασε, η fails κράσαρε κάτι στον server της διαύγειας, και μετά τυπώνει το xml που διάβασε η works, (για τη fails δε δείχνει τίποτα).

Δι@ύγεια OpenData API

Προσπαθώ να πάρω μερικές πληροφορίες για συγκεκριμένα έγγραφα από το web service της διαύγειας, σύμφωνα με αυτά που αναφέρονται στο http://opendata.diavgeia.gov.gr/

Εχω λοιπόν τον εξής απλούστατο κώδικα:

try
{
 ADA = "Β4ΩΛΧ-ΨΚΒ";
 //ADA = System.Web.HttpUtility.UrlEncode("Β4ΩΛΧ-ΨΚΒ");
 System.Xml.XmlDocument doc = new System.Xml.XmlDocument();
 string s = "http://opendata.diavgeia.gov.gr/api/decisions?ada=" + ADA;
 doc.Load(s);
}
catch (WebException e)
{
 System.Diagnostics.Debug.Print(e.ToString());
}

To οποίο πάντα (μα πάντα) μου πετάει το εξής web exception:

A first chance exception of type 'System.Net.WebException' occurred in System.Xml.dll
System.Net.WebException: The remote server returned an error: (500) Internal Server Error.
 at System.Net.HttpWebRequest.GetResponse()
 at System.Xml.XmlDownloadManager.GetNonFileStream(Uri uri, ICredentials credentials)
 at System.Xml.XmlDownloadManager.GetStream(Uri uri, ICredentials credentials)
 at System.Xml.XmlUrlResolver.GetEntity(Uri absoluteUri, String role, Type ofObjectToReturn)
 at System.Xml.XmlTextReaderImpl.OpenUrlDelegate(Object xmlResolver)
 at System.Threading.CompressedStack.runTryCode(Object userData)
 at System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData)
 at System.Threading.CompressedStack.Run(CompressedStack compressedStack, ContextCallback callback, Object state)
 at System.Xml.XmlTextReaderImpl.OpenUrl()
 at System.Xml.XmlTextReaderImpl.Read()
 at System.Xml.XmlLoader.Load(XmlDocument doc, XmlReader reader, Boolean preserveWhitespace)
 at System.Xml.XmlDocument.Load(XmlReader reader)
 at System.Xml.XmlDocument.Load(String filename)
 at Τest.TestADA.ADACheck(String ADA)

Μόλις πάρω internal server error, φαίνεται ότι κρασάρει ολόκληρο το web service στον server της Διαύγειας και δεν μπορώ να δω ούτε από web browser το xml δίνοντας τη διεύθυνση. Απλώς ο web server της διαύγειας απαντάει με το εξής:

HTTP Status 500 -
type Exception report
message
description The server encountered an internal error () that prevented it from fulfilling this request.
exception
javax.servlet.ServletException: Could not resolve view with name 'xmlView' in servlet with name 'diavgeia-api'
 org.springframework.web.servlet.DispatcherServlet.render(DispatcherServlet.java:1042)
 org.springframework.web.servlet.DispatcherServlet.doDispatch(DispatcherServlet.java:798)
 org.springframework.web.servlet.DispatcherServlet.doService(DispatcherServlet.java:716)
 org.springframework.web.servlet.FrameworkServlet.processRequest(FrameworkServlet.java:647)
 org.springframework.web.servlet.FrameworkServlet.doGet(FrameworkServlet.java:552)
 javax.servlet.http.HttpServlet.service(HttpServlet.java:617)
 javax.servlet.http.HttpServlet.service(HttpServlet.java:717)
 org.springframework.web.filter.CharacterEncodingFilter.doFilterInternal(CharacterEncodingFilter.java:88)
 org.springframework.web.filter.OncePerRequestFilter.doFilter(OncePerRequestFilter.java:76)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:344)
 org.springframework.security.web.access.intercept.FilterSecurityInterceptor.invoke(FilterSecurityInterceptor.java:110)
 org.springframework.security.web.access.intercept.FilterSecurityInterceptor.doFilter(FilterSecurityInterceptor.java:84)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.access.ExceptionTranslationFilter.doFilter(ExceptionTranslationFilter.java:98)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.session.SessionManagementFilter.doFilter(SessionManagementFilter.java:95)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.authentication.AnonymousAuthenticationFilter.doFilter(AnonymousAuthenticationFilter.java:79)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.servletapi.SecurityContextHolderAwareRequestFilter.doFilter(SecurityContextHolderAwareRequestFilter.java:55)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.savedrequest.RequestCacheAwareFilter.doFilter(RequestCacheAwareFilter.java:36)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.authentication.www.BasicAuthenticationFilter.doFilter(BasicAuthenticationFilter.java:178)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.context.SecurityContextPersistenceFilter.doFilter(SecurityContextPersistenceFilter.java:80)
 org.springframework.security.web.FilterChainProxy$VirtualFilterChain.doFilter(FilterChainProxy.java:356)
 org.springframework.security.web.FilterChainProxy.doFilter(FilterChainProxy.java:150)
 org.springframework.web.filter.DelegatingFilterProxy.invokeDelegate(DelegatingFilterProxy.java:237)
 org.springframework.web.filter.DelegatingFilterProxy.doFilter(DelegatingFilterProxy.java:167)
note The full stack trace of the root cause is available in the Apache Tomcat/6.0.29 logs.
Apache Tomcat/6.0.29

Μετά από λίγο (δεν έχω μετρήσει να δώ αν είναι 1 λεπτό ή 10) συνέρχεται ο web server, μέχρι να ξανατρέξω τον κώδικα και να ξανακρασάρει 😮

Υπάρχει καμιά πρόταση, ώστε να παίρνω τις πληροφορίες που θέλω;
Εχω μπροστά μου κάποιο λάθος και δεν το βλέπω;
Δεν ζητάω πολλά, αυτό που δείχνει η διεύθυνση για παράδειγμα http://opendata.diavgeia.gov.gr/api/decisions?ada=Β4ΩΛΧ-ΨΚΒ

PHP Password generator extension

Και το αντίστοιχο password generator σε php extension για να υπάρχει παντού διαθέσιμο χωρίς να χρειάζεται includes και copy/paste, αλλά και να είναι λίγο ή πολύ πιο γρήγορο από την αντίστοιχη function.

Δημιουργούμε ένα νέο φάκελο passwd και εκεί μέσα δημιουργούμε τα εξής αρχεία:

config.m4

PHP_ARG_ENABLE(passwd, whether to enable passwd support, [ --enable-passwd Enable passwd support])

if test "$PHP_PASSWD" = "yes"; then
  AC_DEFINE(HAVE_PASSWD, 1, [Whether you have passwd])
  PHP_NEW_EXTENSION(passwd, passwd.c, $ext_shared)
fi

INC_CHECK_DIRS="/usr /usr/local"

for i in $INC_CHECK_DIRS ; do
  if test -f $i/include/php/ext/standard/php_rand.h; then
    PHP_ADD_INCLUDE($i/include/php/ext/standard)
    break
  fi
done

passwd.h

#ifndef __PASSWD_H__
#define __PASSWD_H__ 1
#ifndef _WIN32
#include
#endif
#include
#ifdef ZTS
#include "TSRM.h"
#endif

#ifndef BOOL
#define BOOL	short
#endif //BOOL
#ifndef FALSE
#define FALSE	(0)
#endif
#ifndef TRUE
#define TRUE	(1)
#endif

#define PHP_PASSWD_WORLD_VERSION "1.0.0"
#define PHP_PASSWD_WORLD_EXTNAME "passwd"

PHP_FUNCTION(passwd_version);
PHP_FUNCTION(passwd_create);

PHP_MINIT_FUNCTION(passwd);
PHP_MINFO_FUNCTION(passwd);

extern zend_module_entry passwd_module_entry;
#define phpext_passwd_ptr &passwd_module_entry

#endif //__PASSWD_H__

passwd.c

#include "php.h"
#include "php_rand.h"

#ifdef _WIN32
#include "ext/standard/info.h"
#endif

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "passwd.h"

#ifndef LONG
typedef long LONG;
#endif

static function_entry passwd_functions[] = {
    PHP_FE(passwd_version, NULL)
    PHP_FE(passwd_create, NULL)
    {NULL, NULL, NULL}
};

zend_module_entry passwd_module_entry = {
#if ZEND_MODULE_API_NO >= 20010901
    STANDARD_MODULE_HEADER,
#endif
    PHP_PASSWD_WORLD_EXTNAME,
    passwd_functions,
    PHP_MINIT(passwd),
    NULL,
    NULL,
    NULL,
    PHP_MINFO(passwd),
#if ZEND_MODULE_API_NO >= 20010901
    PHP_PASSWD_WORLD_VERSION,
#endif
    STANDARD_MODULE_PROPERTIES
};

#ifdef COMPILE_DL_PASSWD  
ZEND_GET_MODULE(passwd)
#endif

char* passwordChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-_=+[]{}\|,<.>/?~;:";
int passwordCharsLen = 0; 

static void ZEND_MODULE_GLOBALS_CTOR_N(passwd)(void *passwd_globals TSRMLS_DC)
{
    //php_srand( time(NULL) );  
}

PHP_MINIT_FUNCTION(passwd)
{
    passwordCharsLen = strlen(passwordChars);
    return SUCCESS;  
}

PHP_MINFO_FUNCTION(passwd)
{
    php_info_print_table_start();
    php_info_print_table_row(2, "passwd", "passwd Functions");
    php_info_print_table_row(2, "passwd_create", "return a random password string");
    php_info_print_table_end();
}

PHP_FUNCTION(passwd_version)
{
    RETURN_STRING(PHP_PASSWD_WORLD_VERSION, 1);
} 

PHP_FUNCTION(passwd_create)
{
    long i, llen, rnd_idx;
    char* tmp;
    if (ZEND_NUM_ARGS() != 1) {
        WRONG_PARAM_COUNT;
    } 
    llen = 8;
    if ((zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &llen) == FAILURE) ||
        (llen < 4) || (llen > 128))
    {
        RETURN_STRING("len should be an integer between 4 and 128", 1);
    } 

    tmp = emalloc(llen+1);

    for (i=0; i<llen; i++)
    {
        rnd_idx = php_rand(TSRMLS_C);
        RAND_RANGE(rnd_idx, 0, passwordCharsLen-1, PHP_RAND_MAX);
        tmp[i] = passwordChars[rnd_idx];
    }
    tmp[i]=(char)0; 
    RETURN_STRING(tmp, 0);
}

Τώρα o αντίστοιχος κώδικας του σχετικού post θα μπορούσε να γίνει ως εξής:

<?php
header('Content-type: text/plain');
    if (isset($_GET['len'])) $len = (int)$_GET['len'];
    if (($len < 4) || ($len > 128)) $len = 8;
    echo passwd_create($len);
?>

PHP password generator

Χρειάστηκα σήμερα έναν password generator, γιατί ήθελα να δώσω passwords σε μια λίστα από emails που έφτιαχνα, και δεν μου πέρασε καν απο το μυαλό ότι το συγκεκριμένο το έχουν χρειαστεί χιλιάδες πριν από μένα. Οπότε ξεκίνησα να γράφω κώδικα και ιδού:

<?php
header('Content-type: text/plain');

function generatePassword($len)
{
    $passwordChars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()-_=+[]{}\|,<.>/?`~;:';
    $passwordCharsLen = strlen($passwordChars);
    $tmp = '';
    for ($i=0; $i < $len; $i++)
    {
        $x = rand(1, $passwordCharsLen);
        $tmp .= $passwordChars[$x-1];
    }
    return $tmp;
}

    if (isset($_GET['len'])) $len = (int)$_GET['len'];
    if (($len < 4) || ($len > 128)) $len = 8;
    echo generatePassword($len);
?>

Ισως βέβαια το να έψαχνα και να δοκίμαζα τι δουλεύει και τι όχι να μου έπαιρνε περισσότερο χρόνο απ΄ όσο μου πήρε να κάτσω να το γράψω μόνος μου, αλλά δεν πρόκειται να το μάθω ποτέ…

Αριθμοί Κυκλοφορίας

Μια απλή κλάση που τροποποιεί τους αριθμούς κυκλοφορίας ώστε να μείνουν μόνο οι επιτρεπτοί χαρακτήρες για τους αριθμούς κυκλοφορίας στις ελληνικές πινακίδες. Οι ελληνικοί χαρακτήρες που δεν υπάρχουν στο λατινικό αλφάβητο αφαιρούνται, και όσοι μένουν μετατρέπονται στον αντίστοιχο (οπτικά) λατινικό χαρακτήρα.
Οι λατινικοί μένουν όπως είναι, αφού αφορούν πινακίδες ξένων κρατών.
Αν τώρα υπάρχουν πινακίδες με αραβικά γράμματα, ταϊλανδέζικα, κινέζικα, κ.λπ. δεν έχω δει, οπότε κάνουμε τον κινέζο. 🙂 Continue reading

Ειδίκευση στο SEO, Search, Engine, Optimization, για το WWW

Αν έκανα μια δοκιμή να γράψω ένα άρθρο που να αναφέρει ότι έχω μια εταιρία που ειδικεύεται σε μερικούς τομείς, θα ήθελα να δώ πόσοι θα είναι αυτοί που θα βρούν τη σελίδα μου από κάποια μηχανή αναζήτησης του WWW.

Η σελίδα μου λοιπόν αναφέρει ότι ειδικεύεται στην κατασκευή ιστοσελίδων, ανακατασκευή ιστοσελίδων, σχεδίαση ιστοσελίδων, επανασχεδίαση ιστοσελίδων, σχεδιασμό ιστοσελίδων, επανασχεδιαμό ιστοσελίδων, ανάλυση ιστοσελίδων, ανάπτυξη ιστοσελίδων, φιλοξενία ιστοσελίδων, web design, web redesign, web development, web deployment, web hosting, hosting, web site design, web site redesign, web site development, web site deployment, web site hosting, site hosting, greek site hosting, greek hosting, web page design, web page redesign, web page development, web page deployment, web page hosting, page hosting, ιστοσελίδα, ιστοσελίδες, ιστοχώρος, κατασκευή, ανακατασκευή, σχεδιασμός, επανασχεδιασμός, βελτιστοποίηση, αναζήτηση, έλεγχος, έρευνα, αναζήτηση, seo, μηχανές, αναζήτηση, αναζήτησης, ιστός, ιστοχώρος, ιστοσελίδα, ιστοσελίδες, φιλοξενία ,domain, domains, seo services, υπηρεσίες, υπηρεσίες βελτιστοποίησης, αποτελέσματα, cuil, yahoo, google, bing.

Μόνο εγώ μπορώ να θεωρώ ότι μπορώ να ισχυρίζομαι ότι μπορώ να προσφέρω αξιόπιστα τις υπηρεσίες αφού επάρχει εξειδίκευση στο seo, search, engine, optimization για το www.

Ετσι λοιπόν θα αναφέρω ακόμα μια φορά για να γίνει πιο κατανοητό ότι στησελίδα μου λοιπόν αναφέρει ότι ειδικεύεται στην κατασκευή ιστοσελίδων, ανακατασκευή ιστοσελίδων, σχεδίαση ιστοσελίδων, επανασχεδίαση ιστοσελίδων, σχεδιασμό ιστοσελίδων, επανασχεδιαμό ιστοσελίδων, ανάλυση ιστοσελίδων, ανάπτυξη ιστοσελίδων, φιλοξενία ιστοσελίδων.

Ακόμα θα προσθέσω να μην μείνουν εκτός αναζήτησης από τις μηχανές αναζήτησης τα web design, web redesign, web development, web deployment, web hosting, hosting, web site design, web site redesign, web site development, web site deployment, web site hosting, site hosting, greek site hosting, greek hosting, web page design, web page redesign, web page development, web page deployment, web page hosting, page hosting, ιστοσελίδα, ιστοσελίδες, ιστοχώρος, κατασκευή, ανακατασκευή, σχεδιασμός, επανασχεδιασμός, βελτιστοποίηση, αναζήτηση, έλεγχος, έρευνα, αναζήτηση, seo, μηχανές, αναζήτηση, αναζήτησης, ιστός, ιστοχώρος, ιστοσελίδα, ιστοσελίδες, φιλοξενία ,domain, domains, seo services, υπηρεσίες, υπηρεσίες βελτιστοποίησης, αποτελέσματα, cuil, yahoo, google, bing,

Για να δούμε τελικά πόσοι είναι αυτοί που θα βρούν τη σελίδα μου από κάποια μηχανή αναζήτησης πιθανώς του google ή του yahoo ή ακόμα και του cuil. Αν τελικά βρούν την ιστοσελίδα μου ίσως αφήσουν και κάποιο σχετικό σχόλιο σχετικά με το πόσο χρήσιμη θεωρούν τη σελίδα μου και πόσο σχετική είναι με αυτό που έψαχναν να βρούν.

Ελεγχος Εγκυρότητας Α.Φ.Μ. (PHP Version)

Απλώς για να υπάρχει διαθέσιμο σε όποιον το χρειαστεί, η php version του κώδικα που υπάρχει στο άρθρο Ελεγχος Εγκυρότητας Α.Φ.Μ.

<?php
    function CheckAFM($afm)
    {
        if (!preg_match('/^(EL){0,1}[0-9]{9}$/i', $afm))
            return false;
        if (strlen($afm) > 9)
            $afm = substr($afm, 2);

        $remainder = 0;
        $sum = 0;

        for ($nn = 2, $k = 7, $sum = 0; $k >= 0; $k--, $nn += $nn)
            $sum += $nn * ($afm[$k]);
        $remainder = $sum % 11;

        return ($remainder == 10) ? $afm[8] == '0'
                                  : $afm[8] == $remainder;
    }
?>

Εχει μερικές μικροδιαφορές από τις C, C# Versions, αλλά ήταν απαραίτητο αφού προοριζόταν για χρήση σε ιστοσελίδα…

WordPress plugin Quick ‘n’ Dirty

Ηθελε ένας συμφορουμίτης στο freestuff.gr που είμαι μέλος να προσθέσει ένα custom widget για να παίρνει κάποια στατιστικά από ένα άλλο plugin (GD Star Rating) που είχε εγκαταστήσει, και έψαχνε για κάποιον να του φτιάξει ένα νέο plugin που να μπορεί να διαβάσει τα στοιχεία από το υπάρχον και να τα εμφανίζει με κάποιον custom τρόπο που ήθελε.
Το να κάτσεις να κάνεις ένα νέο plugin που να βγαίνει στη sidebar του wordpress blog σαν widget είναι αρκετή δουλειά και έχει και αρκετή χαμαλοδουλειά πέρα από τις λίγες απαιτήσεις γνώσεων που έχει για php και mysql. Continue reading

Highlight C# source code

Επαιζα πριν λίγο καιρό με την php και χρησιμοποιούσα την show_source για να δείχνω χρωματισμένο τον κώδικα. Κάποια στιγμή που προσπάθησα να μεταφράσω τον κώδικα από php σε C# για να δοκιμάσω την ταχύτητα της αντίστοιχης aspx σελίδας, χρειάστηκα πάλι την show_source, αλλά όσο έψαξα δεν βρήκα να δίνει κάτι αντίστοιχο το .net framework. Continue reading

PHP Extension – Ευρώ Ολογράφως

Χρησιμοποιώντας περιστασιακά (ubuntu) linux και php, σε μια στιγμή χαλαρότητας, είπα να δοκιμάσω να δουλέψω λίγο με την php. Να προσπαθήσω να προσθέσω κάποιες συναρτήσεις επιπλέον, όχι όμως σαν php source κώδικα, αλλά σαν extension module. Οι βασικοί λόγοι ήταν 3.
1ον) Δεν έχω κάποιον (αφεντικό ή πελάτη) πάνω από το κεφάλι μου να με πιέζει να παραδώσω χθές.
2ον) php sources γράφει και η κουτσή μαρία. php extensions όμως είναι λίγοι αυτοί που γράφουν, και ήθελα να δω πόσο εύκολο είναι να μην είσαι ένας από τους πολλούς, να ξεχωρίσεις από το μπουλούκι.
3ον) μια function μέσα σε ένα compiled php module τρέχει πιο γρήγορα από μια που γίνεται parse κάθε φορά. Το πόσο πιο γρήγορα θα κάτσω άλλη φορά να ασχοληθώ (αν βρώ χρόνο και κυρίως όρεξη). Continue reading