Foro - Perl en Español

por **piero66** » 2009-07-27 10:28 @478

Hola... buenas...

Quiero saber cómo poder cambiar el propietario de un archivo en tiempo de ejecución, les explico:

Sucede que creo un archivo XML que se llama por ejemplo: prueba.xml; el propietario del archivo es Apache y quiero cambiarlo de propietario; ahorita actualmente tengo que ir a la ruta y cambiarle el permiso desde el shell. ¿Cómo puedo hacerlo automático...? Mi archivo es este...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(DOC,"> $EF_WEB/xml/$nombre.xml")||die"No se pudo abrir el archivo";
print DOC "<?xml version='1.0' encoding='ISO-8859-1'?>";
print DOC "<ImportSession>";
print DOC "<Batches>";
print DOC "<Batch Name=\"$nombre\" BatchClassName=\"DESARROLLO URBANO\" EnableAutomatiCSeparationAndFormID=\"0\">";
print DOC "<Documents>";
print DOC "<Document FormTypeName=\"$in{'_tramite'}\">";
print DOC "<IndexFields>";
print DOC "<IndexField Name=\"DUFolio\" Value=\"$in{'process'}-$in{'folio'}\" /> ";
print DOC "<IndexField Name=\"DUProceso\" Value=\"$in{'process'}\" /> ";
print DOC "<IndexField Name=\"DUSolicitante\" Value=\"$in{'_solicitante'}\" /> ";
print DOC "<IndexField Name=\"DURequisito\" Value=\"$in{'req'}\" /> ";
print DOC "<IndexField Name=\"DUPropietario\" Value=\"$in{'_propietario'}\" /> ";
print DOC "<IndexField Name=\"DUCalle\" Value=\"$in{'_calle'}\" /> ";
print DOC "<IndexField Name=\"DUColonia\" Value=\"$in{'_colonia'}\" /> ";
print DOC "<IndexField Name=\"DUNumExtyInt\" Value=\"$in{'_numext'}-$in{'_numint'}\" /> ";
print DOC "<IndexField Name=\"DUFechaEntrega\" Value=\"$in{'_entrega'}\" /> ";
print DOC "<IndexField Name=\"DUFechaEntrada\" Value=\"$Sday/$Smon/$Syear\" /> ";
print DOC "<IndexField Name=\"DUCUP\" Value=\"$in{'_CUP'}\" /> ";
print DOC "<IndexField Name=\"DUCatastral\" Value=\"$in{'_catastral'}\" /> ";
print DOC "<IndexField Name=\"DUPredial\" Value=\"$in{'_predial'}\" /> ";
print DOC "<IndexField Name=\"DUGrupoTramite\" Value=\"$in{'name_pro'}\" /> ";
print DOC "<IndexField Name=\"DUTPDocumento\" Value=\"UNICO ENTRADA\" /> ";
print DOC "<IndexField Name=\"DUTramite\" Value=\"$in{'_tramite'}\" /> ";
print DOC "</IndexFields>";
print DOC "<Pages>";
print DOC "<Page ImportFileName=\"D:\\documentos_ac\\documentos\\tif\\$nombre.tif\" /> ";
print DOC "</Pages>";
print DOC "</Document>";
print DOC "</Documents>";
print DOC "</Batch>";
print DOC "</Batches>";
print DOC "</ImportSession>";
system("cp '/home/eflowweb/html/xml/$nombre.xml' '/media3/wxml3/");

# system(" chown otropropietario $nombre.xml")  # esta línea no me funciona por eso la comenté...Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

¿¿¿ Alguna idea... ???

Para cambiar el propietario de un archivo, puedes usar la función [url]chown[/url]() del propio Perl, en lugar de usar el comando del sistema. El resultado es el mismo.

Ahora bien, hay que indicar el lugar exacto donde está el fichero que quieres modificar. En tu código, estás copiando un fichero de un sitio a otro, pero en el chmod() no está claro si el programa se está ejecutando en el mismo directorio donde está el fichero que queremos modificar.

(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system("cp '/home/eflowweb/html/xml/$nombre.xml' '/media3/wxml3/");

# system(" chown otropropietario $nombre.xml");
# El 1000 es el uid del usuario que queremos poner.
chown1000,-1,"/media3/wxml3/$nombre.xml";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ver los ejemplos en chmod() para ver cómo usar los uid no numéricos.

Fíjate que pongo el camino completo al fichero.

Otro detalle: según la documentación, en la mayoría de los sistemas, no se permite el cambio de usuario a no ser que seas el superusuario. El programa tendrá los mismos problemas que su dueño a la hora de cambiar la propiedad.

La mayor parte de estos problemas de propiedad se pueden resolver con los permisos de escritura, lectura, ejecución y acceso de los ficheros y directorios.

Foro - Perl en Español

Cambiar el propietario de un archivo en tiempo de ejecución

Cambiar el propietario de un archivo en tiempo de ejecución

Publicidad

Re: Cambiar el propietario de un archivo en tiempo de ejecución

¿Quién está conectado?