<?php
/*
Plugin Name: BobaMikro
Description: Lagar korturlar av nye innlegg og sender dei til Laconica og Twitter. Nyttar YOURLS til korturlar: http://code.google.com/p/yourls/downloads/list
Author: Simon Hansen
Author URI: http://boba.no/
Version: 0.1
*/
 
add_action('wp_head', 'bobamikro_hovudtagg'); // legg til i vevhovudet
 
add_action('new_to_publish', 	 'bobamikro_nypost'); // køyr når du publiserer nytt innlegg
add_action('draft_to_publish',	 'bobamikro_nypost'); // køyr når du publiserer ein kladd
add_action('pending_to_publish', 'bobamikro_nypost'); // køyr når du publiserer eit ventande innlegg
add_action('future_to_publish',	 'bobamikro_nypost'); // køyr når du publiserer eit planlagt innlegg
 
/**
 * Denne funksjonen utførast når noko vert publisert. Funksjonen finn tittel
 * og url, og lagar ny korturl (eller hentar ein eksisterande) frå YOURLS. 
 * Det sjekker så om innlegget har det eigenlaga feltet "bobamikro_posta". 
 * Viss ikkje, sender den inn mikroinnlegget og legg til feltet i innlegget.
 * @param post Dette er innlegget. Vert lagt til automatisk av WordPress
 */
function bobamikro_nypost( $post ) {
	$post_id = $post->ID; // ID til innlegget
 
	if($post->post_type!= 'post'){ // viss dette ikkje er eit innlegg
		return; // avslutt
	}
 
	$tittel = get_the_title($post_id); // Finn tittelen på innlegget
	$url = get_permalink ($post_id); // Finn lenkja til innlegget
	$kort = bobamikro_korturl_ny( $url, $post_id ); // Lag ny (eller finn gammal) korturl
 
	if ( !get_post_custom_values( 'bobamikro_posta', $post_id ) ) { // viss innlegget ikkje har feltet bobamikro_posta
		$kvitt = "MELDING $tittel $kort"; // lag mikroinnlegget
		if ( bobamikro_send_kvitt( $kvitt ) ){ // Send mikroinnlegget. Viss det vart sendt
			add_post_meta($post_id, 'bobamikro_posta', 1); // Legg til feltet bobamikro_posta
		}
	}
}
 
/**
 * Denne funksjonen tek i mot mikroinnlegget og sender det, brukarnamn, 
 * passord og tenar til Laconica og Twitter. Viss Laconica, Twitter eller båe
 * vart publisert, returnerer funksjonen den boolske verdien TRUE
 * @param kvitt Dette er mikroinnlegget.
 */
function bobamikro_send_kvitt( $kvitt ) {
	if(bobamikro_twitter('BRUKARNAMN PÅ TWITTER', 'PASSORD PÅ TWITTER', $kvitt)){ // Viss innlegget vart publisert på Twitter
		$twitter=TRUE; // Set variabelen twitter til TRUE
	}
	if(bobamikro_laconica('http://LACONICA-TENAREN DIN', 'BRUKARNAMN PÅ LACONICA', 'PASSORD PÅ LACONICA', $kvitt)){ // Viss innlegget var publisert på Laconica
		$laconica=TRUE; // Set variabelen laconica til TRUE
	}
 
	if( ($twitter && $laconica) || ($twitter || $laconica) ){ // Viss variablane laconica, twitter eller båe er TRUE
		return TRUE; // returner TRUE
	}else{ // viss korkje laconica eller twitter er TRUE
		return FALSE; // returner FALSE
	}
}
 
/**
 * Denne funksjonen gjer freistnad på å senda mikroinnlegg til Twitter, 
 * og returnerer TRUE eller FALSE alt etter som.
 * @param brukar Brukarnamnet på Twitter
 * @param pass Passordet på Twitter
 * @param melding Mikroinnlegget som skal publiserast
 */
