Comment Woohoo!!! Free EVERYTHING! (Score 1) 993
My wife will be so happy! I won't be spending loads of money on anything. Free hardware from Billy, free software from GNU. What more could you ask?
Journal Journal: RadioVo Source - Various comments
Here is how you add the daemon to start up on Virtual Console 1:
In
1:2345:respawn:/sbin/agetty -i -n -l
You need to make sure you have "agetty" installed and that the path is right.
Journal Journal: RadioVo Source - Config File (oggrec.conf)
$date = `/bin/date +%Y%m%d%H%M%S`;
chop($date);
$genre="Radio";
$artist="Radio";
$title="Recording - $date";
$track="1";
$album="Recordings";
$time="1"; # Time in seconds
##############################################
# Stupid RAWREC can't be called with full path
##############################################
$rawrec="(PATH=$PATH:/usr/local/bin; rawrec)";
# $rawrec_args="-t $time";
$rawrec_args="";
chop($date);
$genre="Radio";
$artist="Radio";
$title="Recording - $date";
$track="1";
$album="Recordings";
$time="1"; # Time in seconds
##############################################
# Stupid RAWREC can't be called with full path
##############################################
$rawrec="(PATH=$PATH:/usr/local/bin; rawrec)";
# $rawrec_args="-t $time";
$rawrec_args="";
Journal Journal: RadioVo Source - Perl Module (oggrec.pm)
# Read the config file given as argv[0]
# All you give as an argument is the first
# part of the name of the config file
package oggrec;
sub new {
my $this = {};
bless $this;
return $this;
}
# All you give as an argument is the first
# part of the name of the config file
package oggrec;
sub new {
my $this = {};
bless $this;
return $this;
}
Journal Journal: RadioVo Source - Main Daemon
#!/usr/bin/perl
#
#########################
#load required modules
#########################
use lib "/MUSIC/bin";
use strict;
use Term::ReadKey;
use POSIX qw(setsid);
use oggrec;
#########################
# set variables
#########################
my $return_val;
my %key_map;
my $char;
my $rec_pid;
my $STATUS_FILE = "/MUSIC/status/music.pid";
# my $std_out = $ARGV[0];
#
#########################
#load required modules
#########################
use lib "/MUSIC/bin";
use strict;
use Term::ReadKey;
use POSIX qw(setsid);
use oggrec;
#########################
# set variables
#########################
my $return_val;
my %key_map;
my $char;
my $rec_pid;
my $STATUS_FILE = "/MUSIC/status/music.pid";
# my $std_out = $ARGV[0];
