= 1073741824) {$taille = round($taille / 1073741824 * 100) / 100 . " G".$size_unit;} elseif ($taille >= 1048576) {$taille = round($taille / 1048576 * 100) / 100 . " M".$size_unit;} elseif ($taille >= 1024) {$taille = round($taille / 1024 * 100) / 100 . " K".$size_unit;} else {$taille = $taille . " ".$size_unit;} if($taille==0) {$taille="-";} return $taille; } function date_modif($fichier) { $tmp = filemtime($fichier); return date("d/m/Y H:i",$tmp); } function slash() { global $prefix, $racine; if(ereg("\\\\",$racine)){$slash="\\";} else {$slash="/";} return $slash; } function deldir($location) { if(is_dir($location)) { $all=opendir($location); while ($file=readdir($all)) { if (is_dir($location.slash().$file) && $file <> ".." && $file <> ".") { deldir($location.slash().$file); if(file_exists($location.slash().$file)){rmdir($location.slash().$file); } unset($file); } elseif (!is_dir($location.slash().$file)) { unlink($location.slash().$file); unset($file); } } closedir($all); rmdir($location); } else { unlink($location); } } function enlever_controlM($fichier) { $fic=file($fichier); $fp=fopen($fichier,"w"); while (list ($cle, $val) = each ($fic)) { $val=str_replace(CHR(10),"",$val); $val=str_replace(CHR(13),"",$val); fputs($fp,"$val\n"); } fclose($fp); } function traite_nom_fichier($nom) { global $prefix, $max_caracteres; $nom=stripslashes($nom); $nom=str_replace("'","",$nom); $nom=str_replace("\"","",$nom); $nom=str_replace("\"","",$nom); $nom=str_replace("&","",$nom); $nom=str_replace(",","",$nom); $nom=str_replace(";","",$nom); $nom=str_replace("/","",$nom); $nom=str_replace("\\","",$nom); $nom=str_replace("`","",$nom); $nom=str_replace("<","",$nom); $nom=str_replace(">","",$nom); $nom=str_replace(" ","_",$nom); $nom=str_replace(":","",$nom); $nom=str_replace("*","",$nom); $nom=str_replace("|","",$nom); $nom=str_replace("?","",$nom); $nom=str_replace("é","e",$nom); $nom=str_replace("è","e",$nom); $nom=str_replace("ç","c",$nom); $nom=str_replace("@","",$nom); $nom=str_replace("â","a",$nom); $nom=str_replace("ê","e",$nom); $nom=str_replace("î","i",$nom); $nom=str_replace("ô","o",$nom); $nom=str_replace("û","u",$nom); $nom=str_replace("ù","u",$nom); $nom=str_replace("à","a",$nom); $nom=str_replace("!","",$nom); $nom=str_replace("§","",$nom); $nom=str_replace("+","",$nom); $nom=str_replace("^","",$nom); $nom=str_replace("(","",$nom); $nom=str_replace(")","",$nom); $nom=str_replace("#","",$nom); $nom=str_replace("=","",$nom); $nom=str_replace("$","",$nom); $nom=str_replace("%","",$nom); $nom=str_replace("ä","ae",$nom); $nom=str_replace("Ä","Ae",$nom); $nom=str_replace("ö","oe",$nom); $nom=str_replace("Ö","Oe",$nom); $nom=str_replace("ü","ue",$nom); $nom=str_replace("Ü","Ue",$nom); $nom=str_replace("ß","ss",$nom); if (strlen($nom)> $max_caracteres) { $ext = substr($nom, (strrpos($nom,'.') + 1)); $nom = substr ($nom,0,$max_caracteres-4); $nom = $nom.".".$ext; } return $nom; } //----------------------------------------------------------------------------------------------------------------------------------------- // MAIN //----------------------------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------------------------- // DEPLACER / MOVE //----------------------------------------------------------------------------------------------------------------------------------------- function moveFile($fic, $dest) { //$rep=stripslashes($rep); $fic=stripslashes($fic); $dest=stripslashes($dest); if($dest!="") {$destination=$dest.slash();} $destination.=basename($fic); if(file_exists($fic)) {copy($fic,$destination);} if($fic!=$destination) {if(file_exists($fic)) {unlink($fic);}} $messtmp= "\n"; $messtmp.= sprintf(_GALFILEMOVED, $fic)." "; $err=0; if($dest=="") {$messtmp.= "/";} else {$messtmp.= "$dest";} $messtmp.= "\n"; $messtmp.= "\n"; if ($err!=0) return $messtmp; else return $err; } //----------------------------------------------------------------------------------------------------------------------------------------- // SUPPRIMER / DELETE //----------------------------------------------------------------------------------------------------------------------------------------- function deleteFile($rep, $fic) { $rep=stripslashes($rep); $fic=stripslashes($fic); $messtmp=""; $a_effacer=$fic; if(file_exists($a_effacer)) { if(is_dir($a_effacer)){deldir($a_effacer);$messtmp.=sprintf(_GALFILEDELETED, $fic);} else {unlink($a_effacer); $messtmp.=sprintf(_GALFILEDELETED2, $fic);} } else {$messtmp.=_GALFILEDELETED3;} $messtmp.=""; return $messtmp; } //----------------------------------------------------------------------------------------------------------------------------------------- // RENOMMER / RENAME //----------------------------------------------------------------------------------------------------------------------------------------- function renameFile($fic) { $err=""; $rep=stripslashes($rep); $fic=stripslashes($fic); $nom_fic=basename($fic); $messtmp=""; $fic_new=traite_nom_fichier($fic_new); $old=$racine.slash().$fic; $new=dirname($old).slash().$fic_new; if($fic_new=="") { $messtmp.= _GALFILERENAMED; $err=1; } else if(file_exists($new)) { $messtmp.=sprintf(_GALFILERENAMED1, $fic_new); $err=1; } else { rename($old,$new); $messtmp.=sprintf(_GALFILERENAMED2, $fic, $fic_new); } $messtmp.=""; if ($err!=0) return $messtmp; else return "OK"; } //----------------------------------------------------------------------------------------------------------------------------------------- // CREER UN REPERTOIRE / CREATE DIR //----------------------------------------------------------------------------------------------------------------------------------------- function makeDir($rep, $nomdir) { $rep=stripslashes($rep); //$nomdir=traite_nom_fichier($nomdir); if($nomdir=="") { $err=1; return _GALFILECREATED; } else if(file_exists("$rep/$nomdir")) { $err=2; return _GALFILECREATED1; } else { umask(000); $ret = @mkdir("$rep/$nomdir",0777); if ($ret) { $messtmp = sprintf(_GALFILECREATED2, $nomdir); $messtmp.=""; if($rep=="") {$messtmp.="/";} else {$messtmp.="$rep";} $messtmp.=""; $err=0; return "OK"; } else { $err=1; return _GALCREATECATERROR; } } } //----------------------------------------------------------------------------------------------------------------------------------------- // UPLOAD //----------------------------------------------------------------------------------------------------------------------------------------- function UploadFile($rep, $userfile, $userfile_name, $userfile_size) { $rep=stripslashes($rep); if($rep!=""){$rep_source=$rep;} $destination=$rep_source; if ($userfile_size!=0) {$taille_ko=$userfile_size/1024;} else {$taille_ko=0; $err=1; return _GALUPLOADERROR; } if ($userfile=="none") {$err=2; return _GALUPLOADERROR2;} if ($userfile!="none" && $userfile_size!=0) { $userfile_name=traite_nom_fichier($userfile_name); if (!@move_uploaded_file($userfile, "$destination/$userfile_name")) { $err=3; return _GALUPLOADERROR3; } else { /* if(eregi("\.txt","$userfile_name") ||eregi("\.html","$userfile_name") ||eregi("\.htm","$userfile_name") ||eregi("\.php","$userfile_name") ||eregi("\.php3","$userfile_name") ||eregi("\.htaccess","$userfile_name") ||eregi("\.htpasswd","$userfile_name") ||eregi("\.pl","$userfile_name") ||eregi("\.cgi","$userfile_name") ||eregi("\.js","$userfile_name") ) { enlever_controlM("$destination/$userfile_name"); } */ @chmod("$destination/$userfile_name",0664); $message = sprintf(_GALFILEUPLOADED1, $userfile_name, $rep); $err=0; return "OK"; } } } ?>
Contáctenos  

