This section is now closed for posting code. Please use Cool Uses For Perl instead.

Code Categories
Audio Related ProgramsFTP stuffNT Admin
CGI ProgrammingFun StuffWin32 Stuff
Chatterbox ClientsGUI ProgrammingMiscellaneous
CryptographyHTML UtilityText Processing
Database ProgrammingUtility ScriptsNetworking Code
E-Mail ProgramsWeb StuffPerlMonks Related Scripts


New Code
Physical memory on remote machine
on Mar 27, 2006 at 18:19
0 replies by mjg
A short example of WMI and Win32::OLE to get info from another server. Note that the hostname needs to be laundered or Win32::OLE will cry.
SFTP Sync
on Mar 25, 2006 at 23:47
3 replies by neosamuri
perl sync.pl local_path remote_host user pass

This will compare the remote and local folders, and copy the newer of each to the other. This results in each machine having the newest of each and being the same

Rpm Generation tool
on Mar 23, 2006 at 15:56
0 replies by jmrenouard
myrpm2 is a simple rpm packaging tool.

How to install it ?

  • yum -y install cpan2rpm
  • cpan2rpm —no-sign Text ::Template
  • cpan2rpm —no-sign IO ::Zlib
  • cpan2rpm —no-sign Archive ::Tar
  • cpan2rpm —no-sign Getopt ::Long
  • cp myrpm2.pl /usr/bin

How to use it ?

General Options :

  • -h, —help : Print this help.
  • -V, —verbose : Print debug information, verbose mode.
  • -b, —build : Build the package automattically at the end.
  • -d, —directory= : Root directory ( / by default ).

Package Options :

  • -n, —name= : Package name.
  • -v, —version= : Package version.
  • -r, —release= : Package release.
  • -D, —description= : Package Description.
  • -S, —summary= : Package Summary.
  • -p, —packager= : Packager identity.

Examples

Package a sub directory as the root filesystem

cd /home/jmrenouard/myrpmBuildDir && find `pwd` -iname ’*’ -print | myrpm.pl -V -d /home/jmrenouard/myrpmBuildDir -n toto -b
  • Find build the list of all the files in /home/jmrenouard/myrpmBuildDir.
  • myrpm.pl packages all the files /home/jmrenouard/myrpmBuildDir in a package with toto as name.
  • myrpm.pl consider /home/jmrenouard/myrpmBuildDir as the root of all the files so all this files will be installed from the root file system by the rpm program.

Re package a installed rpm

rpm -ql yum |  myrpm.pl -V -n yum -r 1_jmr -b
  • Rpm gives the list of the files in the yum package installed on the system.
  • myrpm.pl packages all the files in a package with yum as name and 1_jmr as release.
  • This is a new way to package modification on a installed system.
BBC News Reader
on Mar 23, 2006 at 08:12
1 reply by ssuresh83
BBc New RSS Reader
Simple ftp client
on Mar 23, 2006 at 08:06
0 replies by ssuresh83
Beginers
md5sum check
on Mar 23, 2006 at 00:57
3 replies by w3b
When we have extraneous user in computer, we are in state of emergency. Bad guy can modify file like /etc/ssh/sshd_config or /etc/passwd... I don't want to check checksum every day, so i write script which do it for me :) In .sumlog we write checksum::patch to file, and that's all
Are you Covered?
on Mar 20, 2006 at 11:07
1 reply by JSchmitz
Tells you what is getting backed up and what isn't - cheeeeers
CBE - Controle by E-mail vr 1.1
on Mar 20, 2006 at 00:04
2 replies by w3b
You can send command via e-mail from mobile phone and script will do it =] You have to write in subject or status: =command= and send:)You have to have module Net::POP3
pod_to_html.pl
on Mar 18, 2006 at 06:46
0 replies by demerphq

This is a simple pod2html.pl emulator that wraps Pod::Simple::HTML. The Pod::Simple classes IMO aren't very well documented. Pod::Simple::HTML has almost nothing in the way of docs, and I havent seen a fully functional perl script that emulates the old TOMC version. So I'm hoping that this node might help fill the gap a little. I know some of you out there will have written almost the same thing so if you think yours is better or has something useful then please do post it.

I haven't tried to emulate the interface of the old pod2html.pl at all, but I might as time goes by.

Usage:

pod_to_html.pl [--css=FILESPEC] [--notoc] [PODFILE [HTMLFILE]] --css: If FILESPEC is 'auto' then tries to find the CSS based on the value of $^X. Currently 'auto' is only useful on Win32 ActiveState perls. If no value is provided and there exists a pod_to_html.css file in the same directory as the script is running from then it defaults to using that. --notoc: Turn off the Table Of Contents at the top. --notitlebars: Turn off the title header and footer lines If PODFILE is omitted reads from STDIN, if HTMLFILE is omitted writes to STDOUT.

Netbackup Utility
on Mar 13, 2006 at 14:19
1 reply by JSchmitz
Front end for doing Netbackup tasks simply. They have an asci menu tool called bpadm but it's kind of a pain in the wazoo.