Cyxob'a žurnals

#!/usr/bin/perl
use Term::ANSIColor;
 
$time=scalar(localtime);
chomp($time);
#Wed Sep 9 16:22:46 2009
$time =~ /(\w*)\s(\w*)\s*(\d*)\s([\d:]*)\s(\d*)/;
 
if (($2 eq 'Jan' ) or ($2 eq 'March' ) or ($2 eq 'May' ) or ($2 eq 'July' ) or ($2 eq 'Aug' ) or ($2 eq 'Oct' ) or ($2 eq 'Dec' ))
{
for ($i=0;$i<31;$i++)
{
@data[$i]=$i+1;
}
}
if ($2 eq 'Feb')
{
for ($i=0;$i<27;$i++)
{
@data[$i]=$i+1;
}
}
else
{
for ($i=0;$i<30;$i++)
{
@data[$i]=$i+1;
}
}
if (@ARGV[0] == 1)
{
for($i=0;$i<($3-1);$i++)
{ print "@data[$i] "; }
}
if (@ARGV[0] == 2)
{
print "$3";
}
if (@ARGV[0] == 3)
{
for($i=$3;$i<($i+1);$i++)
{ print "@data[$i] "; }
# print "@data[($3)..$i]";
}

    background no
    use_xft yes
    xftfont Trebuchet MS:size=10
    xftalpha 1.0
    mpd_host 127.0.0.1
    mpd_port 6600
    update_interval 1
    total_run_times 0
    own_window yes
    own_window_type override
    own_window_transparent yes
    own_window_colour 202020
    #own_window_hints undecorate,sticky,below,skip_taskbar,skip_pager
    double_buffer yes
    minimum_size 0 5
    maximum_width 0
    draw_shades no
    draw_outline no
    draw_borders no
    draw_graph_borders yes
    stippled_borders 0
    border_margin 4
    border_width 1
    default_color FFFFFF
    alignment bottom_left
    gap_x 0
    gap_y 30
    no_buffers yes
    uppercase no
    cpu_avg_samples 2
    net_avg_samples 2
    override_utf8_locale yes
    use_spacer none
    show_graph_scale no
    show_graph_range no
    default_bar_size 0 4
 
    color1 6AA7FF
    color2 red
    color3 dark green
    color4 yellow
    color5 orange
    color6 cyan
    color7 FFC125
 
    TEXT
    ${goto 330}${font DejaVu Sans:size=12:bold}${time %A}${voffset -7}${font DejaVu Sans:size=10}${color EEEEEE}${time [%B]}${color}${goto 930}${voffset 4}${font DejaVu Sans:size=12:bold}${time %Y}${font}
 
 
 
    ${goto 330}${voffset 0}${color}${execi 300 perl /home/cyxob/cal.pl 1}${voffset -31}${color}${font Trebuchet MS:size=36}${execi 300 perl /home/cyxob/cal.pl 2}${voffset 0}${font} ${font Trebuchet MS:size=10}${color}${execi 300 perl /home/cyxob/cal.pl 3}