From albert.tobey at priority-health.com Fri Dec 5 10:34:59 2003 From: albert.tobey at priority-health.com (Al Tobey) Date: Wed Aug 4 00:01:35 2004 Subject: [Fwd: Newsletter from O'Reilly UG Program, December 4] Message-ID: <1070642099.1401.15.camel@linuxws1.internal.priority-health.com> ** ** ** PRIVILEGED AND CONFIDENTIAL ** ** ** This email transmission contains privileged and confidential information intended only for the use of the individual or entity named above. Any unauthorized review, use, disclosure or distribution is prohibited and may be a violation of law. If you are not the intended recipient or a person responsible for delivering this message to an intended recipient, please delete the email and immediately notify the sender via the email return address or mailto:postmaster@priority-health.com. Thank you. -------------- next part -------------- An embedded message was scrubbed... From: Marsee Henon Subject: Newsletter from O'Reilly UG Program, December 4 Date: Thu, 04 Dec 2003 18:11:13 -0800 Size: 15217 Url: http://mail.pm.org/archives/grand-rapids-pm-list/attachments/20031205/09bd06d3/attachment.eml From HEUSSERM at student.gvsu.edu Wed Dec 10 10:49:02 2003 From: HEUSSERM at student.gvsu.edu (Matthew R. Heusser) Date: Wed Aug 4 00:01:35 2004 Subject: E-Mail Lists: Message-ID: <1071074942.be3437e0HEUSSERM@student.gvsu.edu> Folks: I'm seriously considering starting up a SW-IMPROVE email list off of something like Topica.com - or perhaps two lists: (A) SW-IMPROVE (B) SW-GrandRapids The idea would be to talk about better ways to create software (A), and how to apply that to the job market in west michigan (B). (Waterfall, XP, Testing, Perl Vs. Lisp Vs. PL/SQL, web vs. forms, automated testing, UML, writing funky specs, gathering requirements, etc.) It's modeled after Danny Fought's SW-TEST discussion list. (http://topica.com/lists/swtest-discuss/) That said: (1) Should PM's be two lists: PM.Annouce and PM.Admin ? (2) Would anyone have interest in joining one of the lists I mention above? (3) Should I give up on A and join somebody else's? :-) regards, Matt Heusser From albert.tobey at priority-health.com Mon Dec 22 10:19:46 2003 From: albert.tobey at priority-health.com (Al Tobey) Date: Wed Aug 4 00:01:35 2004 Subject: [Fwd: Newsletter from O'Reilly UG Program, December 19] Message-ID: <1072109986.1399.53.camel@linuxws1.internal.priority-health.com> Hey, if somebody (that's you, Tessa) puts the O'Reilly Emerging Technology Conference banner on the GR.pm website, they get a free O'Reilly book. Also, those of you thinking about OSCON in 2004, the call for participation is out. ** ** ** PRIVILEGED AND CONFIDENTIAL ** ** ** This email transmission contains privileged and confidential information intended only for the use of the individual or entity named above. Any unauthorized review, use, disclosure or distribution is prohibited and may be a violation of law. If you are not the intended recipient or a person responsible for delivering this message to an intended recipient, please delete the email and immediately notify the sender via the email return address or mailto:postmaster@priority-health.com. Thank you. -------------- next part -------------- An embedded message was scrubbed... From: Marsee Henon Subject: Newsletter from O'Reilly UG Program, December 19 Date: Fri, 19 Dec 2003 17:53:56 -0800 Size: 16217 Url: http://mail.pm.org/archives/grand-rapids-pm-list/attachments/20031222/534d9d62/attachment.eml From williamday at email.com Tue Dec 23 09:55:40 2003 From: williamday at email.com (Bill Day) Date: Wed Aug 4 00:01:35 2004 Subject: GR.PM Review: Spidering Hacks Message-ID: <20031223155540.23950.qmail@email.com> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/grand-rapids-pm-list/attachments/20031223/3628d883/attachment.htm From kvictor at reidtool.com Tue Dec 23 10:52:10 2003 From: kvictor at reidtool.com (Kyle Victor) Date: Wed Aug 4 00:01:35 2004 Subject: How do I Parse a file share Message-ID: <2661726D01DED511BD540002A52CBE39023149CF@mail.reidtool.com> First here is my code: #!/usr/bin/perl -w use strict; use File::Find ; my $days = 365; my $path = '/'; print find(sub {(-A) > $days && print $File::Find::name,"\n";}, $path); exit; This will let me look thru my HD for files that have not been or have been accessed inside/outside of a given # of days Now I want to be able to look at a file share (one of the volumes on a server) and do the same as what the above code does I have a 235 G volume that is down to 5 G and my users say its all good data I want to parse it and find files that have not been accesses in say the last 14 months Then move them and archive to DVD But for now just need to print I am a newbie for sure...but have some C++ and VB so I have taken to Perl thus far... but have had a problem finding help on parsing a file share... Can or will ya'll help thanks Kyle Victor MCSA/MCSE/CCNA Network Administrator MIS Department of Reid Entities 2265 Black Creek Road Muskegon, MI 49444 Phone: 231.767.3772 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/grand-rapids-pm-list/attachments/20031223/c515fa2e/attachment.htm From matt at diephouse.com Tue Dec 23 17:45:56 2003 From: matt at diephouse.com (Matthew Diephouse) Date: Wed Aug 4 00:01:35 2004 Subject: How do I Parse a file share In-Reply-To: <2661726D01DED511BD540002A52CBE39023149CF@mail.reidtool.com> References: <2661726D01DED511BD540002A52CBE39023149CF@mail.reidtool.com> Message-ID: <26EEDE58-35A2-11D8-8C2B-000A9567FCE4@diephouse.com> Kyle, What types of machines are you running? Are you using samba? I'm assuming you're using samba with a windows server and a linux client. The more linux is involved, the easier this will be. The best option would be to run the perl right on the server. That will be cleanest and the least amount of work. Otherwise, you can try to mount the samba share on your client, using smbmount, and use File::Find with that. The little googling I did leads me to believe that there may be a few problems with this solution, but I'd investigate it. Else you can write your own solution using Filesys::SmbClient You'd basically need to write code to recurse the directories and use stat. You might even be able to take a copy of File::Find and change all the calls so they are methods on a Filesys::SmbClient object. You may also like a look at File::Finder and File::Find::Rule, which are two recent modules that supposedly boast a cleaner interface than File::Find. They might both just be wrappers to File::Find, I'm not sure. Hope this helps, matt diephouse ---------------------- http://matt.diephouse.com On Dec 23, 2003, at 11:52 AM, Kyle Victor wrote: > First here is my code: > > #!/usr/bin/perl -w > use strict; > use File::Find; > > my $days = 365; > my $path = '/'; > > print find(sub {(-A) > $days && print $File::Find::name,"\n";}, $path); > exit; > > This will let me look thru my HD for files that have not been or have > been accessed inside/outside of a given # of days > > Now I want to be able to look at a file share (one of the volumes on a > server) and do the same as what the above code does > > I have a 235 G volume that is down to 5 G and my users say its all > good data > I want to parse it and find files that have not been accesses in say > the last 14 months > Then move them and archive to DVD > But for now just need to print > > I am a newbie for sure...but have some C++ and VB so I have taken to > Perl thus far... > but have had a problem finding help on parsing a file share... > > Can or will ya'll help > > thanks > > Kyle Victor? MCSA/MCSE/CCNA > Network Administrator > MIS Department of Reid Entities > 2265 Black Creek Road > Muskegon, MI 49444 > Phone: 231.767.3772 > > ?????????? > ????????????? -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: text/enriched Size: 4062 bytes Desc: not available Url : http://mail.pm.org/archives/grand-rapids-pm-list/attachments/20031223/9ef72af1/attachment.bin From kvictor at reidtool.com Wed Dec 24 08:29:09 2003 From: kvictor at reidtool.com (Kyle Victor) Date: Wed Aug 4 00:01:35 2004 Subject: How do I Parse a file share Message-ID: <2661726D01DED511BD540002A52CBE39023149D0@mail.reidtool.com> Matt first thank you...I had thought about running the script local to the machine and now that you say that that is the best option I will be that to answer your questions...its a Win2K server that holds the volume, and I use a Win2K client...so your assumption is not correct, but we do have 4 Linux server, 1 a RedHat Advance Server I just implemented...but I am a MCSE (or storm trooper in the imperial army as like to call myself)...anyway....I will take a look at File::Finder and File::Find::Rule modules but I will take your advise and as a first step will run the Perl local.... thank you Kyle -----Original Message----- From: Matthew Diephouse [mailto:matt@diephouse.com] Sent: Tuesday, December 23, 2003 6:46 PM To: Kyle Victor Cc: 'grand-rapids-pm-list@happyfunball.pm.org' Subject: Re: How do I Parse a file share Kyle, What types of machines are you running? Are you using samba? I'm assuming you're using samba with a windows server and a linux client. The more linux is involved, the easier this will be. The best option would be to run the perl right on the server. That will be cleanest and the least amount of work. Otherwise, you can try to mount the samba share on your client, using smbmount, and use File::Find with that. The little googling I did leads me to believe that there may be a few problems with this solution, but I'd investigate it. Else you can write your own solution using Filesys::SmbClient You'd basically need to write code to recurse the directories and use stat. You might even be able to take a copy of File::Find and change all the calls so they are methods on a Filesys::SmbClient object. You may also like a look at File::Finder and File::Find::Rule, which are two recent modules that supposedly boast a cleaner interface than File::Find. They might both just be wrappers to File::Find, I'm not sure. Hope this helps, matt diephouse ---------------------- http://matt.diephouse.com On Dec 23, 2003, at 11:52 AM, Kyle Victor wrote: First here is my code: #!/usr/bin/perl -w use strict; use File::Find; my $days = 365; my $path = '/'; print find(sub {(-A) > $days && print $File::Find::name,"\n";}, $path); exit; This will let me look thru my HD for files that have not been or have been accessed inside/outside of a given # of days Now I want to be able to look at a file share (one of the volumes on a server) and do the same as what the above code does I have a 235 G volume that is down to 5 G and my users say its all good data I want to parse it and find files that have not been accesses in say the last 14 months Then move them and archive to DVD But for now just need to print I am a newbie for sure...but have some C++ and VB so I have taken to Perl thus far... but have had a problem finding help on parsing a file share... Can or will ya'll help thanks Kyle Victor MCSA/MCSE/CCNA Network Administrator MIS Department of Reid Entities 2265 Black Creek Road Muskegon, MI 49444 Phone: 231.767.3772 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/grand-rapids-pm-list/attachments/20031224/93d0d9b4/attachment.htm From HEUSSERM at student.gvsu.edu Sun Dec 28 19:13:43 2003 From: HEUSSERM at student.gvsu.edu (Matthew R. Heusser) Date: Wed Aug 4 00:01:35 2004 Subject: How do I Parse a file share Message-ID: <1072660423.73b91c20HEUSSERM@student.gvsu.edu> Kyle: If you get it to work, or even if you get stuck, this sounds like the makings of a Great Presentation for GR.PM. If you get it work, it could be "Look at the power of File::Find." If you get stuck, you could present "I did this and this; here is how these modules work, this is what I implemented, what should I do next?" While we can't offer you cash (sorry), we can offer you a free lunch and a O'Reilly Technical book of your choice. And we have a big pile of books. Just give it some thought ... regards, Matt Heusser -----Original Message----- From: Kyle Victor To: "'Matthew Diephouse'" Date: Wed, 24 Dec 2003 09:29:09 -0500 Subject: RE: How do I Parse a file share Matt first thank you...I had thought about running the script local to the machine and now that you say that that is the best option I will be that to answer your questions...its a Win2K server that holds the volume, and I use a Win2K client...so your assumption is not correct, but we do have 4 Linux server, 1 a RedHat Advance Server I just implemented...but I am a MCSE (or storm trooper in the imperial army as like to call myself)...anyway....I will take a look at File::Finder and File::Find::Rule modules but I will take your advise and as a first step will run the Perl local.... thank you Kyle -----Original Message----- From: Matthew Diephouse [mailto:matt@diephouse.com] Sent: Tuesday, December 23, 2003 6:46 PM To: Kyle Victor Cc: 'grand-rapids-pm-list@happyfunball.pm.org' Subject: Re: How do I Parse a file share Kyle, What types of machines are you running? Are you using samba? I'm assuming you're using samba with a windows server and a linux client. The more linux is involved, the easier this will be. The best option would be to run the perl right on the server. That will be cleanest and the least amount of work. Otherwise, you can try to mount the samba share on your client, using smbmount, and use File::Find with that. The little googling I did leads me to believe that there may be a few problems with this solution, but I'd investigate it. Else you can write your own solution using Filesys::SmbClient You'd basically need to write code to recurse the directories and use stat. You might even be able to take a copy of File::Find and change all the calls so they are methods on a Filesys::SmbClient object. You may also like a look at File::Finder and File::Find::Rule, which are two recent modules that supposedly boast a cleaner interface than File::Find. They might both just be wrappers to File::Find, I'm not sure. Hope this helps, matt diephouse ---------------------- http://matt.diephouse.com On Dec 23, 2003, at 11:52 AM, Kyle Victor wrote: First here is my code: #!/usr/bin/perl -w use strict; use File::Find; my $days = 365; my $path = '/'; print find(sub {(-A) > $days && print $File::Find::name,"\n";}, $path); exit; This will let me look thru my HD for files that have not been or have been accessed inside/outside of a given # of days Now I want to be able to look at a file share (one of the volumes on a server) and do the same as what the above code does I have a 235 G volume that is down to 5 G and my users say its all good data I want to parse it and find files that have not been accesses in say the last 14 months Then move them and archive to DVD But for now just need to print I am a newbie for sure...but have some C++ and VB so I have taken to Perl thus far... but have had a problem finding help on parsing a file share... Can or will ya'll help thanks Kyle Victor MCSA/MCSE/CCNA Network Administrator MIS Department of Reid Entities 2265 Black Creek Road Muskegon, MI 49444 Phone: 231.767.3772 Matthew Heusser, heusserm@student.gvsu.edu