<?
/*
Last changed: Fri Mar 20 2009 Christian (reccmo@reccmo-desktop)

Last edited :

Sat Feb 25 2006 Christian Mondrup (reccmo@localhost.localdomain)
	 Php include script created.

$Id: ick-utils.inc,v 1.30 2009/01/04 14:17:30 reccmo Exp $

$Log: ick-utils.inc,v $
Revision 1.30  2009/01/04 14:17:30  reccmo
Commented out active logic in function ick_valid_html

Revision 1.29  2008/12/14 12:43:50  reccmo
Added optional arg $ext to function ick_sound.

Revision 1.28  2007/11/22 08:11:19  reccmo
Added optiob arg $pdf to function ick_ext_ref.

Revision 1.27  2007/08/30 17:16:17  reccmo
Added optional parameter $pdf to func ick_intro.

Revision 1.26  2007/06/24 09:33:54  reccmo
Added option parameter $mews to func ick_news_header.

Revision 1.25  2007/06/22 21:40:58  reccmo
Added functions ick_news_header and ick_news_item.

Revision 1.24  2007/05/28 08:30:22  reccmo
Decreased value of global var $newslimdays to 90.

Revision 1.23  2007/04/30 15:36:52  reccmo
Adapted to DAIMI hosting.

Revision 1.22  2007/01/01 22:08:24  reccmo
Added func newslim. Midified func ick_new.

Revision 1.21  2006/05/09 11:03:01  reccmo
To func ick_source added new optional parm $sec.

Revision 1.20  2006/04/22 13:34:39  reccmo
Added funcs ick_png_img and ick_png_score.

Revision 1.19  2006/03/11 12:53:20  reccmo
Added functions ick_gs and ick_ps_score.

Revision 1.18  2006/03/11 09:47:44  reccmo
Added option parameter $title to function ick_preview

Revision 1.17  2006/03/10 09:26:25  reccmo
Added optional arg $internal to function ick_biography.

Revision 1.16  2006/03/09 20:03:53  reccmo
Added string function ext_ref and changed ick_ext_ref to echo
output from func ext_ref.

Revision 1.15  2006/02/26 17:42:06  reccmo
Added optional args $info and $head to function ick_intro.

Revision 1.14  2006/02/26 15:12:28  reccmo
Added function ick_intro.

Revision 1.13  2006/02/26 09:20:17  reccmo
Added optional arg $mult to function ick_source.

Revision 1.12  2006/02/25 22:57:47  reccmo
Commented off escape of comma in ick_mailto's arg $subj

Revision 1.11  2006/02/25 22:36:29  reccmo
Added optional arg $info to function ick_score

Revision 1.10  2006/02/25 18:21:27  reccmo
Added function ick_ext_ref.

Revision 1.9  2006/02/25 18:00:24  reccmo
Simplified function ick_ext()

Revision 1.8  2006/02/25 17:40:55  reccmo
Added function style_dir.

Revision 1.7  2006/02/25 17:19:41  reccmo
Added global reference to var $Icons to relevant functions

Revision 1.6  2006/02/25 16:53:50  reccmo
Replaced icon directoy path by reference af variable $Icons

Revision 1.5  2006/02/25 16:49:20  reccmo
Changed path to gif images to directory /Icons.

Revision 1.4  2006/02/25 15:00:59  reccmo
Made $name parm of function ick_contributor optional.

Revision 1.3  2006/02/25 14:27:57  reccmo
Added functions ick_ext and ick_biography.

Revision 1.2  2006/02/25 13:23:40  reccmo
Added several functions to be used for composer's indexes.

Revision 1.1  2006/02/24 23:50:56  reccmo
Initial version.


*/

require_once "db.inc";
#require_once "do_connect.inc";

$Css = "/Css";
$Icons = "/Icons";
$newslimdays = 90;
$default_id = "0";
$default_addr = "No email address";
$http_root = "/web/reccmo/public_html";
$img_dir = "email_address_images";
$connect_done = "FALSE";
$img_ix = 0;
$img_id = rand(10000,99999);
$id = $default_id;

