calcweek
on Aug 19, 2008 at 15:30
|
1 reply
|
by sv87
|
|
This is a small Perl script to calculate the number of the week from any given date.
|
cccp - Cisco Console Command Parser
on Aug 18, 2008 at 19:21
|
2 replies
|
by colakong
|
|
A utility for batch processing of IOS commands. I use it for managing large numbers of Cisco Catalyst Express 500 series switches.
|
Flex-WPS
on Aug 17, 2008 at 18:23
|
2 replies
|
by SFLEX
|
This has been an on going project of mine for about 2 years or so. I wrote it mainly to show a concept for a web portal framework that will reduce the need to edit the source/core to add in new scripts or functions.
It uses a MySQL back-end and it has been tested on Apache servers only. Can work some what on a windows OS, but Suggested OS is *nix or a supportable OS with case sensitivity.
Requirements:
Perl 5.8.8 or 5.10
CGI
CGI::Carp
Digest::SHA1
DBI
Memoize
GD::SecurityImage - For Captcha.cgi and GD for Clock.pm located in /lib/module
Image::ExifTool - For upload.cgi only
This script can run under Mod Perl, but does not have many hours of testing.
I posted this here for some feed back of how i built the framework and some of the modules for the portal. Keep in mind some of the script are not fully completed and it may have minor bugs. Also I have not made much documentation only enough to install it and has comments in a lot of the coding.
Please request to received the latest files.
|
Batch database creation
on Aug 10, 2008 at 06:08
|
2 replies
|
by Gangabass
|
|
Sometimes you need to create several databases and upload same SQL dump to each database. So this little script help you complete this task.
You can run it like so:
$batch_databases.pl --host="localhost" --user="root" --password="secretpass" --create_db="test_db" --create_user="test_db_user" --create_password="test_user_password" --dumpfile="test_dump2.sql"
|
Goo::Canvas Graphing demo
on Aug 07, 2008 at 12:06
|
0 replies
|
by zentara
|
|
The Goo::Canvas is ideal for solving many graphing problems. Like multiple y-axis (not shown here :-), zooming, and saving to pdf. This demo shows how to reverse the y axis (typically negative on canvases), so your plots can be in the normal cartesian direction. This makes plotting easier, your x,y values are plotted without the need to fudge their direction. This comes at a small price of needing to invert some text in the group. Margins are also taken care of nicely, by translating the plotting group from the edges, so it all stays 0,0 for plotting. 2 ways of rotating text are shown. One is an actual rotation of the Y_axis_label; and the other is the x tick values, which are automatically wrapped by 'char', to width 1, to give a vertical number..... the vertical spacing is a bit off, compared to fully rotated text, but it is easy to read ( no need to cock your head sideways to read :-) )
Zooming and pdf saving are also shown. This is just my proof-of-concept demo, to test ideas before making a full-fledged Goo::Canvas::Graph module.
|
use Ensure -- module to spot undefined stuff
on Aug 05, 2008 at 14:53
|
2 replies
|
by gone2015
|
|
I got really tired of being tripped up at run time by undefined subroutine references... particularly days after some change had broken a seldom used piece of code !
...this Ensure module picks up that sort of problem.
For more detail, see: Ensure Module.
I'm wondering if people would find this useful ?
|
Goo'ey Waves of Goo_ness
on Aug 05, 2008 at 13:52
|
0 replies
|
by zentara
|
|
Just an optical illusion, based on the Goo::Canvas, to help hypnotize your girlfriends. :-)
Shows rotations and scaling.
|
Goo Canvas deleting items
on Aug 04, 2008 at 10:55
|
0 replies
|
by zentara
|
|
The Goo::Canvas does not have an easy method, like ->destroy, to remove items. Thanks to some help from the Gtk2/Perl maillist, I show 2 methods, one is the right mouse click on the item. The general procedure, is you need to find the item's parent group, then get the group's id number for the item, then $group->remove_child ($id_number). There are some peculiarites. like if you have 2 items 0 and 1, removing 0 first then 1 will cause an error, because 1 gets demoted to 0 after 0 is removed. A simpler way is to put everything in it's own group and remove the group.
|
Analyzing Apache memory usage
on Jul 18, 2008 at 11:09
|
5 replies
|
by Azhrarn
|
After a day of trying to figure out why one of my web servers was locking up, I found that it was using a bit too much memory. But I had no idea how much, and Linux memory reporting is a bit arcane at best. Especially with something like apache + mod_perl/php using shared memory pools. So after some analysis, I came up with the included script.
|
"Getting Sql server identiy column value after insert
on Jul 15, 2008 at 16:13
|
1 reply
|
by zhirsr
|
|
Getting the identity column value of your last insert statement is tricky with DBI. the "SELECT SCOPE_IDENTITY()" statement MUST be in the same sql statement as the execute. Below is sample code from a mantis conversion program which inserts a row into the database and gets the identity column value back.
Look at $insertSQL for details
|