[tools] testbot/web: Standardize the page creation.

Francois Gouget fgouget at codeweavers.com
Thu Mar 31 09:07:06 CDT 2022


Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
 testbot/web/Activity.pl            | 5 ++---
 testbot/web/Feedback.pl            | 5 ++---
 testbot/web/ForgotPassword.pl      | 5 ++---
 testbot/web/JobDetails.pl          | 5 ++---
 testbot/web/Login.pl               | 5 ++---
 testbot/web/Logout.pl              | 5 ++---
 testbot/web/Register.pl            | 5 ++---
 testbot/web/ResetPassword.pl       | 5 ++---
 testbot/web/Stats.pl               | 5 ++---
 testbot/web/Submit.pl              | 5 ++---
 testbot/web/admin/BranchDetails.pl | 5 ++---
 testbot/web/admin/Log.pl           | 5 ++---
 testbot/web/admin/SpecialJobs.pl   | 5 ++---
 testbot/web/admin/UserDetails.pl   | 5 ++---
 testbot/web/admin/VMDetails.pl     | 5 ++---
 testbot/web/index.pl               | 5 ++---
 16 files changed, 32 insertions(+), 48 deletions(-)

diff --git a/testbot/web/Activity.pl b/testbot/web/Activity.pl
index 1771e7ca3..5a5a37505 100644
--- a/testbot/web/Activity.pl
+++ b/testbot/web/Activity.pl
@@ -318,6 +318,5 @@ sub GenerateFooter($)
 package main;
 
 my $Request = shift;
-
-my $ActivityPage = ActivityPage->new($Request, "wine-devel");
-$ActivityPage->GeneratePage();
+my $Page = ActivityPage->new($Request, "wine-devel");
+$Page->GeneratePage();
diff --git a/testbot/web/Feedback.pl b/testbot/web/Feedback.pl
index ca1ee5ed7..6185d26d2 100644
--- a/testbot/web/Feedback.pl
+++ b/testbot/web/Feedback.pl
@@ -137,6 +137,5 @@ sub GenerateBody($)
 package main;
 
 my $Request = shift;
-
-my $FeedbackPage = FeedbackPage->new($Request, "");
-$FeedbackPage->GeneratePage();
+my $Page = FeedbackPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/ForgotPassword.pl b/testbot/web/ForgotPassword.pl
index cc0cd455d..190985264 100644
--- a/testbot/web/ForgotPassword.pl
+++ b/testbot/web/ForgotPassword.pl
@@ -131,6 +131,5 @@ sub GenerateBody($)
 package main;
 
 my $Request = shift;
-
-my $ForgotPasswordPage = ForgotPasswordPage->new($Request, "");
-$ForgotPasswordPage->GeneratePage();
+my $Page = ForgotPasswordPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index c4d6b1a1b..7e1df1ffa 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -741,6 +741,5 @@ sub GenerateFooter($)
 package main;
 
 my $Request = shift;
-
-my $JobDetailsPage = JobDetailsPage->new($Request, "");
-$JobDetailsPage->GeneratePage();
+my $Page = JobDetailsPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/Login.pl b/testbot/web/Login.pl
index ac64fc28e..b1f82a94b 100644
--- a/testbot/web/Login.pl
+++ b/testbot/web/Login.pl
@@ -154,6 +154,5 @@ sub OnAction($$)
 package main;
 
 my $Request = shift;
-
-my $LoginPage = LoginPage->new($Request, "");
-$LoginPage->GeneratePage();
+my $Page = LoginPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/Logout.pl b/testbot/web/Logout.pl
index b0fd5cdc1..35f5c487c 100644
--- a/testbot/web/Logout.pl
+++ b/testbot/web/Logout.pl
@@ -76,6 +76,5 @@ sub GeneratePage($)
 package main;
 
 my $Request = shift;
-
-my $LogoutPage = LogoutPage->new($Request, "");
-$LogoutPage->GeneratePage();
+my $Page = LogoutPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/Register.pl b/testbot/web/Register.pl
index 4cfef79fc..bbea0eb12 100644
--- a/testbot/web/Register.pl
+++ b/testbot/web/Register.pl
@@ -183,6 +183,5 @@ EOF
 package main;
 
 my $Request = shift;
-
-my $RegisterPage = RegisterPage->new($Request, "");
-$RegisterPage->GeneratePage();
+my $Page = RegisterPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/ResetPassword.pl b/testbot/web/ResetPassword.pl
index 81655e0c4..4f672ea94 100644
--- a/testbot/web/ResetPassword.pl
+++ b/testbot/web/ResetPassword.pl
@@ -184,6 +184,5 @@ sub GenerateBody($)
 package main;
 
 my $Request = shift;