function get_email($name) {
  global $conn;
  global $default_id;
  $email = "";
  $err = "ERR";

  $qry=
    "SELECT
       ia.Email
     FROM
      (SELECT
	 Last_Name,
	 First_Name,
	 Email
       FROM Contributor
       WHERE Email IS NOT NULL
     UNION
       SELECT
	 name,
	 first_Name,
	 Email
       FROM Person
       WHERE Email IS NOT NULL) ia
     WHERE concat_ws(' ',ia.First_Name,ia.Last_Name) = '$name'";

  $result = mysql_query($qry,$conn); 

echo "\nResult: $result\n";

  if (!$result) {
    return $err;
  }

$row = mysql_fetch_array($result);

$email = $row["Email"];

echo "$email\n";

/*
  if ($row = mysql_fetch_array($result)) {
    $email = $row["Email"];
  }
*/

  return $email;
}

function ick_mailto2($addr,$name,$subj) {
  global $conn;
  global $host;
  global $uid;
  global $pwd;
  global $database;
  $mysql_ok = "TRUE";

  if ($connect_done == "FALSE") {
    $conn=@mysql_connect($host,$uid,$pwd);
    $connect_done = "TRUE";
  }

  if (!$conn) {
    $mysql_ok = "FALSE";
  }

  if ($mysql_ok == "TRUE") {
    $ok_select=@mysql_select_db($database,$conn);

    if (!$ok_select) {
      $mysql_ok = "FALSE";
    }
  }

  if ($mysql_ok == "TRUE") {
    $email = get_email("$name");
  }
  else {
    echo "Database error!";
  }

  echo "<a href=\"mailto:$email" .
    "?subject=$subj on Werner Icking Music Archive\">" .
    "$name " . ick_mail() . "</a>";
}

function get_contributor_id($name) {
  global $conn;
  global $default_id;
  $id = $default_id;

  $qry=
    "SELECT
       ID
     FROM
       Email_Addresses
     WHERE concat_ws(' ',First_Name,Last_Name) = '$name'";

  $result = mysql_query($qry,$conn); 

  if (!$result) {
    return $default_id;
  }

  if ($row = mysql_fetch_array($result)) {
    $id = ($row["ID"] ? $row["ID"] : $default_id);
  }

  return $id;
}

function ick_contributor2($name) {
  global $conn;
  global $host;
  global $uid;
  global $pwd;
  global $database;
  global $where;
  global $connect_done;
  global $default_id;
  global $img_dir;

  $mysql_ok = "TRUE";

  if ($connect_done == "FALSE") {
    $conn=@mysql_connect($host,$uid,$pwd);
    $connect_done = "TRUE";
  }

  if (!$conn) {
    $mysql_ok = "FALSE";
  }

  if ($mysql_ok == "TRUE") {
    $ok_select=@mysql_select_db($database,$conn);

    if (!$ok_select) {
      $mysql_ok = "FALSE";
    }
  }

  if ($mysql_ok == "TRUE") {
    $id = get_contributor_id("$name");
    $address_img = "/" . $img_dir . "/" . $id . ".jpg";
    echo "$name <img style='vertical-align:middle;' src=\"$address_img\"></img>";
  }
  else {
    echo "Database error!";
  }
#  return $address_img;
}

function newslim($val) {
  global $newslimdays;
  $result = 0;
  $date_arr = explode("/",$val);
  if (checkdate($date_arr[1],$date_arr[2],$date_arr[0])) {
    $checktime = mktime(0,0,0,$date_arr[1],$date_arr[2],$date_arr[0]);
    if ((unixtojd(time()) - unixtojd($checktime)) > $newslimdays) {
      $result = 1;
    }
  }
  return $result;
}

function style_dir() {
  global $Css;
  echo "$Css";
}

function double_alt($val) {
  return "alt='$val' title='$val' ";
}

function ick_alt($val) {
  echo double_alt($val);
}

function ick_new($val) {
  global $Icons;
  if (! newslim($val)) {
    echo "<img src='$Icons/new.gif' border='0' " . double_alt($val) . ">";
  }
}

// function ick_new($val) {
//   global $Icons;
//   echo "<img src='$Icons/new.gif' border='0' " . double_alt($val) . ">";
// }

function ick_pdf() {
  global $Icons;
  return "<img src='$Icons/pdf.gif' border='0' " . double_alt("PDF") . ">";
}

function ick_gs() {
  global $Icons;
  return "<img src='$Icons/gs.gif' border='0' " . double_alt("postscript") . ">";
}

function ick_png() {
  global $Icons;
  return "<img src='$Icons/img.gif' border='0' " . double_alt("image") . ">";
}

function ick_png_img() {
  global $Icons;
  return "<img src='$Icons/png.png' border='0' " . double_alt("png") . ">";
}

