diff --git a/AddItem.pl b/AddItem.pl index 8b52920..ef07129 100755 --- a/AddItem.pl +++ b/AddItem.pl @@ -3,16 +3,16 @@ use strict; use warnings; open(my $fh, ">>$ARGV[0].rss") or die "File:$!"; -my $i = 1; +my $i = 2; while($i < $#ARGV+1){ print $fh "\t\t\n"; print $fh "\t\t\t $ARGV[$i] \n"; print $fh "\t\t\t $ARGV[$i] \n"; - print $fh "\t\t\thttp://offsite.obscuritus.ca/$ARGV[$i]\n"; - print $fh "\t\t\thttp://offsite.obscuritus.ca/$ARGV[$i]\n"; + print $fh "\t\t\thttp://$ARGV[1]$ARGV[$i]\n"; + print $fh "\t\t\thttp://$ARGV[1]$ARGV[$i]\n"; my $length = `ls -l $ARGV[$i] |cut -d ' ' -f 5`; chomp($length); - print $fh "\t\t\t\n"; + print $fh "\t\t\t\n"; $i++; print $fh "\t\t\n"; diff --git a/BuildCast.pl b/BuildCast.pl index abe3db8..6e44f63 100755 --- a/BuildCast.pl +++ b/BuildCast.pl @@ -11,7 +11,7 @@ print $fh "\t\n"; print $fh "\t\t$ARGV[0]\n"; print $fh "\t\t$ARGV[1]\n"; print $fh "\t\thttp://$ARGV[2]\n"; -print $fh "\t\t\n"; +print $fh "\t\t\n"; my $todaydate = strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time())); print $fh "\t\t$todaydate\n"; print $fh "\t\t$todaydate\n"; diff --git a/FormCast.sh b/FormCast.sh index 539e6e5..fe2c3b8 100755 --- a/FormCast.sh +++ b/FormCast.sh @@ -1,3 +1,3 @@ #!/bin/sh BuildCast.pl "$1" "$2" "$3" -AddItem.pl $1 `ls|tr '\n' ' '` +AddItem.pl $1 $3 `ls|tr '\n' ' '`