* Dont use referer for redirect, after display result.

8 files changed, 18 insertions, 19 deletions

diff --git a/lib/XXV/MODULES/AUTOTIMER.pm b/lib/XXV/MODULES/AUTOTIMER.pm
index 04eafbb..75bced6 100644
--- a/lib/XXV/MODULES/AUTOTIMER.pm
+++ b/lib/XXV/MODULES/AUTOTIMER.pm
@@ -904,10 +904,8 @@ You can also fine tune your search :
             );
         $obj->autotimer($watcher, $console, $data->{Id});
 
-        $console->link({
-            text => gettext("Back to previous page."),
-            url => $console->{browser}->{Referer},
-        }) if($console->typ eq 'HTML');
+        $console->redirect({url => '?cmd=alist', wait => 1})
+          if($console->typ eq 'HTML');
 
     }
     return 1;
@@ -939,7 +937,7 @@ sub autotimerDelete {
         join(',', @timers),
         ( $console->{USER} && $console->{USER}->{Name} ? sprintf(' from user: %s', $console->{USER}->{Name}) : "" )
         );
-    $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+    $console->redirect({url => '?cmd=alist', wait => 1})
         if($console->typ eq 'HTML');
 }
 
@@ -999,7 +997,7 @@ sub autotimerToggle {
         push(@$erg,[$timer,($status eq 'n' ? 0 : 1),0,0]);
     }
 
-    $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+    $console->redirect({url => '?cmd=alist', wait => 1})
         if($console->typ eq 'HTML');
 
     if($console->typ eq 'AJAX') {
diff --git a/lib/XXV/MODULES/CHANNELS.pm b/lib/XXV/MODULES/CHANNELS.pm
index d2f7fe0..95d180f 100644
--- a/lib/XXV/MODULES/CHANNELS.pm
+++ b/lib/XXV/MODULES/CHANNELS.pm
@@ -879,7 +879,7 @@ sub editChannel {
         sleep(1);
         $self->readData($watcher,$console);
 
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+        $console->redirect({url => '?cmd=clist', wait => 1})
             if($console->typ eq 'HTML');
     }
 }
@@ -976,7 +976,7 @@ sub deleteChannel {
 
         $self->readData($watcher,$console);
 
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+        $console->redirect({url => '?cmd=clist', wait => 1})
             if(ref $console and $console->typ eq 'HTML');
     } else {
         $console->err(gettext("No channel defined for deletion!"));
diff --git a/lib/XXV/MODULES/CONFIG.pm b/lib/XXV/MODULES/CONFIG.pm
index 993abeb..88cb4ba 100644
--- a/lib/XXV/MODULES/CONFIG.pm
+++ b/lib/XXV/MODULES/CONFIG.pm
@@ -186,7 +186,7 @@ sub edit {
             );
 
         $console->message(sprintf(gettext("Section: '%s' saving ... please wait."), $sector));
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+        $console->redirect({url => sprintf('?cmd=configedit&data=%s',$sector), wait => 1})
             if($console->typ eq 'HTML');
     }
 }
@@ -206,7 +206,7 @@ sub write {
     $console->message(sprintf gettext("Configuration written to '%s'."), $configfile)
         if(ref $console);
 
-    $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+    $console->redirect({url => '?cmd=configedit', wait => 2})
         if(ref $console and $console->typ eq 'HTML');
 }
 
diff --git a/lib/XXV/MODULES/EPG.pm b/lib/XXV/MODULES/EPG.pm
index ed0319c..649ccf2 100644
--- a/lib/XXV/MODULES/EPG.pm
+++ b/lib/XXV/MODULES/EPG.pm
@@ -309,7 +309,7 @@ sub startReadEpgData {
         $console->start() if(ref $waiter);
         $console->message(sprintf(gettext("%d events in database updated."), $updated));
 
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+        $console->redirect({url => '?cmd=now', wait => 1})
             if($console->typ eq 'HTML');
     }
 }