function ick_snd() {
  global $Icons;
  return "<img src='$Icons/snd.gif' border='0' " . double_alt("sound") . ">";
}

function ick_mail() {
  global $Icons;
  return "<img src='$Icons/mail.gif' border='0' " . double_alt("mail") . ">";
}

function ick_ext() {
  global $Icons;
  return "<img src='$Icons/ext.gif' border='0' " . double_alt("extern") . ">";
}

function ick_info() {
  global $Icons;
  return "<img src='$Icons/info.gif' border='0' " . double_alt("info") . ">";
}

function ext_ref($name,$url) {
  return "<a href='$url' target='_blank'>$name " . ick_ext() . "</a>";
}

function ick_ext_ref($name,$url,$pdf="") {
  $pdf = ($pdf ? ick_pdf() : "");
  echo $pdf.ext_ref($name,$url);
}

function ick_valid_html() {
  global $Icons;
/*
  echo "<a href='http://validator.w3.org/check/referer'>" .
    "<img border='0' src='$Icons/valid-html401.gif' " .
    double_alt("Valid HTML 4.01!") . " height='31' width='88'></a>";
*/
}

function ick_Werner_Icking() {
  echo "2001-02-08, Werner Icking (1943-2001), " .
    "<a href='/index.html#GMD-Music-Archive'>GMD</a>";
}

function ick_WIMA_editor($date) {
  echo "$date, " .
    "<a href='mailto:reccmo@daimi.au.dk'>" .
    "Christian Mondrup</a>, " .
    "<a href='/'>Werner Icking Music Archive</a>";
}

function ick_score($file,$title,$info="") {
  echo "<a href='$file'>" . ick_pdf() . $title .
    ($info ? " " . ick_info() : "") . "</a>";
}

function ick_ps_score($file,$title,$info="") {
  echo "<a href='$file'>" . ick_gs() . $title .
    ($info ? " " . ick_info() : "") . "</a>";
}

function ick_png_score($file,$title,$info="") {
  echo "<a href='$file'>" . ick_png_img() . " " . $title .
    ($info ? " " . ick_info() : "") . "</a>";
}

function ick_preview($file,$title="") {
  echo "<a href='$file' target='_blank'>" . ($title ? "$title " : "")
    . ick_png() . "</a>";
}

function ick_sound($file,$title="",$ext="") {
  $ext = ($ext ? " " . ick_ext() : "");
  echo "<a href='$file'>" . ($title ? "$title " : "") . ick_snd() . "</a>" . $ext;
}

function ick_contributor($name="") {
  echo "<a href='/email-addresses.php' target='_blank'>" .
    ($name ? "$name " : "") . ick_mail() . "</a>";
}

function ick_mailto($addr,$name,$subj) {
  //$subj = ereg_replace(",","\,",$subj);
  echo "<a href=\"mailto:$addr" .
    "?subject=$subj on Werner Icking Music Archive\">" .
    "$name " . ick_mail() . "</a>";
}

function ick_source($file,$title,$mult="",$sec="") {
  echo ($sec ? "" : "with ") .
    "<a href='$file'>$title</a> source file" .
    ($mult ? "s" : "");
}

function ick_biography($url,$type="",$internal="") {
  $icon = ($internal ? "" : ick_ext());
  echo "<a href='$url'" .
    "target='_blank'><span class='c4'>biography" .
    ($type ? ", $type" : "" ) . "</span> " . $icon . "</a>";
}

function ick_intro($url,$title,$info="",$head="",$pdf="") {
  $span = ($head ? " class='c4'" : "");
  $icon = ($info ? ick_info() : "");
  $pdf = ($pdf ? ick_pdf() : "");
  echo "<a href='$url'" .
    "target='_blank'><span $span>$pdf$title $icon</span></a>";
}

function ick_news_header($mon_year,$news="") {
  $icon =
    ($news ?
     "<img src='$Icons/new.gif' width='32' height='12' ".double_alt("new").">"
     : "");
  echo "<tr>".
    "<td valign='top' colspan='2'>".$icon."<strong>".$mon_year."</strong></td>".
    "<td> </td>".
    "<td> </td>".
    "</tr>";
}

function gick_news_item($day,$page,$composer,$text) {
  echo "<tr>".
    "<td align='right' valign='top'>".$day."</td>".
    "<td valign='top'>&nbsp;<a href='../ByComposer/".$page."'>".$composer."</a></td>".
    "<td>".$text."</td>".
    "<td></td>".
    "</tr>";
}

?>