rajko jugxoi340charternet sunday 10 february 2008 084225 pm peter adkins wrote hey im looking find system allow administer multiple installs opensuse would like able administer packages firewall configuration etc across machines around 20 pcs setup moment learning environment although isnt many test goes well many machines administer different areas previously writing shell scripts need going pc downloadingrunning time consuming suggestions would great havent yet able find package require regards cheers peter looked httpwwwnovellcom something like remote access ssh qx q quiet x make possible call gui applications switch root whatever done work computer used whatever purpose usually used users able notice anything unless look logged schedule xorg restart reboot times computer used updates would transparent users done shutdown machines remotely regards rajko see httpenopensuseorgportal wwsddjtelusnet sun feb 24 102739 2008 messageid 47abdf962050202telusnet date thu 07 feb 2008 205030 0800 john w krahn mimeversion 10 perl beginners subject traversing upto end line contenttype textplain charsetiso88591 formatflowed contenttransferencoding 7bit vijay krishna wrote hi hello might little trivial wondering someone could give condition traverse across complete string perform operation encounter end line tried ifstring n operations seem working also tried ifstring null operations seem working either someone help string operations 1 ge john perl isnt toolbox small machine shop specialorder certain sorts tools low cost short order larry wall chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98658ezm iineixzkvwlxtgmailcom sun feb 24 102739 2008 soiofdvxgperlorg pad subject system find escape character help date thu 7 feb 2008 184542 0800 pst messageid mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding 7bit script trying use find cmd solaris 8 os change permission ownership file dont know get working get find incomplete statement make things simpler small modified snippet code binperl use warnings tagnamexyz userorauser seq01 system echo find tagname_seqoradatatagname user 29334 exec chown user output find xyz_01oradataxyz user 29334 exec chown orauser really wanted find xyz_01oradataxyz user 29334 exec chown orauser please notice semicolon used echo statement show problem reality wanted use find cmd change permission say system find tagname_seqoradatatagname user 29334 exec chown user please let know escape character nt work help resolve problem much appreciated thanks pad chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98659ezm wwsddjtelusnet sun feb 24 102739 2008 messageid 47ac3bdc5040800telusnet date fri 08 feb 2008 032412 0800 john w krahn mimeversion 10 perl beginners subject system find escape character help contenttype textplain charsetiso88591 formatflowed contenttransferencoding 7bit pad wrote script trying use find cmd solaris 8 os change permission ownership file dont know get working get find incomplete statement make things simpler small modified snippet code binperl use warnings tagnamexyz userorauser seq01 system echo find tagname_seqoradatatagname user 29334 exec chown user output find xyz_01oradataxyz user 29334 exec chown orauser really wanted find xyz_01oradataxyz user 29334 exec chown orauser please notice semicolon used echo statement show problem reality wanted use find cmd change permission say system find tagname_seqoradatatagname user 29334 exec chown user please let know escape character nt work help resolve problem much appreciated may work better untested binperl use warnings use strict use filefind tagname xyz user getpwnam orauser seq 01 find sub uid gid lstat 4 5 return uid 29334 29334 user name uid instead return getpwuid uid ne 29334 chown user gid _ warn change owner file filefindname tagname_seqoradatatagname __end__ john perl isnt toolbox small machine shop specialorder certain sorts tools low cost short order larry wall chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98666ezm iineixzkvwlxtgmailcom sun feb 24 102739 2008 soiofdvxgperlorg pad subject system find escape character help date fri 8 feb 2008 125233 0800 pst messageid mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding 7bit thank much helpful feel looks perl like solution calling unix os cmd plhelp get chmod cmd trying set run directories thinking using system find exec chmod 755 pad feb 8 624 kratelusnet john w krahn wrote pad wrote script trying use find cmd solaris 8 os change permission ownership file dont know get working get find incomplete statement make things simpler small modified snippet code binperl use warnings tagnamexyz userorauser seq01 system echo find tagname_seqoradatatagname user 29334 exec chown user output find xyz_01oradataxyz user 29334 exec chown orauser really wanted find xyz_01oradataxyz user 29334 exec chown orauser please notice semicolon used echo statement show problem reality wanted use find cmd change permission say system find tagname_seqoradatatagname user 29334 exec chown user please let know escape character nt work help resolve problem much appreciated may work better untested binperl use warnings use strict use filefind tagname xyz user getpwnam orauser seq 01 find sub uid gid lstat 4 5 return uid 29334 29334 user name uid instead return getpwuid uid ne 29334 chown user gid _ warn change owner file filefindname tagname_seqoradatatagname __end__ john perl isnt toolbox small machine shop specialorder certain sorts tools low cost short order larry wall chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98667ezm abkstonehengecom sun feb 24 102739 2008 messageid 31086b240802081630v7cbd12ecq39fc9b1c2cd5e443mailgmailcom date fri 8 feb 2008 163030 0800 tom phoenix pad subject system find escape character help cc soiofdvxgperlorg mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding 7bit feb 8 2008 1252 pm pad wrote plhelp get chmod cmd trying set run directories thinking using system find exec chmod 755 perls chmod function work able use conjunction filefind solution already chmod documented perlfunc manpage httpperldocperlorgfunctionschmodhtml cheers tom phoenix stonehenge perl training chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98668ezm wwsddjtelusnet sun feb 24 102739 2008 messageid 47ad026640006telusnet date fri 08 feb 2008 173118 0800 john w krahn mimeversion 10 perl beginners subject system find escape character help contenttype textplain charsetiso88591 formatflowed contenttransferencoding 7bit pad wrote feb 8 624 kratelusnet john w krahn wrote may work better untested binperl use warnings use strict use filefind tagname xyz user getpwnam orauser seq 01 find sub uid gid lstat 4 5 return uid 29334 29334 user name uid instead return getpwuid uid ne 29334 chown user gid _ warn change owner file filefindname tagname_seqoradatatagname __end__ thank much helpful feel looks perl like solution calling unix os cmd plhelp get chmod cmd trying set run directories thinking using system find exec chmod 755 find sub uid gid lstat 4 5 return uid 29334 29334 user name uid instead return getpwuid uid ne 29334 chown user gid _ warn change owner file filefindname chmod 0755 _ warn change permissions file filefindname tagname_seqoradatatagname perldoc perlfunc snip functions filehandles files directories x chdir chmod chown chroot fcntl glob ioctl link lstat mkdir open opendir readlink rename rmdir stat symlink sysopen umask unlink utime john perl isnt toolbox small machine shop specialorder certain sorts tools low cost short order larry wall chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98673ezm lcvbdkstonehengecom sun feb 24 102739 2008 soiofdvxgperlorg subject system find escape character help lcvbdkstonehengecom randal l schwartz date sat 09 feb 2008 063603 0800 messageid 86zluaci3wfsfbluestonehengecom mimeversion 10 contenttype textplain charsetusascii john john w krahn writes 29334 user name uid instead return getpwuid uid ne 29334 strictly numeric username life real pain im pretty sure sane user admin tools forbid although edit etcpasswd shadow directly deserve bofh award randal l schwartz stonehenge consulting services inc 1 503 777 0095 perlunixsecurity consulting technical writing comedy etc etc see perltrainingstonehengecom onsite openenrollment perl training chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98660ezm aboickapjzpfamggmailcom sun feb 24 102739 2008 messageid date fri 8 feb 2008 101029 0500 jonathan mast soiofdvxgperlorg subject fwd fun main mimeversion 10 contenttype multipartalternative boundary_part_22579_56858021202483429259 _part_22579_56858021202483429259 contenttype textplain charsetiso88591 contenttransferencoding 7bit contentdisposition inline use main convention inside module call script subroutine know used reference fields script seem problems trying call subroutine thanks _part_22579_56858021202483429259 chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98661ezm izmthqjmfbringecom sun feb 24 102739 2008 mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding quotedprintable subject fun main date fri 8 feb 2008 162204 0100 messageid iso88591qthomas_be4tzler cc jonathan mast jonathan mast wrote use main convention inside module to20 call script subroutine 20 know used reference fields script but20 seem problems trying call subroutine please dont evil need call subroutine main package module pass function reference use callback cheers thomas chhekcjddpnfljifdhpi contenttype messagerfc822 contentdisposition inline filenamebeginners_98664ezm izmthqjmfbringecom sun feb 24 102739 2008 mimeversion 10 contenttype textplain charsetiso88591 contenttransferencoding quotedprintable subject fun main date fri 8 feb 2008 202804 0100 messageid iso88591qthomas_be4tzler cc jonathan mast jonathan mast asked ok braindead minimal example usrbinperl w use strict package samplecallback constructor takes function reference argument sub new class callback 3d _ self 3d cb 3d callback bless self class return self single method class invokes callback syntax note coderef dereference coderef sub invoke_callback self args 3d _ selfcb args 1 package main named function pass constructor sub callback_func args 3d _ print callback args join args illustrates taking reference function name obj1 3d samplecallbacknew callback_func obj1invoke_callback qwhello world thing anonymous coderef syntax note coderef 3d sub code obj2 3d samplecallbacknew sub print reverse _ n obj2invoke_callback qwhello world __end__ hth thomas tue 05 aug 2008 191643 0600 opensuse opensuse central management system