-
-my $ResetPasswordPage = ResetPasswordPage->new($Request, "");
-$ResetPasswordPage->GeneratePage();
+my $Page = ResetPasswordPage->new($Request, "");
+$Page->GeneratePage();
diff --git a/testbot/web/Stats.pl b/testbot/web/Stats.pl
index 39c28789c..7ef65b3bf 100644
--- a/testbot/web/Stats.pl
+++ b/testbot/web/Stats.pl
@@ -397,6 +397,5 @@ sub GenerateFooter($)
 package main;
 
 my $Request = shift;
-
-my $StatsPage = StatsPage->new($Request, "wine-devel");
-$StatsPage->GeneratePage();
+my $Page = StatsPage->new($Request, "wine-devel");
+$Page->GeneratePage();
diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl
index aba2b6dc5..8323b9ab7 100644
--- a/testbot/web/Submit.pl
+++ b/testbot/web/Submit.pl
@@ -1376,6 +1376,5 @@ sub OnAction($$)
 package main;
 
 my $Request = shift;
-
-my $SubmitPage = SubmitPage->new($Request, "wine-devel");
-$SubmitPage->GeneratePage();
+my $Page = SubmitPage->new($Request, "wine-devel");
+$Page->GeneratePage();
diff --git a/testbot/web/admin/BranchDetails.pl b/testbot/web/admin/BranchDetails.pl
index fe3ebd118..1373e20fe 100644
--- a/testbot/web/admin/BranchDetails.pl
+++ b/testbot/web/admin/BranchDetails.pl
@@ -38,6 +38,5 @@ sub _initialize($$$)
 package main;
 
 my $Request = shift;
-
-my $BranchDetailsPage = BranchDetailsPage->new($Request, "admin");
-$BranchDetailsPage->GeneratePage();
+my $Page = BranchDetailsPage->new($Request, "admin");
+$Page->GeneratePage();
diff --git a/testbot/web/admin/Log.pl b/testbot/web/admin/Log.pl
index 8d3a8ce8b..9c18c375e 100644
--- a/testbot/web/admin/Log.pl
+++ b/testbot/web/admin/Log.pl
@@ -97,6 +97,5 @@ sub GenerateBody($)
 package main;
 
 my $Request = shift;
-
-my $LogPage = LogPage->new($Request, "admin");
-$LogPage->GeneratePage();
+my $Page = LogPage->new($Request, "admin");
+$Page->GeneratePage();
diff --git a/testbot/web/admin/SpecialJobs.pl b/testbot/web/admin/SpecialJobs.pl
index 49f80a0f9..e267cc7d5 100644
--- a/testbot/web/admin/SpecialJobs.pl
+++ b/testbot/web/admin/SpecialJobs.pl
@@ -256,6 +256,5 @@ sub OnAction($$)
 package main;
 
 my $Request = shift;
-
-my $SubmitPage = SpecialJobsPage->new($Request, "admin");
-$SubmitPage->GeneratePage();
+my $Page = SpecialJobsPage->new($Request, "admin");
+$Page->GeneratePage();
diff --git a/testbot/web/admin/UserDetails.pl b/testbot/web/admin/UserDetails.pl
index 7f7c710e1..f11d127ad 100644
--- a/testbot/web/admin/UserDetails.pl
+++ b/testbot/web/admin/UserDetails.pl
@@ -126,6 +126,5 @@ sub OnAction($$)
 package main;
 
 my $Request = shift;
-
-my $UserDetailsPage = UserDetailsPage->new($Request, "admin");
-$UserDetailsPage->GeneratePage();
+my $Page = UserDetailsPage->new($Request, "admin");
+$Page->GeneratePage();
diff --git a/testbot/web/admin/VMDetails.pl b/testbot/web/admin/VMDetails.pl
index f39b0d674..35b26811a 100644
--- a/testbot/web/admin/VMDetails.pl
+++ b/testbot/web/admin/VMDetails.pl
@@ -89,6 +89,5 @@ sub GenerateFooter($)
 package main;
 
 my $Request = shift;
-
-my $VMDetailsPage = VMDetailsPage->new($Request, "admin");
-$VMDetailsPage->GeneratePage();
+my $Page = VMDetailsPage->new($Request, "admin");
+$Page->GeneratePage();
diff --git a/testbot/web/index.pl b/testbot/web/index.pl
index 94421536d..d2dd2b49d 100644
--- a/testbot/web/index.pl
+++ b/testbot/web/index.pl
@@ -394,6 +394,5 @@ EOF
 package main;
 
 my $Request = shift;
-
-my $StatusPage = StatusPage->new($Request, "");
-$StatusPage->GeneratePage();
+my $Page = StatusPage->new($Request, "");
+$Page->GeneratePage();
-- 
2.30.2



More information about the wine-devel mailing list