function bobamikro_twitter($brukar, $pass, $melding){
	$tenar = "http://twitter.com/statuses/update.xml?status=".urlencode(stripslashes(urldecode($melding))); // API-en til Twitter
	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $tenar);
	curl_setopt($ch, CURLOPT_VERBOSE, 1);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	curl_setopt($ch, CURLOPT_USERPWD, "$brukar:$pass"); // brukarnamn og passord
	curl_setopt($ch, CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_1_1);
	curl_setopt($ch, CURLOPT_POST, 1);
	$resultat = curl_exec($ch);
	$resultatTabell = curl_getinfo($ch);
	curl_close($ch);
	return ($resultatTabell['http_code'] == "200");
}
/**
 * Denne funksjonen gjer freistnad på å senda mikroinnlegg til Laconica,
 * og returnerer TRUE eller FALSE alt etter som.
 * @param tenar Laconica-tenaren
 * @param brukar Brukarnamnet på Laconica-tenaren
 * @param pass Passordet på Laconica-tenaren
 * @param melding Mikroinnlegget som skal publiserast
 */
function bobamikro_laconica($tenar, $brukar, $pass, $melding){
	$tenar = $tenar.'/api/statuses/update.xml'; // API-en til Laconica
	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $tenar);
	curl_setopt($ch, CURLOPT_VERBOSE, 1);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	curl_setopt($ch, CURLOPT_USERPWD, "$brukar:$pass"); // brukarnamn og passord
	curl_setopt($ch, CURLOPT_HTTPAUTH, CURLAUTH_BASIC);
	curl_setopt($ch, CURLOPT_POSTFIELDS, 'status='. $melding);
	$resultat = curl_exec($ch);
	$resultatTabell = curl_getinfo($ch);
	curl_close($ch);
	return ($resultatTabell['http_code'] == "200");
}
 
/**
 * Denne funksjonen pentar ut ein link-tag i <head> med korturl til innlegget
 * viss dette finst. Funksjonen tek ingen parameter. Les kvifor link-taggen
 * er kjekk på t.d. http://shorturl.appjet.net/ og http://revcanonical.appspot.com/
 */
function bobamikro_hovudtagg() {
	global $post;
	$id = $post->ID; // ID til innlegget
	$kort = bobamikro_korturl_hent($id); // Hent korturl
	if ($kort){ // viss korturl finst
		echo "\n\t<link rel=\"alternate short shorter shorturl shortlink\" href=\"$kort\" />\n"; // prent ut link-tagg
	}
}
/**
 * Denne funksjonen finn fram korturl viss denne er lagra i det eigenlaga
 * feltet bobamikro_korturl. 
 * @param id ID-en til innlegget
 */
function bobamikro_korturl_hent($id) {
	$kort = get_post_meta( $id, 'bobamikro_korturl', true ); // Hent streng med innhaldet i det eigenlaga feltet bobamikro_korturl (tom streng viss dette ikkje finst)
	return $kort; // returner strengen
}
/**
 * Denne funksjonen freister å laga ny korturl til eit innlegg, og leggja til
 * eit eigenlaga felt med denne i. Den returnerer ein streng med korturlen.
 * @param url URL-en som skal kortast ned.
 * @param post_id ID på innlegget. Viss dette ikkje finst, er parameteren sett til 0.
 */
function bobamikro_korturl_ny( $url, $post_id = 0 ) {
	$korturl = bobamikro_korturl_api($url); // lagar korturl gjennom korturl-API-en
	if ($post_id && $korturl){ // viss innleggsID og korturl finst
		add_post_meta($post_id, 'bobamikro_korturl', $korturl); // legg til eigenlaga felt i innlegget
	}
	return $korturl; // returner korturl
}
 
/**
 * Denne funksjonen sender ein URL til YOURLS-apien og får attende ein korturl.
 * Viss URL-en er korta ned før, får du den eksisterande korturlen attende, 
 * viss ikkje vert ein ny korturl oppretta.
 * @param url URL-en som skal kortast ned
 */
function bobamikro_korturl_api($url){
	$brukar="BRUKARNAMN I YOURLS"; // brukarnamn i YOURLS
	$pass="PASSORD I YOURLS"; // passord i YOURLS
	$url=urlencode($url);
	$api="http://YOURLS-TENAREN DIN/yourls-api.php?username=$brukar&password=$pass&action=shorturl&url=$url&format=json"; // API-en til YOURLS
	$ch = curl_init(); 
	curl_setopt($ch, CURLOPT_URL, $api); 
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); 
	$json = curl_exec($ch); 
	curl_close($ch);
	$resultat = json_decode($json, TRUE);
	return $resultat["shorturl"]; // korturlen
}
?>