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...
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é...
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.003 segundos, usando GeSHi 1.0.8.4
¿¿¿ Alguna idea... ???
