diverses hinzu

vdrrecren.rb

@@ -0,0 +1,144 @@
+#!/usr/bin/ruby
+
+require 'socket'
+
+def SvdrpRecv(s)
+  lines=Array.new
+  begin 
+    str=s.readline
+    lines.push(str)
+    #puts("SvdrpReceived: " + str + " -  |" + str[3,1] + "|" ) if $DEBUG
+  end while str[3,1]=="-"
+  return(lines)
+end
+
+def SvdrpSend( s, strSvdrpCmd )
+  s.write(strSvdrpCmd + "\n")
+  l=SvdrpRecv(s)
+  return(l)
+end
+
+def Svdrp( strSvdrpCmd )
+  puts("opening socket...") if $DEBUG
+  s=TCPSocket::new("localhost", 2001)
+  l=SvdrpRecv(s)
+  l=SvdrpSend(s, strSvdrpCmd)
+  s.write("quit\r\n")
+  s.close
+  return(l)
+end
+
+def RenameRec( num, strDir, strName)
+  if strName.size>0
+    cmd=sprintf("RENR %d '%s'", num, strDir + strName)
+    printf("Aufnahme %d umbennenen in '%s'...\n", num, strDir+strName)
+    #Svdrp(cmd)
+  end
+end
+
+if ARGV.size!=2
+  printf("invalid arguments: %d\n",ARGV.size )
+  exit
+end
+
+CMD=ARGV[0]
+REC=ARGV[1]
+
+if not File.directory?(REC)
+  puts("not a directory")
+  exit
+end
+RECDATEDIR=File.basename(REC)
+RECPATH=File.dirname(REC)
+RECNAME=File.basename(RECPATH)
+BASEDIR=File.dirname(RECPATH)
+EPISODENAME=File.basename(BASEDIR)
+
+sp=RECDATEDIR.split(".")
+RECDATE=sp[0]
+RECHOUR=sp[1].to_i
+RECMIN=sp[2].to_i
+if sp[5]!="rec"
+  puts("not .rec-dir")
+  exit
+end
+
+sp=RECDATE.split("-")
+RECDAY=sp[2].to_i
+RECMON=sp[1].to_i
+RECYEAR=sp[0].to_i
+
+strTime=sprintf("%02d:%02d", RECHOUR, RECMIN);
+strDate=sprintf("%02d.%02d.%02d", RECDAY, RECMON, RECYEAR % 100);
+
+l=Svdrp("LSTR")
+
+recs=Array.new
+#printf("Date:%s ; Time:%s\n", strDate,strTime) if $DEBUG
+l.each do |x|
+  sp=x.split(" ")
+  #printf("d:%s;t:%s\n", sp[1], sp[2])
+  if sp[1]==strDate && sp[2][0,5]==strTime
+    recs.push(x)
+  end
+end
+
+if recs.size>1
+  puts("Aufnahmezeit nicht eindeutig")
+  exit
+end
+
+# Get Rec-Num
+rec=recs[0][4..(recs[0].size-1)]
+rec_s=rec.split(' ')
+num=rec_s[0].to_i
+
+# Get Title of Rec
+title=""
+rec_s[3..rec_s.size].each { |x| title=title+x+' ' }
+#printf("t:%s\n",title)
+
+# Get Dir of Rec
+dir_s=title.split('~')
+dir=""
+dir_s[0..dir_s.size-2].each { |x| dir=dir+x+'~' }
+dir_parent=dir_s[dir_s.size-2] if dir_s.size>=2 
+#puts("D:"+dir)
+
+# read info.vdr-file
+infofile=REC + "/info.vdr"
+if File.exists?( infofile )
+  puts("reading " + infofile) if $DEBUG
+  f = File.new( infofile )
+  lines=f.readlines
+  f.close
+  info_title=""
+  info_short=""
+  info_desc=""
+  lines.each do |l|
+    if l[0,2]=="T "
+      info_title=l[2..l.size].chop
+    elsif l[0,2]=="S "
+      info_short=l[2..l.size].chop
+    elsif l[0,2]=="D "
+      ld=l.size
+      ld=80 if l.size > 80
+      info_desc=l[2..ld].chop
+    end
+  end
+end
+
+puts(info_title) if $DEBUG
+puts(info_short) if $DEBUG
+puts(info_desc) if $DEBUG
+
+case CMD 
+when "ShortToName" :
+    RenameRec(num, dir, info_short)
+when "DirToName" :
+    if dir_parent.size>0
+      RenameRec(num, "", dir.chop) 
+    end
+when "DescToName" :
+    RenameRec(nu, dir, info_desc)
+end