home :: Galería multimedia

 
Programa Donación de sangre (512k) Fecha de emisión:
06-11-2008
Programa Donación de sangre (512k)
Dr. Gustavo Milone: Donación de sangre
Micro:Dra. Gabriela Gutiérrez: Co-cultivo de endometrio
Programa Embarazo ectópico (512k) Fecha de emisión:
30-10-2008
Programa Embarazo ectópico (512k)
Dr. R. Sergio Pasqualini: Embarazo ectópico
Micro: Halitus presenta su nueva Web (3era parte)
Dr. Pasqualini: Una mujer que está amamantando, ¿puede quedar embarazada?
Programa Lo último en detección de cáncer mamario (512k) Fecha de emisión:
23-10-2008
Programa Lo último en detección de cáncer mamario (512k)
Dra. Claudia Perandones: Lo último en detección de cáncer mamario
Micro: Dra. Gabriela Gutiérrez: Historia de la pastilla anticonceptiva
Programa Testimonio Día de la madre (512k) Fecha de emisión:
16-10-2008
Programa Testimonio Día de la madre (512k)
Testimonio Día de la madre
Micro: Dra. Beatriz Literat: Dolor coital o dispareunia
Programa nuevo ministerio de Ciencia y Tecnología (256k) Fecha de emisión:
10-10-2008
Programa nuevo ministerio de Ciencia y Tecnología (256k)
Mtro Lino Barañao (Mterio de Ciencia , Tecnología e Innovación)
Creación del nuevo ministerio de Ciencia y Tecnología, su necesidad, su alcance
Programa Nuevo ministerio de Ciencia y Tecnología(56k) Fecha de emisión:
09-10-2008
Programa Nuevo ministerio de Ciencia y Tecnología(56k)
Mtro Lino Barañao (Mterio de Ciencia , Tecnología e Innovación)
Creación del nuevo ministerio de Ciencia y Tecnología, su necesidad, su alcance
Programa Trastornos dermatológicos en la adolescencia (256k) Fecha de emisión:
02-10-2008
Programa Trastornos dermatológicos en la adolescencia (256k)
Dra. Rita García Díaz: Trastornos dermatológicos en la adolescencia
Micro: -¿Qué es la colposcopía y la videocolposcopia?
Dr. Pasqualini: ¿Cómo es una ligadura tubaria?
Programa Trastornos dermatológicos en la adolescencia (56k) Fecha de emisión:
02-10-2008
Programa Trastornos dermatológicos en la adolescencia (56k)
Dra. Rita García Díaz: Trastornos dermatológicos en la adolescencia
Micro: -¿Qué es la colposcopía y la videocolposcopia?
Dr. Pasqualini: ¿Cómo es una ligadura tubaria?
Programa Pérdida de la memoria (256k) Fecha de emisión:
26-09-2008
Programa Pérdida de la memoria (256k)
Dr. Facundo Manes (INECO): Pérdida de la memoria
Programa Pérdida de la memoria (56k) Fecha de emisión:
25-09-2008
Programa Pérdida de la memoria (56k)
Dr. Facundo Manes (INECO): Pérdida de la memoria
Programa Enfermedades oncohematológicas (256k) Fecha de emisión:
18-09-2008
Programa Enfermedades oncohematológicas (256k)
Dr. Santiago Pavlovsky: Enfermedades oncohematológicas: linfomas
Micro: Halitus presenta su nueva Web (segunda parte)
Programa Enfermedades oncohematológicas (56k) Fecha de emisión:
18-09-2008
Programa Enfermedades oncohematológicas (56k)
Dr. Santiago Pavlovsky: Enfermedades oncohematológicas: linfomas
Micro: Halitus presenta su nueva Web (segunda parte)
Programa Ataques de pánico y fobias (256k) Fecha de emisión:
11-09-2008
Programa Ataques de pánico y fobias (256k)
Dr. Francisco Doria Medina: Ataques de pánico y fobias
Micro: Tratamientos dermatológicos postparto
Dr. Pasqualini: ¿Las parejas con VIH pueden ser padres? ¿Cómo?
Programa Ataques de pánico y fobias (56k) Fecha de emisión:
11-09-2008
Programa Ataques de pánico y fobias (56k)
Dr. Francisco Doria Medina: Ataques de pánico y fobias
Micro: Tratamientos dermatológicos postparto
Dr. Pasqualini: ¿Las parejas con VIH pueden ser padres? ¿Cómo?
Programa Enfermedades oncohematológicas (256k) Fecha de emisión:
04-09-2008
Programa Enfermedades oncohematológicas (256k)
Dr. Santiago Pavlovsky: Enfermedades oncohematológicas: Leucemias
Micro: Halitus presenta su nueva página web
Programa Enfermedades oncohematológicas (56k) Fecha de emisión:
04-09-2008
Programa Enfermedades oncohematológicas (56k)
Dr. Santiago Pavlovsky: Enfermedades oncohematológicas: Leucemias
Micro: Halitus presenta su nueva página web
Programa No. 156 (256k) Fecha de emisión:
21-08-2008
Programa No. 156 (256k)
Dr. R. Sergio Pasqualini: La vida humana desde sus inicios
Micro: Acompañamiento psicológico a pacientes en tratamientos de fertilidad
Dr. Pasqualini: Alcohol, tabaco y cafeína y su relación con el envejecimiento ovárico
Programa No. 156 (56k) Fecha de emisión:
21-08-2008
Programa No. 156 (56k)
Dr. R. Sergio Pasqualini: La vida humana desde sus inicios
Micro: Acompañamiento psicológico a pacientes en tratamientos de fertilidad
Dr. Pasqualini: Alcohol, tabaco y cafeína y su relación con el envejecimiento ovárico
Programa No. 155 (256k) Fecha de emisión:
14-08-2008
Programa No. 155 (256k)
Dr. Christian Boggio Mazert: Alergia a la proteína de leche de vaca ¿qué es?¿qué hacer?
Micro: Zonas erógenas femeninas
Dr. Pasqualini: ¿A partir de cuándo puede saberse el sexo del bebé?¿Cómo?
Programa No. 155 (56k) Fecha de emisión:
14-08-2008
Programa No. 155 (56k)
Dr. Christian Boggio Mazert: Alergia a la proteína de leche de vaca ¿qué es?¿qué hacer?
Micro: Zonas erógenas femeninas
Dr. Pasqualini: ¿A partir de cuándo puede saberse el sexo del bebé?¿Cómo?
Programa No. 154 (256k) Fecha de emisión:
07-08-2008
Programa No. 154 (256k)
Dr. R. Sergio Pasqualini: Controles prenatales
Micro: Acompañamiento psicológico a pacientes con indicación de ovodonación
Dr. Pasqualini: Mitos sobre pastillas anticonceptivas
Programa No. 154 (56k) Fecha de emisión:
07-08-2008
Programa No. 154 (56k)
Dr. R. Sergio Pasqualini: Controles prenatales
Micro: Acompañamiento psicológico a pacientes con indicación de ovodonación
Dr. Pasqualini: Mitos sobre pastillas anticonceptivas
Programa No. 152 (256k) Fecha de emisión:
31-07-2008
Programa No. 152 (256k)
Dra. Fabiana García: Estreptococo B
Micro: ¿Qué es y cómo detectar HPV?
Dr. Pasqualini: ¿Cuánto se debe esperar entre un bebé y la búsqueda del siguiente?
Programa No. 152 (56k) Fecha de emisión:
31-07-2008
Programa No. 152 (56k)
Dra. Fabiana García: Estreptococo B
Micro: ¿Qué es y cómo detectar HPV?
Dr. Pasqualini: ¿Cuánto se debe esperar entre un bebé y la búsqueda del siguiente?
Programa No. 151 (256k) Fecha de emisión:
24-07-2008
Programa No. 151 (256k)
Dr. Sergio Pasqualini: Indicación de FIV ¿Qué hay que hacer? ¿Qué hay que saber?
Micro: Disfunción eréctil en la andropausia

 . 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 . 
 
 

   

 
 

  Follow us on Twitter  

  SENTIR Y PENSAR
Idea original:
Dr. R Sergio Pasqualini
Conducción: 
Silvina Chediek 
Dr. R. Sergio Pasqualini

Producción General: 
María José Pasqualini

Producción Ejecutiva:
Álvaro de Miguel
Producción Periodística:
Mariana Iribarnegaray