diff --git a/lib/XXV/MODULES/RECORDS.pm b/lib/XXV/MODULES/RECORDS.pm
index 792f832..60c61a7 100644
--- a/lib/XXV/MODULES/RECORDS.pm
+++ b/lib/XXV/MODULES/RECORDS.pm
@@ -1853,6 +1853,7 @@ WHERE
             $ChangeRecordingData = 1;
             $dropEPGEntry = 1;
             $touchVDR = 1;
+            $rec->{Path} = $newPath;
         }
 
         if($dropEPGEntry) { # Delete EpgOld Entrys
@@ -1881,7 +1882,7 @@ WHERE
         }
         $obj->readData($watcher,$console,$waiter);
 
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+        $console->redirect({url => sprintf('?cmd=rdisplay&data=%s',md5_hex($rec->{Path})), wait => 1})
             if(ref $console and $console->typ eq 'HTML');
     }
 
diff --git a/lib/XXV/MODULES/REMOTE.pm b/lib/XXV/MODULES/REMOTE.pm
index b462890..0f535ba 100644
--- a/lib/XXV/MODULES/REMOTE.pm
+++ b/lib/XXV/MODULES/REMOTE.pm
@@ -270,7 +270,7 @@ sub switch {
 
     $console->msg($erg, $svdrp->err)
         if(ref $console);
-    $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+    $console->redirect({url => sprintf('?cmd=program&data=%s',$channel), wait => 1})
         if(ref $console and $console->typ eq 'HTML');
 
 
diff --git a/lib/XXV/MODULES/TIMERS.pm b/lib/XXV/MODULES/TIMERS.pm
index 0db6457..8cfa91e 100644
--- a/lib/XXV/MODULES/TIMERS.pm
+++ b/lib/XXV/MODULES/TIMERS.pm
@@ -777,7 +777,7 @@ WHERE
                 $console->err($erg);
         }
         $obj->readData($watcher,$console);
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+        $console->redirect({url => '?cmd=tlist', wait => 1})
             if($console->typ eq 'HTML');
     }
 }
@@ -837,7 +837,7 @@ sub deleteTimer {
 
         $obj->readData($watcher,$console);
 
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+        $console->redirect({url => '?cmd=tlist', wait => 1})
             if(ref $console and $console->typ eq 'HTML');
     } else {
         $console->err(gettext("No timer to delete!"));
@@ -894,7 +894,7 @@ sub toggleTimer {
 
         $obj->readData($watcher, $console);
 
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+        $console->redirect({url => '?cmd=tlist', wait => 1})
             if(ref $console and $console->typ eq 'HTML');
 
         if(ref $console and $console->typ eq 'AJAX') {
@@ -1034,7 +1034,7 @@ sub readData {
     $console->message(sprintf(gettext("%d timer written to database."), $c), {overlapping => $overlapping})
         if(ref $console and $console->typ ne 'AJAX');
 
-    $console->redirect({url => $console->{browser}->{Referer}, wait => 1})
+    $console->redirect({url => '?cmd=tlist', wait => 1})
         if(ref $console and $console->typ eq 'HTML');
 
     return 1;
diff --git a/lib/XXV/MODULES/USER.pm b/lib/XXV/MODULES/USER.pm
index 52ebdf6..5314032 100644
--- a/lib/XXV/MODULES/USER.pm
+++ b/lib/XXV/MODULES/USER.pm
@@ -481,7 +481,7 @@ sub edit {
             );
 
         $console->message(gettext('User account saved!'));
-        $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+        $console->redirect({url => '?cmd=ulist', wait => 1})
             if($console->typ eq 'HTML');
     }
     return 1;
@@ -508,7 +508,7 @@ sub delete {
         ( $console->{USER} && $console->{USER}->{Name} ? sprintf(' from user: %s', $console->{USER}->{Name}) : "" )
         );
 
-    $console->redirect({url => $console->{browser}->{Referer}, wait => 2})
+    $console->redirect({url => '?cmd=ulist', wait => 1})
         if($console->typ eq 'HTML');
 
 }