[smolder-commits] SF.net SVN: smolder: [511] trunk

[<mic...@us...>]

Revision: 511
          http://svn.sourceforge.net/smolder/?rev=511&view=rev
Author:   michael_peters
Date:     2007-02-15 07:31:57 -0800 (Thu, 15 Feb 2007)

Log Message:
-----------
use /app as part of base_url

Modified Paths:
--------------
    trunk/bin/smolder_smoke_signal

Property Changed:
----------------
    trunk/


Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 6cb60ec2-19fc-4f48-ba02-516b4c84136d:/local/smolder:23399
   + 6cb60ec2-19fc-4f48-ba02-516b4c84136d:/local/smolder:23422

Modified: trunk/bin/smolder_smoke_signal
===================================================================
--- trunk/bin/smolder_smoke_signal	2007-02-15 15:31:44 UTC (rev 510)
+++ trunk/bin/smolder_smoke_signal	2007-02-15 15:31:57 UTC (rev 511)
@@ -157,7 +157,7 @@
 # try and reach the smolder server
 print "Trying to reach Smolder server at $server.\n" if ($verbose);
 my $mech     = WWW::Mechanize->new();
-my $base_url = "http://$server";
+my $base_url = "http://$server/app";
 $mech->get($base_url);
 unless ( $mech->status eq '200' ) {
     print "Could not reach $server successfully. Received status " . $mech->status . "\n";
@@ -166,7 +166,7 @@
 
 # now login
 print "Trying to login with username '$user'.\n" if ($verbose);
-$mech->get( $base_url . '/app/public_auth/login' );
+$mech->get( $base_url . '/public_auth/login' );
 my $form = $mech->form_name('login');
 if ( $mech->status ne '200' || !$form ) {
     print "Could not reach Smolder login form. Are you sure $server is a Smolder server?\n";
@@ -185,7 +185,7 @@
 
 # now go to this project's page
 print "Retrieving project listing for user '$user'.\n" if ($verbose);
-$mech->get( $base_url . '/app/developer_projects' );
+$mech->get( $base_url . '/developer_projects' );
 $content = $mech->content;
 $content =~ />\Q$project\E<!--(\d+)-->/;
 my $project_id = $1;
@@ -197,7 +197,7 @@
 
 # now go to the add-smoke-report page for this project
 print "Adding smoke report to project '$project'.\n" if ($verbose);
-$mech->get( $base_url . "/app/developer_projects/add_report/$project_id" );
+$mech->get( $base_url . "/developer_projects/add_report/$project_id" );
 $content = $mech->content;
 if ( $mech->status ne '200' || $content !~ /New Smoke Report/ ) {
     print "Could not reach the Add Smoke Report form!\n";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.