This is meant primarily to illustrate how to load and display photo images in Perl-Tk. Secondarily, it shows how to scale images, how to put images into a scrolling window, and how to "drag" such a image.

Usage: slideshow.pl [DIRECTORY]
[download]

If no directory is specified, it uses the current directory.

Currently, it obtains a list of all jpeg files (specifically, files matching *.jpg) in the directory and shows them in slideshow. Use PageUp/PageDown, Left/Right, and Up/Down to go to the previous/next image in the list. The list circles around at both ends.

To drag the image (only possible when scrollbar(s) present), press down the main mouse button somewhere on the image, move the mouse, and let up the button.

I'm very lazy. When I'm at the monastery, I hate to open an $EDITOR just for pasting that small snippet, saving it to a file ("Overwrite?" yes, of course) and then run it. So what I usually do is run perl at the shell prompt, and paste there. This has the drawback that, to modify it, I have to copy-paste part of it, change something and copy-paste the rest. And when the output of the program is so large that my terminal runs out of buffer space, it is lost. These problems notwithstanding, I'm very fond of this way of doing things since that's how I began using Perl. Just type, do a Ctrl-D and see the action!

This Gtk2 program has a text box in it, and a "Run" button. Just paste the code there, and click the button (or hit Alt-R). The output of the code goes to pexec.pl's STDOUT, so it has to be executed from a terminal. Snippets are run under -t to encourage good programming habits without standing in the way.

This is a preliminary version -- with/ output via Data::Dumper and lacking POD (: "it's all in code", see region around GetOptions()) -- to find linked libraries in files related to FreeBSD ports.

This came about due to recent OpenSSL security advisories, necessitating rebuild of ports which were linked to old libraries. Dmitry Marakasov in message <20060907181108.GB90551@hades.panopticon> on freebsd-ports mailing posted ...

for port in `pkg_info -oaq`; do
        grep OPENSSL /usr/ports/$port/Makefile >/dev/null &&
                echo $port;
done
[download]

... which seemed not very reliable as that would miss any port which does not have "OPENSSL" in its Makefile. "security/nss" is such a port used by Firefox. So, I decided to just use ldd(1) directly on the files installed ...

#  listpkg (used in filepkg): http://www103.pair.com/parv/comp/src/per
+l/listpkg-0.22
#  filepkg: http://www103.pair.com/parv/comp/src/sh/filepkg
filepkg . | egrep '^/.*(bin|libexec)' \
| xargs -I % ldd % 2>/dev/null | less -p'(crypto|ssl)'
[download]

... output of which was rather tiresome to search through, and that was enough to open up my $EDITOR & flex some perly muscle.

We have several internal twikis, and one of the problems we are now dealing with is that users have been uploading word documents and other attachments without describing them on a twiki page, or adding suitable key-words.

The consequence is that we often can't find useful docs since twiki doesn't search attachments... so I wrote this program to allow users to search inside attachments (or just their filenames) for useful content.

A few parameters need setting in the code, but hopefully they are clear enough as to what values they need (basically, $searchpath, $doc_url, $twiki_url, $return_url and @twikis). One final note - if you want the option to search all Twikis, make 'All' the first elemement of @twikis, otherwise leave it out.

I suspect that the code would run against other wikis as well, but I haven't tested.

Runs under warn and taint without problems.

(From POD) The main reason for existence of this program is to minimize horizontal scrolling by displaying the file name only once (on a line of its own) before display of the lines matched, and by collapsing tabs and multiple spaces. Other reasons are to strip the current directory from the file name paths, and to have matched text highlighted.

Updated version can be found in http://www103.pair.com/parv/comp/src/perl/ as file-search-\d+[.]\d{2}

Installation

1. Download the code, naming it "zedulator.install.pl"
2. CD to wherever you saved it, run "perl zedulator.install.pl"
3. When prompted, enter a pmurl or none for www.perlmonks.org
   four .html files will then be created
4. Point your browser at zedulator.html and away you go.
   You can erase zedulator.install.pl if you want to.

this little script assumes that you have a /home/guest directory and a /home/default directory

it cleans out the /home/guest directory and saves the content of various directories under a time-stamped folder, it then mirrors the /home/default directory in the /home/guest and sets the appropriate modes,uid's and gid's.