for more info
Sponsored Links
Sponsored Links
Secleted [ 0 ] software to compare
Results 1 - 15 of about 1393
All System Info
All System Info is a system info SuperKaramba theme. more>>
All System Info is a system info SuperKaramba theme. Simple english version...
It shows:
- System Info
- CPU usage
- Network Usage
- Memory Load
- HDD usage
<<lessIt shows:
- System Info
- CPU usage
- Network Usage
- Memory Load
- HDD usage
Download (0.19MB)
Added: 2006-07-05 License: GPL (GNU General Public License) Price:
1210 downloads
Movie::Info 0.1
Movie::Info is a Perl module created to get meta data from various format movie files. more>>
SYNOPSIS
my $mi = Movie::Info->new || die "Couldnt find an mplayer to usen";
foreach my $file (@ARGV) {
my %info = $mi->info($file) || warn "Couldnt read info from $filen" && next;
print "$file (WxH) - $info{width}x$info{height}n";
}
Movie::Info is a thin layer around MPlayers --identify command line flag. As such it can only give you as much information as Mplayer is able to give you which is down to the quality and number of codecs you have installed.
MPlayer is available from http://www.mplayerhq.hu/
This module is largely based on the midentify script shipped with MPlayer.
METHODS
new [path to mplayer]
Returns a new Movie::Info instance or undef if it cant find an mplayer binary.
To find a binary it looks in three places - firstly if youve passed in a path to look at it checks there, secondly at the environment variable $MOVIE_INFO_MPLAYER_PATH and then finally it searches your $PATH like the standard which command in Unix.
info < filename >
Returns a hash representing all the meta data we can garner about file.
Returns undef if it cant read the file.
Download (0.019MB)
Added: 2007-05-29 License: Perl Artistic License Price:
883 downloads
MPEG::Info 1.00
MPEG::Info is a basic MPEG bitstream attribute parser. more>>
MPEG::Info is a basic MPEG bitstream attribute parser.
SYNOPSIS
use strict;
use MPEG::Info;
my $video = MPEG::Info->new( -file => $filename );
$video->probe();
print $file->type; ## MPEG
## Audio information
print $file->acodec; ## MPEG Layer 1/2
print $file->acodecraw; ## 80
print $file->achans; ## 1
print $file->arate; ## 128000 (bits/sec)
print $file->astreams ## 1
## Video information
printf "%0.2f", $file->fps ## 29.97
print $file->height ## 240
print $file->width ## 352
print $file->vstreams ## 1
print $file->vcodec ## MPEG1
print $file->vframes ## 529
print $file->vrate ## 1000000 (bits/sec)
The Moving Picture Experts Group (MPEG) is a working group in charge of the development of standards for coded representation of digital audio and video.
MPEG audio and video clips are ubiquitous but using Perl to programmatically collect information about these bitstreams has to date been a kludge at best.
This module parses the raw bitstreams and extracts information from the packet headers. It supports Audio, Video, and System (multiplexed audio and video) packets so it can be used on nearly every MPEG you encounter.
<<lessSYNOPSIS
use strict;
use MPEG::Info;
my $video = MPEG::Info->new( -file => $filename );
$video->probe();
print $file->type; ## MPEG
## Audio information
print $file->acodec; ## MPEG Layer 1/2
print $file->acodecraw; ## 80
print $file->achans; ## 1
print $file->arate; ## 128000 (bits/sec)
print $file->astreams ## 1
## Video information
printf "%0.2f", $file->fps ## 29.97
print $file->height ## 240
print $file->width ## 352
print $file->vstreams ## 1
print $file->vcodec ## MPEG1
print $file->vframes ## 529
print $file->vrate ## 1000000 (bits/sec)
The Moving Picture Experts Group (MPEG) is a working group in charge of the development of standards for coded representation of digital audio and video.
MPEG audio and video clips are ubiquitous but using Perl to programmatically collect information about these bitstreams has to date been a kludge at best.
This module parses the raw bitstreams and extracts information from the packet headers. It supports Audio, Video, and System (multiplexed audio and video) packets so it can be used on nearly every MPEG you encounter.
Download (0.32MB)
Added: 2006-11-16 License: Perl Artistic License Price:
1081 downloads
Station Info 2.3
Station Info program searches for and displays AM, FM, and TV station. more>>
Station Info program searches for and displays AM, FM, and TV station entries from databases supplied by the US Federal Communications Commission (also known as the FCC).
The station-info program provides many ways of selecting a collection of stations for display, and several criteria by which these stations can be sorted.
Detailed information on each station is available, including an antenna radiation pattern, ownership information, and whatever else seems useful.
The program is currently available in source code form only. It has been developed and tested on a GNU/Linux platform, but should build without problem on any platform that supports the Gtk+ toolkit and the Gnome libraries.
<<lessThe station-info program provides many ways of selecting a collection of stations for display, and several criteria by which these stations can be sorted.
Detailed information on each station is available, including an antenna radiation pattern, ownership information, and whatever else seems useful.
The program is currently available in source code form only. It has been developed and tested on a GNU/Linux platform, but should build without problem on any platform that supports the Gtk+ toolkit and the Gnome libraries.
Download (0.20MB)
Added: 2005-11-04 License: GPL (GNU General Public License) Price:
1450 downloads
Script for NAT and more 02/02/01
Script for NAT and more is an iptables firewall script. more>>
Script for NAT and more is an iptables firewall script.
Sample:
# Location of IPTables
FW="`whereis -b iptables | cut -d " " -f 2`"
# Interface Configuration
IF0="eth0"
IP0="`ifconfig $IF0 | grep inet | cut -d : -f 2 | cut -d -f 1`"
MASK0="`ifconfig $IF0 | grep Mask | cut -d : -f 4`"
LOCALNET="$IP0"
echo "IP: $LOCALNET/$MASK0"
# Inside Interface (Can be either eth1 or none)
IF1="eth1"
IP1="`ifconfig $IF1 | grep inet | cut -d : -f 2 | cut -d -f 1`"
MASK1="`ifconfig $IF1 | grep Mask | cut -d : -f 4`"
GWIP="$IP1"
echo "LAN Gateway: $GWIP/$MASK1"
if [ $IF1 != none ]; then
LAN="10.0.1.0/24"
HOST0="10.0.1.2"
HOST1="10.0.1.3"
fi
# Everyone
WORLD="0/0"
# Options
TOS=no
ICMP=yes
# Flush
$FW -F INPUT
$FW -F OUTPUT
$FW -F FORWARD
$FW -F -t nat
$FW -F -t mangle
$FW -F LOGDROP
# Policy
$FW -P INPUT DROP
$FW -P OUTPUT ACCEPT
$FW -P FORWARD ACCEPT
# Create Event Logging
if [ -z "`iptables -L | grep LOGDROP`" ]; then
$FW -N LOGDROP 2>/dev/null
fi
$FW -A LOGDROP -p TCP -j LOG --log-level info --log-prefix "TCP Drop "
$FW -A LOGDROP -p UDP -j LOG --log-level info --log-prefix "UDP Drop "
$FW -A LOGDROP -p ICMP -j LOG --log-level info --log-prefix "ICMP Drop "
$FW -A LOGDROP -f -j LOG --log-level emerg --log-prefix "FRAG Drop "
$FW -A LOGDROP -j DROP
echo "Event logging added"
# $FW -A INPUT -i eth0 -j LOG
# Avoid these from being logged (gets annoying)
# $FW -A INPUT -s $WORLD -p TCP --sport 6666:7000 -d $LOCALNET -j ACCEPT
# $FW -A INPUT -s 24.0.0.0/8 -p ALL -d $LOCALNET -j DROP
# LAN Configuration
# Dynamic IP
$FW -t nat -A POSTROUTING -o eth0 -j MASQUERADE
# Static IP
# $FW -t nat -A POSTROUTING -o $IF0 -s $LAN -j SNAT --to $LOCALNET
$FW -A FORWARD -o eth0 -j ACCEPT
$FW -A FORWARD -i eth0 -m state --state ESTABLISHED -j ACCEPT
$FW -A FORWARD -p TCP -s $WORLD --dport 137:139 -j DROP
$FW -A FORWARD -p UDP -s $WORLD --sport 137:139 -j DROP
# $FW -A FORWARD -p TCP --tcp-flags SYN,ACK,FIN,RST RST -m limit --limit 1
$FW -A INPUT -m state --state ESTABLISHED -j ACCEPT
# $FW -A OUTPUT -p TCP -s $LAN --syn -j ACCEPT
$FW -A INPUT -p TCP --tcp-flags ALL SYN,ACK -j ACCEPT
$FW -P FORWARD DROP
# Port Forwarding
##### Traffic via LAN
# $FW -t nat -A POSTROUTING -p TCP -o eth0 -s $LAN --sport 6667:7000 -j SNAT
# --to $LOCALNET:6666-7000
# FTP
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 20 -j DNAT
--to $HOST0:20
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 21 -j DNAT
--to $HOST0:21
# SSH
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 22 -j DNAT
--to $HOST0:22
# Telnet (seperate system)
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 23 -j DNAT
--to $HOST1:23
# WWW
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 80 -j DNAT
--to $HOST0:80
# Type Of Services (iptables -m tos -h for information)
if [ $TOS = yes ]; then
$FW -t mangle -A OUTPUT -p TCP --dport 20 -j TOS --set-tos 8
$FW -t mangle -A OUTPUT -p TCP --dport 21 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 22 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 23 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 25 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 80 -j TOS --set-tos 8
##
$FW -t mangle -A PREROUTING -p TCP --dport 20 -j TOS --set-tos 8
$FW -t mangle -A PREROUTING -p TCP --dport 21 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p TCP --dport 22 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p TCP --dport 23 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p UDP --dport 25 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p UDP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p UDP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p TCP --dport 80 -j TOS --set-tos 8
fi
# Permit full access from LAN
$FW -A INPUT -s $LAN -p TCP -d $LOCALNET --dport 20: -j ACCEPT
$FW -A INPUT -s $LAN -p UDP -d $LOCALNET --sport 20: -j ACCEPT
$FW -A INPUT -s $LAN -p TCP -d $GWIP --dport 20: -j ACCEPT
$FW -A INPUT -s $LAN -p UDP -d $GWIP --sport 20: -j ACCEPT
##### Traffic via local system
# Permit Identd (Local machine)
$FW -A INPUT -s $WORLD -d $LOCALNET -p TCP --dport 113 -j ACCEPT
# Permit ICMP response
if [ $ICMP = yes ]; then
$FW -A OUTPUT -s $LOCALNET -d $WORLD -o $IF0 -p ICMP -j ACCEPT
$FW -A INPUT -s $WORLD -d $LOCALNET -i $IF0 -p ICMP -j ACCEPT
fi
<<lessSample:
# Location of IPTables
FW="`whereis -b iptables | cut -d " " -f 2`"
# Interface Configuration
IF0="eth0"
IP0="`ifconfig $IF0 | grep inet | cut -d : -f 2 | cut -d -f 1`"
MASK0="`ifconfig $IF0 | grep Mask | cut -d : -f 4`"
LOCALNET="$IP0"
echo "IP: $LOCALNET/$MASK0"
# Inside Interface (Can be either eth1 or none)
IF1="eth1"
IP1="`ifconfig $IF1 | grep inet | cut -d : -f 2 | cut -d -f 1`"
MASK1="`ifconfig $IF1 | grep Mask | cut -d : -f 4`"
GWIP="$IP1"
echo "LAN Gateway: $GWIP/$MASK1"
if [ $IF1 != none ]; then
LAN="10.0.1.0/24"
HOST0="10.0.1.2"
HOST1="10.0.1.3"
fi
# Everyone
WORLD="0/0"
# Options
TOS=no
ICMP=yes
# Flush
$FW -F INPUT
$FW -F OUTPUT
$FW -F FORWARD
$FW -F -t nat
$FW -F -t mangle
$FW -F LOGDROP
# Policy
$FW -P INPUT DROP
$FW -P OUTPUT ACCEPT
$FW -P FORWARD ACCEPT
# Create Event Logging
if [ -z "`iptables -L | grep LOGDROP`" ]; then
$FW -N LOGDROP 2>/dev/null
fi
$FW -A LOGDROP -p TCP -j LOG --log-level info --log-prefix "TCP Drop "
$FW -A LOGDROP -p UDP -j LOG --log-level info --log-prefix "UDP Drop "
$FW -A LOGDROP -p ICMP -j LOG --log-level info --log-prefix "ICMP Drop "
$FW -A LOGDROP -f -j LOG --log-level emerg --log-prefix "FRAG Drop "
$FW -A LOGDROP -j DROP
echo "Event logging added"
# $FW -A INPUT -i eth0 -j LOG
# Avoid these from being logged (gets annoying)
# $FW -A INPUT -s $WORLD -p TCP --sport 6666:7000 -d $LOCALNET -j ACCEPT
# $FW -A INPUT -s 24.0.0.0/8 -p ALL -d $LOCALNET -j DROP
# LAN Configuration
# Dynamic IP
$FW -t nat -A POSTROUTING -o eth0 -j MASQUERADE
# Static IP
# $FW -t nat -A POSTROUTING -o $IF0 -s $LAN -j SNAT --to $LOCALNET
$FW -A FORWARD -o eth0 -j ACCEPT
$FW -A FORWARD -i eth0 -m state --state ESTABLISHED -j ACCEPT
$FW -A FORWARD -p TCP -s $WORLD --dport 137:139 -j DROP
$FW -A FORWARD -p UDP -s $WORLD --sport 137:139 -j DROP
# $FW -A FORWARD -p TCP --tcp-flags SYN,ACK,FIN,RST RST -m limit --limit 1
$FW -A INPUT -m state --state ESTABLISHED -j ACCEPT
# $FW -A OUTPUT -p TCP -s $LAN --syn -j ACCEPT
$FW -A INPUT -p TCP --tcp-flags ALL SYN,ACK -j ACCEPT
$FW -P FORWARD DROP
# Port Forwarding
##### Traffic via LAN
# $FW -t nat -A POSTROUTING -p TCP -o eth0 -s $LAN --sport 6667:7000 -j SNAT
# --to $LOCALNET:6666-7000
# FTP
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 20 -j DNAT
--to $HOST0:20
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 21 -j DNAT
--to $HOST0:21
# SSH
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 22 -j DNAT
--to $HOST0:22
# Telnet (seperate system)
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 23 -j DNAT
--to $HOST1:23
# WWW
$FW -t nat -A PREROUTING -d $LOCALNET -p TCP --dport 80 -j DNAT
--to $HOST0:80
# Type Of Services (iptables -m tos -h for information)
if [ $TOS = yes ]; then
$FW -t mangle -A OUTPUT -p TCP --dport 20 -j TOS --set-tos 8
$FW -t mangle -A OUTPUT -p TCP --dport 21 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 22 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 23 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 25 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A OUTPUT -p TCP --dport 80 -j TOS --set-tos 8
##
$FW -t mangle -A PREROUTING -p TCP --dport 20 -j TOS --set-tos 8
$FW -t mangle -A PREROUTING -p TCP --dport 21 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p TCP --dport 22 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p TCP --dport 23 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p UDP --dport 25 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p UDP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p UDP --dport 53 -j TOS --set-tos 16
$FW -t mangle -A PREROUTING -p TCP --dport 80 -j TOS --set-tos 8
fi
# Permit full access from LAN
$FW -A INPUT -s $LAN -p TCP -d $LOCALNET --dport 20: -j ACCEPT
$FW -A INPUT -s $LAN -p UDP -d $LOCALNET --sport 20: -j ACCEPT
$FW -A INPUT -s $LAN -p TCP -d $GWIP --dport 20: -j ACCEPT
$FW -A INPUT -s $LAN -p UDP -d $GWIP --sport 20: -j ACCEPT
##### Traffic via local system
# Permit Identd (Local machine)
$FW -A INPUT -s $WORLD -d $LOCALNET -p TCP --dport 113 -j ACCEPT
# Permit ICMP response
if [ $ICMP = yes ]; then
$FW -A OUTPUT -s $LOCALNET -d $WORLD -o $IF0 -p ICMP -j ACCEPT
$FW -A INPUT -s $WORLD -d $LOCALNET -i $IF0 -p ICMP -j ACCEPT
fi
Download (MB)
Added: 2007-02-14 License: GPL (GNU General Public License) Price:
982 downloads
FLV::Info 0.03
FLV::Info is an extract metadata from Flash Video files. more>>
FLV::Info is an extract metadata from Flash Video files.
SYNOPSIS
use FLV::Info;
my $reader = FLV::Info->new();
$reader->parse(video.flv);
my %info = $reader->get_info();
print "$info{video_count} video framesn";
print $reader->report();
This module reads Macromedia FLV files and reports metadata about those files.
<<lessSYNOPSIS
use FLV::Info;
my $reader = FLV::Info->new();
$reader->parse(video.flv);
my %info = $reader->get_info();
print "$info{video_count} video framesn";
print $reader->report();
This module reads Macromedia FLV files and reports metadata about those files.
Download (0.72MB)
Added: 2006-07-21 License: Perl Artistic License Price:
1208 downloads
MP4::Info 1.11
MP4::Info is a Perl module that can fetch info from MPEG-4 files (.mp4, .m4a, .m4p, .3gp). more>>
MP4::Info is a Perl module that can fetch info from MPEG-4 files (.mp4, .m4a, .m4p, .3gp).
SYNOPSIS
#!perl -w
use MP4::Info;
my $file = Pearls_Before_Swine.m4a;
my $tag = get_mp4tag($file) or die "No TAG info";
printf "$file is a %s trackn", $tag->{GENRE};
my $info = get_mp4info($file);
printf "$file length is %d:%dn", $info->{MM}, $info->{SS};
my $mp4 = new MP4::Info $file;
printf "$file length is %s, title is %sn",
$mp4->time, $mp4->title;
The MP4::Info module can be used to extract tag and meta information from MPEG-4 audio (AAC) and video files. It is designed as a drop-in replacement for MP3::Info.
<<lessSYNOPSIS
#!perl -w
use MP4::Info;
my $file = Pearls_Before_Swine.m4a;
my $tag = get_mp4tag($file) or die "No TAG info";
printf "$file is a %s trackn", $tag->{GENRE};
my $info = get_mp4info($file);
printf "$file length is %d:%dn", $info->{MM}, $info->{SS};
my $mp4 = new MP4::Info $file;
printf "$file length is %s, title is %sn",
$mp4->time, $mp4->title;
The MP4::Info module can be used to extract tag and meta information from MPEG-4 audio (AAC) and video files. It is designed as a drop-in replacement for MP3::Info.
Download (0.13MB)
Added: 2006-11-15 License: Perl Artistic License Price:
1120 downloads
MP3::Info 1.20
MP3::Info is a Perl module that can manipulate / fetch info from MP3 audio files. more>>
MP3::Info is a Perl module that can manipulate / fetch info from MP3 audio files.
SYNOPSIS
#!perl -w
use MP3::Info;
my $file = Pearls_Before_Swine.mp3;
set_mp3tag($file, Pearls Before Swine, q"77s",
Sticks and Stones, 1990,
q"(c) 1990 77s LTD.", rock & roll);
my $tag = get_mp3tag($file) or die "No TAG info";
$tag->{GENRE} = rock;
set_mp3tag($file, $tag);
my $info = get_mp3info($file);
printf "$file length is %d:%dn", $info->{MM}, $info->{SS};
my $mp3 = new MP3::Info $file;
$mp3->title(Perls Before Swine);
printf "$file length is %s, title is %sn",
$mp3->time, $mp3->title;
$mp3 = MP3::Info->new(FILE)
OOP interface to the rest of the module. The same keys available via get_mp3info and get_mp3tag are available via the returned object (using upper case or lower case; but note that all-caps "VERSION" will return the module version, not the MP3 version).
Passing a value to one of the methods will set the value for that tag in the MP3 file, if applicable.
use_mp3_utf8([STATUS])
Tells MP3::Info to (or not) return TAG info in UTF-8. TRUE is 1, FALSE is 0. Default is TRUE, if available.
Will only be able to turn it on if Encode is available. ID3v2 tags will be converted to UTF-8 according to the encoding specified in each tag; ID3v1 tags will be assumed Latin-1 and converted to UTF-8.
Function returns status (TRUE/FALSE). If no argument is supplied, or an unaccepted argument is supplied, function merely returns status.
This function is not exported by default, but may be exported with the :utf8 or :all export tag.
use_winamp_genres()
Puts WinAmp genres into @mp3_genres and %mp3_genres (adds 68 additional genres to the default list of 80). This is a separate function because these are non-standard genres, but they are included because they are widely used.
You can import the data structures with one of:
use MP3::Info qw(:genres);
use MP3::Info qw(:DEFAULT :genres);
use MP3::Info qw(:all);
remove_mp3tag (FILE [, VERSION, BUFFER])
Can remove ID3v1 or ID3v2 tags. VERSION should be 1 for ID3v1 (the default), 2 for ID3v2, and ALL for both.
For ID3v1, removes last 128 bytes from file if those last 128 bytes begin with the text TAG. File will be 128 bytes shorter.
For ID3v2, removes ID3v2 tag. Because an ID3v2 tag is at the beginning of the file, we rewrite the file after removing the tag data. The buffer for rewriting the file is 4MB. BUFFER (in bytes) ca change the buffer size.
Returns the number of bytes removed, or -1 if no tag removed, or undef if there is an error.
set_mp3tag (FILE, TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE [, TRACKNUM])
set_mp3tag (FILE, $HASHREF)
Adds/changes tag information in an MP3 audio file. Will clobber any existing information in file.
Fields are TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE. All fields have a 30-byte limit, except for YEAR, which has a four-byte limit, and GENRE, which is one byte in the file. The GENRE passed in the function is a case-insensitive text string representing a genre found in @mp3_genres.
Will accept either a list of values, or a hashref of the type returned by get_mp3tag.
If TRACKNUM is present (for ID3v1.1), then the COMMENT field can only be 28 bytes.
ID3v2 support may come eventually. Note that if you set a tag on a file with ID3v2, the set tag will be for ID3v1[.1] only, and if you call get_mp3tag on the file, it will show you the (unchanged) ID3v2 tags, unless you specify ID3v1.
get_mp3tag (FILE [, VERSION, RAW_V2])
Returns hash reference containing tag information in MP3 file. The keys returned are the same as those supplied for set_mp3tag, except in the case of RAW_V2 being set.
If VERSION is 1, the information is taken from the ID3v1 tag (if present). If VERSION is 2, the information is taken from the ID3v2 tag (if present). If VERSION is not supplied, or is false, the ID3v1 tag is read if present, and then, if present, the ID3v2 tag information will override any existing ID3v1 tag info.
If RAW_V2 is 1, the raw ID3v2 tag data is returned, without any manipulation of text encoding. The key name is the same as the frame ID (ID to name mappings are in the global %v2_tag_names).
If RAW_V2 is 2, the ID3v2 tag data is returned, manipulating for Unicode if necessary, etc. It also takes multiple values for a given key (such as comments) and puts them in an arrayref.
If the ID3v2 version is older than ID3v2.2.0 or newer than ID3v2.4.0, it will not be read.
Strings returned will be in Latin-1, unless UTF-8 is specified (use_mp3_utf8), (unless RAW_V2 is 1).
Also returns a TAGVERSION key, containing the ID3 version used for the returned data (if TAGVERSION argument is 0, may contain two versions).
get_mp3info (FILE)
Returns hash reference containing file information for MP3 file. This data cannot be changed. Returned data:
VERSION MPEG audio version (1, 2, 2.5)
LAYER MPEG layer description (1, 2, 3)
STEREO boolean for audio is in stereo
VBR boolean for variable bitrate
BITRATE bitrate in kbps (average for VBR files)
FREQUENCY frequency in kHz
SIZE bytes in audio stream
OFFSET bytes offset that stream begins
SECS total seconds
MM minutes
SS leftover seconds
MS leftover milliseconds
TIME time in MM:SS
COPYRIGHT boolean for audio is copyrighted
PADDING boolean for MP3 frames are padded
MODE channel mode (0 = stereo, 1 = joint stereo,
2 = dual channel, 3 = single channel)
FRAMES approximate number of frames
FRAME_LENGTH approximate length of a frame
VBR_SCALE VBR scale from VBR header
On error, returns nothing and sets $@.
<<lessSYNOPSIS
#!perl -w
use MP3::Info;
my $file = Pearls_Before_Swine.mp3;
set_mp3tag($file, Pearls Before Swine, q"77s",
Sticks and Stones, 1990,
q"(c) 1990 77s LTD.", rock & roll);
my $tag = get_mp3tag($file) or die "No TAG info";
$tag->{GENRE} = rock;
set_mp3tag($file, $tag);
my $info = get_mp3info($file);
printf "$file length is %d:%dn", $info->{MM}, $info->{SS};
my $mp3 = new MP3::Info $file;
$mp3->title(Perls Before Swine);
printf "$file length is %s, title is %sn",
$mp3->time, $mp3->title;
$mp3 = MP3::Info->new(FILE)
OOP interface to the rest of the module. The same keys available via get_mp3info and get_mp3tag are available via the returned object (using upper case or lower case; but note that all-caps "VERSION" will return the module version, not the MP3 version).
Passing a value to one of the methods will set the value for that tag in the MP3 file, if applicable.
use_mp3_utf8([STATUS])
Tells MP3::Info to (or not) return TAG info in UTF-8. TRUE is 1, FALSE is 0. Default is TRUE, if available.
Will only be able to turn it on if Encode is available. ID3v2 tags will be converted to UTF-8 according to the encoding specified in each tag; ID3v1 tags will be assumed Latin-1 and converted to UTF-8.
Function returns status (TRUE/FALSE). If no argument is supplied, or an unaccepted argument is supplied, function merely returns status.
This function is not exported by default, but may be exported with the :utf8 or :all export tag.
use_winamp_genres()
Puts WinAmp genres into @mp3_genres and %mp3_genres (adds 68 additional genres to the default list of 80). This is a separate function because these are non-standard genres, but they are included because they are widely used.
You can import the data structures with one of:
use MP3::Info qw(:genres);
use MP3::Info qw(:DEFAULT :genres);
use MP3::Info qw(:all);
remove_mp3tag (FILE [, VERSION, BUFFER])
Can remove ID3v1 or ID3v2 tags. VERSION should be 1 for ID3v1 (the default), 2 for ID3v2, and ALL for both.
For ID3v1, removes last 128 bytes from file if those last 128 bytes begin with the text TAG. File will be 128 bytes shorter.
For ID3v2, removes ID3v2 tag. Because an ID3v2 tag is at the beginning of the file, we rewrite the file after removing the tag data. The buffer for rewriting the file is 4MB. BUFFER (in bytes) ca change the buffer size.
Returns the number of bytes removed, or -1 if no tag removed, or undef if there is an error.
set_mp3tag (FILE, TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE [, TRACKNUM])
set_mp3tag (FILE, $HASHREF)
Adds/changes tag information in an MP3 audio file. Will clobber any existing information in file.
Fields are TITLE, ARTIST, ALBUM, YEAR, COMMENT, GENRE. All fields have a 30-byte limit, except for YEAR, which has a four-byte limit, and GENRE, which is one byte in the file. The GENRE passed in the function is a case-insensitive text string representing a genre found in @mp3_genres.
Will accept either a list of values, or a hashref of the type returned by get_mp3tag.
If TRACKNUM is present (for ID3v1.1), then the COMMENT field can only be 28 bytes.
ID3v2 support may come eventually. Note that if you set a tag on a file with ID3v2, the set tag will be for ID3v1[.1] only, and if you call get_mp3tag on the file, it will show you the (unchanged) ID3v2 tags, unless you specify ID3v1.
get_mp3tag (FILE [, VERSION, RAW_V2])
Returns hash reference containing tag information in MP3 file. The keys returned are the same as those supplied for set_mp3tag, except in the case of RAW_V2 being set.
If VERSION is 1, the information is taken from the ID3v1 tag (if present). If VERSION is 2, the information is taken from the ID3v2 tag (if present). If VERSION is not supplied, or is false, the ID3v1 tag is read if present, and then, if present, the ID3v2 tag information will override any existing ID3v1 tag info.
If RAW_V2 is 1, the raw ID3v2 tag data is returned, without any manipulation of text encoding. The key name is the same as the frame ID (ID to name mappings are in the global %v2_tag_names).
If RAW_V2 is 2, the ID3v2 tag data is returned, manipulating for Unicode if necessary, etc. It also takes multiple values for a given key (such as comments) and puts them in an arrayref.
If the ID3v2 version is older than ID3v2.2.0 or newer than ID3v2.4.0, it will not be read.
Strings returned will be in Latin-1, unless UTF-8 is specified (use_mp3_utf8), (unless RAW_V2 is 1).
Also returns a TAGVERSION key, containing the ID3 version used for the returned data (if TAGVERSION argument is 0, may contain two versions).
get_mp3info (FILE)
Returns hash reference containing file information for MP3 file. This data cannot be changed. Returned data:
VERSION MPEG audio version (1, 2, 2.5)
LAYER MPEG layer description (1, 2, 3)
STEREO boolean for audio is in stereo
VBR boolean for variable bitrate
BITRATE bitrate in kbps (average for VBR files)
FREQUENCY frequency in kHz
SIZE bytes in audio stream
OFFSET bytes offset that stream begins
SECS total seconds
MM minutes
SS leftover seconds
MS leftover milliseconds
TIME time in MM:SS
COPYRIGHT boolean for audio is copyrighted
PADDING boolean for MP3 frames are padded
MODE channel mode (0 = stereo, 1 = joint stereo,
2 = dual channel, 3 = single channel)
FRAMES approximate number of frames
FRAME_LENGTH approximate length of a frame
VBR_SCALE VBR scale from VBR header
On error, returns nothing and sets $@.
Download (0.097MB)
Added: 2006-06-23 License: GPL (GNU General Public License) Price:
1222 downloads
Get Company Info 0.4
Get Company Info allows you to view the latest financial data and other company information in a separate tab. more>>
Get Company Info allows you to view the latest financial data and other company information in a separate tab.
Highlight a company name on your page with the mouse, right-click and choose Get Company Info. You will receive the latest financial data and other company information in a separate tab.
No need in ugly toolbars. Recognizes companies by both names and tickers.
<<lessHighlight a company name on your page with the mouse, right-click and choose Get Company Info. You will receive the latest financial data and other company information in a separate tab.
No need in ugly toolbars. Recognizes companies by both names and tickers.
Download (0.075MB)
Added: 2007-04-27 License: MPL (Mozilla Public License) Price:
913 downloads
AudioFile::Info 1.08
AudioFile::Info is a Perl extension to get info from audio files. more>>
AudioFile::Info is a Perl extension to get info from audio files.
SYNOPSIS
use AudioFile::Info;
my $song = AudioFile::Info->new($some_mp3_or_ogg_vorbis_file);
print Title: , $song->title, "n",
Artist: , $song->artist, "n".
Album: , $song->album, "n",
Track: , $song->track, "n";
Year: , $song->year, "n",
Genre: , $song->genre, "n";
$song->title(something else); # Changes the title
ABSTRACT
AudioFile::Info is a simple way to get track information out of an audio file. It gives a unified interface for extracting information from both MP3 and Ogg Vorbis files.
Some AudioFile::Info plugins also have the ability to write data back to the file.
<<lessSYNOPSIS
use AudioFile::Info;
my $song = AudioFile::Info->new($some_mp3_or_ogg_vorbis_file);
print Title: , $song->title, "n",
Artist: , $song->artist, "n".
Album: , $song->album, "n",
Track: , $song->track, "n";
Year: , $song->year, "n",
Genre: , $song->genre, "n";
$song->title(something else); # Changes the title
ABSTRACT
AudioFile::Info is a simple way to get track information out of an audio file. It gives a unified interface for extracting information from both MP3 and Ogg Vorbis files.
Some AudioFile::Info plugins also have the ability to write data back to the file.
Download (0.005MB)
Added: 2006-06-23 License: Perl Artistic License Price:
1219 downloads
Tomboy Reminder Plugin 0.9
Tomboy Reminder Plugin allows tomboy to show a note at a specified date in the note. more>>
Tomboy Reminder Plugin allows tomboy to show a note at a specified date in the note.
Tomboy will scan all the notes when started and display the notes to be reminded for a given date and time.
Tomboy will also re-scan the note when you close the note window, so if you want to update the reminder, simply edit the note.
The date and time entry is very intuitive (natural langage), see the website for more info.
You can setup a note for birthdays or todos or things like that, very convenient if you ask !
<<lessTomboy will scan all the notes when started and display the notes to be reminded for a given date and time.
Tomboy will also re-scan the note when you close the note window, so if you want to update the reminder, simply edit the note.
The date and time entry is very intuitive (natural langage), see the website for more info.
You can setup a note for birthdays or todos or things like that, very convenient if you ask !
Download (0.055MB)
Added: 2006-03-12 License: The Apache License Price:
1326 downloads
KuSys-Info
KuSys-Info is a Ku(buntu) Sys(tem)-Info. more>>
KuSys-Info is a Ku(buntu) Sys(tem)-Info.
KuSys-Info karamba applet is based on transwhite. I adapted it a bit and modified it so that it fits to my system and themes.
Detection of OS is not automatically right now, so you probably have to adapt the script.
To change to the right network interface change all ra0 entries to your interface.
Displays:
- CPU fan, usage and type
- System ID, KDE version and user
- Uptime, kernel version
- RAM and SWAP Usage
- network traffic
- hard disk usage
<<lessKuSys-Info karamba applet is based on transwhite. I adapted it a bit and modified it so that it fits to my system and themes.
Detection of OS is not automatically right now, so you probably have to adapt the script.
To change to the right network interface change all ra0 entries to your interface.
Displays:
- CPU fan, usage and type
- System ID, KDE version and user
- Uptime, kernel version
- RAM and SWAP Usage
- network traffic
- hard disk usage
Download (0.035MB)
Added: 2006-07-05 License: GPL (GNU General Public License) Price:
1206 downloads
Video::Info 0.993
Video::Info can retrieve video properties such as: height width codec fps. more>>
Video::Info can retrieve video properties such as: height width codec fps.
SYNOPSIS
use Video::Info;
my $info = Video::Info->new(-file=>my.mpg);
$info->fps();
$info->aspect();
## ... see methods below
Video::Info is a factory class for working with video files. When you create a new Video::Info object (see methods), something like this will happen: 1) open file, determine type. See Video::Info::Magic. 2) attempt to create object of appropriate class (ie, MPEG::Info for MPEG files, RIFF::Info for AVI files). 3) Probe the file for various attributes 4) return the created object, or a Video::Info object if the appropriate class is unavailable.
Currently, Video::Info can create objects for the following filetypes:
Module Filetype
-------------------------------------------------
Video::Info::ASF ASF
MP3::Info MPEG Layer 2, MPEG Layer 3
Video::Info::MPEG MPEG1, MPEG2, MPEG 2.5
Video::Info::RIFF AVI, DivX
Video::Info::Quicktime MOV, MOOV, MDAT, QT
And support is planned for:
Module Filetype
-------------------------------------------------
Video::Info::Real RealNetworks formats
<<lessSYNOPSIS
use Video::Info;
my $info = Video::Info->new(-file=>my.mpg);
$info->fps();
$info->aspect();
## ... see methods below
Video::Info is a factory class for working with video files. When you create a new Video::Info object (see methods), something like this will happen: 1) open file, determine type. See Video::Info::Magic. 2) attempt to create object of appropriate class (ie, MPEG::Info for MPEG files, RIFF::Info for AVI files). 3) Probe the file for various attributes 4) return the created object, or a Video::Info object if the appropriate class is unavailable.
Currently, Video::Info can create objects for the following filetypes:
Module Filetype
-------------------------------------------------
Video::Info::ASF ASF
MP3::Info MPEG Layer 2, MPEG Layer 3
Video::Info::MPEG MPEG1, MPEG2, MPEG 2.5
Video::Info::RIFF AVI, DivX
Video::Info::Quicktime MOV, MOOV, MDAT, QT
And support is planned for:
Module Filetype
-------------------------------------------------
Video::Info::Real RealNetworks formats
Download (0.62MB)
Added: 2006-07-20 License: Perl Artistic License Price:
1197 downloads
PC-Info 0.1
PC-Info project is a Server-Client Software using the Adaptive Communication Environment (ACE). more>>
PC-Info project is a Server-Client Software using the Adaptive Communication Environment (ACE).
Server uses KDE/QT to show the client data. Cmd-line is also possible.
Until now the Client can submit IP/Port, Hostname and CPU-Model information.
Installation:
The simplest way to compile this package is:
1. `cd to the directory containing the packages source code and type `./configure to configure the package for your system. If youre using `csh on an old version of System V, you might need to type `sh ./configure instead to prevent `csh from trying to execute `configure itself.
Running `configure takes a while. While running, it prints some messages telling which features it is checking for.
2. Type `make to compile the package.
3. Type `make install to install the programs and any data files and documentation.
4. You can remove the program binaries and object files from the source code directory by typing `make clean.
<<lessServer uses KDE/QT to show the client data. Cmd-line is also possible.
Until now the Client can submit IP/Port, Hostname and CPU-Model information.
Installation:
The simplest way to compile this package is:
1. `cd to the directory containing the packages source code and type `./configure to configure the package for your system. If youre using `csh on an old version of System V, you might need to type `sh ./configure instead to prevent `csh from trying to execute `configure itself.
Running `configure takes a while. While running, it prints some messages telling which features it is checking for.
2. Type `make to compile the package.
3. Type `make install to install the programs and any data files and documentation.
4. You can remove the program binaries and object files from the source code directory by typing `make clean.
Download (0.59MB)
Added: 2007-02-09 License: GPL (GNU General Public License) Price:
987 downloads
Game::Planeshift::Info 0.5
Game::Planeshift::Info is a Perl module to retrieve players data on the main Planeshift server. more>>
Game::Planeshift::Info is a Perl module to retrieve players data on the main Planeshift server.
SYNOPSIS
Planeshift is a free MMORPG available at : http://www.planeshift.it.
This module allow you to easily get and parse data from the info page of a Planeshift server (so this module depend on LWP::Simple).
the default web page used to retrieve informations is on the Laanx server : http://laanx.fragnetics.com/index.php?page=char_stats.
use Game::Planeshift::Info;
my $ps = Game::Planeshift::Info->new(
encoding => utf-8,
players => [Anfa,Baston, Caules, Ehasara, Javeroal, Mardun, Narita, Setill, Soshise]
);
my $data = $ps->retrieve_info ;
<<lessSYNOPSIS
Planeshift is a free MMORPG available at : http://www.planeshift.it.
This module allow you to easily get and parse data from the info page of a Planeshift server (so this module depend on LWP::Simple).
the default web page used to retrieve informations is on the Laanx server : http://laanx.fragnetics.com/index.php?page=char_stats.
use Game::Planeshift::Info;
my $ps = Game::Planeshift::Info->new(
encoding => utf-8,
players => [Anfa,Baston, Caules, Ehasara, Javeroal, Mardun, Narita, Setill, Soshise]
);
my $data = $ps->retrieve_info ;
Download (0.008MB)
Added: 2006-12-27 License: Perl Artistic License Price:
1032 downloads
Secleted [ 0 ] software to compare
Copyright Notice:
Software piracy is theft, Using crack, password, serial numbers, registration codes, key generators is illegal and prevent future software development. The above for more info search only lists software in full, demo and trial versions for free download. Download links are directly from our mirror sites or publisher sites, torrent files or links from rapidshare.com, yousendit.com or megaupload.com are not allowed