sandweb-commit Mailing List for SandWeb (Page 27)

Brought to you by: formnull, njennings

sandweb-commit — CVS activity

You can subscribe to this list here.

2001	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct (28)	_Nov (58)	_Dec (85)
2002	_Jan (125)	_Feb (222)	_Mar (274)	_Apr (51)	_May (22)	_Jun (50)	_Jul (15)	_Aug (33)	_Sep (11)	_Oct (29)	_Nov (17)	_Dec (1)
2003	_Jan (100)	_Feb (21)	_Mar (7)	_Apr (45)	_May	_Jun (43)	_Jul (27)	_Aug (24)	_Sep	_Oct	_Nov	_Dec
2004	_Jan (1)	_Feb	_Mar (13)	_Apr	_May (1)	_Jun	_Jul	_Aug (7)	_Sep	_Oct	_Nov	_Dec (4)
2005	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec (1)

Flat | Threaded

<< < 1 .. 25 26 27 28 29 .. 53 > >> (Page 27 of 53)

[Sandweb-commit] CVS: sandweb/tools modconfig.pl,NONE,1.1

From: Nick J. <nje...@us...> - 2002-03-16 06:10:51

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv28559/tools

Added Files:
	modconfig.pl 
Log Message:
* will modify sandweb.cfg and related scripts like CGI and -admin script.
  (not working yet)



--- NEW FILE ---
#!/usr/bin/perl -w

use strict;

if ($ARGV[0]) {
	open(OF, "<$ARGV[0]") or die "Unable to open $ARGV[0] : $!\n";
	open(NF, ">>$ARGV[0].tmp") or die "Unable to open $ARGV[0].tmp : $!\n";
	foreach my $line (<OF>) {
		if ($line =~ /Pod::Man/) {
			# skip
		}
		elsif ($line =~ /^.TH /) {
			my @tmp = split(/ /, $line);
			print NF "$tmp[0] $tmp[1] $tmp[2] $tmp[3]\n";
		}
		else {
			print NF $line;
		}
	}
	close OF;
	close NF;

	system('rm', "$ARGV[0]");
	system('mv', "$ARGV[0].tmp", "$ARGV[0]");
}
exit(1);

[Sandweb-commit] CVS: sandweb/tools instcachedir.pl,NONE,1.1

From: Nick J. <nje...@us...> - 2002-03-16 06:10:19

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv28328/tools

Added Files:
	instcachedir.pl 
Log Message:
* instcachedir.pl installs /var/cache/sandweb stuff and chowns it all
  to webserver user.



--- NEW FILE ---
#!/usr/bin/perl -w
# 
# instcachedir.pl : script for installing sandweb cache dir
#

use strict;
require 'install-config';

my $cachedir;

if (!$config::cachedir) {
	$cachedir = "/var/cache/sandweb";
} else {
	$cachedir = "$config::cachedir";
}

my $verified = 0;
my $httpuser = 'httpd';
if ($config::httpuser) {
	$httpuser = $config::httpuser;
	# try to find http user in passwd file
	open(PWD, "</etc/passwd");
	my @output = <PWD>;
	close PWD;

	foreach my $line (@output) {
		if ($line =~ /^$httpuser\:/) {
			$verified = 1;
		}
	}
}
	

if (!$verified) {
	# confirm
	print("-----------------------------\n");
	print("Discovering Webserver user...\n");
	print("The user '$httpuser' does not seem to exist, the webserver must\n");
	print("have read/write access to the '$cachedir' directory. Please\n");
	print("enter the username the webserver runs as (some common users are:\n");
	print("httpd, apache, www-data, or even root). [default: $httpuser]: ");
	my $tmp = '';
	chomp($tmp = <STDIN>);
	if ($tmp) {
		$httpuser = $tmp;
	}
}

print("Creating SandWeb cache dir '$cachedir'...\n");
if (system('tools/mkdirto.pl', '755', $httpuser . ':root', "$cachedir")) {
	exit(1);
}
exit(0);

[Sandweb-commit] CVS: sandweb install-config,NONE,1.1

From: Nick J. <nje...@us...> - 2002-03-16 06:09:29

Update of /cvsroot/sandweb/sandweb
In directory usw-pr-cvs1:/tmp/cvs-serv28076

Added Files:
	install-config 
Log Message:
* install-config contains some default values for directories etc.



--- NEW FILE ---
package config;


$cfgdir = '/usr/local/etc';
$cgidir = '/var/www/cgi-bin';
$tmpldir = 'lib/sandweb/templates';
$cachedir = '/var/cache/sandweb';
$httpuser = 'www-data';



1;

[Sandweb-commit] CVS: sandweb/tools mkdirto.pl,1.1,1.2

From: Nick J. <nje...@us...> - 2002-03-16 06:09:00

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv27917/tools

Modified Files:
	mkdirto.pl 
Log Message:
* added support for chowning final directory



Index: mkdirto.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/mkdirto.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- mkdirto.pl	15 Mar 2002 06:17:46 -0000	1.1
+++ mkdirto.pl	16 Mar 2002 06:08:57 -0000	1.2
@@ -9,11 +9,22 @@
 use strict;
 
-my $perm = $ARGV[0] || '';
-my $dirto = $ARGV[1] || '';
+my $perm;
+my $ownergroup;
+my $dirto;
+
+if ($ARGV[2]) {
+	$perm = $ARGV[0] || '';
+	$ownergroup = $ARGV[1] || '';
+	$dirto = $ARGV[2] || '';
+} else {
+	$perm = $ARGV[0] || '';
+	$dirto = $ARGV[1] || '';
+}
+	
 
 unless (($perm) && ($dirto)) {
     print "Incorrect use of mkdirto.pl\n";
     print "Usage:\n";
-    print "    mkdirto.pl <permissions> <full_path>\n";
+    print "    mkdirto.pl <permissions> <owner:group> <full_path>\n";
     exit 1;
 }
@@ -43,5 +54,5 @@
 }
 
-print "setting ownership ($perm) to $past... ";
+print "setting permissions ($perm) on $past... ";
 system("chmod", $perm, $past);
 if ($?) {
@@ -53,3 +64,14 @@
 }
 
+if ($ownergroup) {
+	print "setting ownership ($ownergroup) on $past... ";
+	system("chown", $ownergroup, $past);
+	if ($?) {
+	    print "failed!\n";
+	    exit 4;
+	}
+	else {
+	    print "ok!\n";
+	}
+}
 exit 0;

[Sandweb-commit] CVS: sandweb/tools insttemplates.pl,1.1,1.2

From: Nick J. <nje...@us...> - 2002-03-16 06:08:37

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv27721/tools

Modified Files:
	insttemplates.pl 
Log Message:
* insttemplates now reads from install-config file



Index: insttemplates.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/insttemplates.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- insttemplates.pl	15 Mar 2002 06:16:41 -0000	1.1
+++ insttemplates.pl	16 Mar 2002 06:08:33 -0000	1.2
@@ -1,22 +1,30 @@
 #!/usr/bin/perl -w
 # 
-# instcgi.pl : script for installing sandweb.cgi
+# insttemplates.pl : script for installing sandweb templates
 #
 
 use strict;
+require 'install-config';
 
 my $prefix = $ARGV[0] || '/usr/local';
+my $tmpldir;
 
-my $tmpldir = "$prefix/lib/sandweb/templates";
+if (!$config::tmpldir) {
+	$tmpldir = "$prefix/lib/sandweb/templates";
+} else {
+	$tmpldir = "$prefix/$config::tmpldir";
+}
 
-print("-------------------------------\n");
-print("Installing SandWeb templates...\n\n");
-print("Specify the location you wish to install the SandWeb templates.\n");
-print("Enter the full path [default: $tmpldir] : ");
+if (!$tmpldir) {
+	print("-------------------------------\n");
+	print("Installing SandWeb templates...\n\n");
+	print("Specify the location you wish to install the SandWeb templates.\n");
+	print("Enter the full path [default: $tmpldir] : ");
 
-my $tmp = '';
-chomp($tmp = <STDIN>);
-if ($tmp) {
-	$tmpldir = $tmp;
+	my $tmp = '';
+	chomp($tmp = <STDIN>);
+	if ($tmp) {
+		$tmpldir = $tmp;
+	}
 }

[Sandweb-commit] CVS: sandweb Makefile.PL,1.6,1.7

From: Nick J. <nje...@us...> - 2002-03-16 06:07:38

Update of /cvsroot/sandweb/sandweb
In directory usw-pr-cvs1:/tmp/cvs-serv27368

Modified Files:
	Makefile.PL 
Log Message:
* instcachedir.pl hook



Index: Makefile.PL
===================================================================
RCS file: /cvsroot/sandweb/sandweb/Makefile.PL,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- Makefile.PL	16 Mar 2002 01:52:09 -0000	1.6
+++ Makefile.PL	16 Mar 2002 06:07:33 -0000	1.7
@@ -8,5 +8,5 @@
 	my $inherited = $self->SUPER::install (@_);
 
-	$inherited =~ s/^(install :: .*)$/$1 cgi_install/gm;
+	$inherited =~ s/^(install :: .*)$/$1 custom_install/gm;
 	$inherited;
 }
@@ -28,7 +28,8 @@
 sub MY::postamble {
 '
-cgi_install:
+custom_install:
 	./tools/instcgi.pl
 	./tools/insttemplates.pl $(PREFIX)
+	./tools/instcachedir.pl
 ';
 }

[Sandweb-commit] CVS: sandweb/tools instcgi.pl,1.1,1.2

From: Nick J. <nje...@us...> - 2002-03-16 01:55:10

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv20248/tools

Modified Files:
	instcgi.pl 
Log Message:
* added directory checking using mkdirto.pl



Index: instcgi.pl
===================================================================
RCS file: /cvsroot/sandweb/sandweb/tools/instcgi.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- instcgi.pl	10 Mar 2002 08:36:38 -0000	1.1
+++ instcgi.pl	16 Mar 2002 01:55:05 -0000	1.2
@@ -21,4 +21,16 @@
 
 print("Installing sandweb.cgi into $cgidir... ");
+my $create = 1;
+if (!-d $cgidir) {
+	$tmp = 'y';
+	print("That directory does not exist, do you wish to create it?(Y/n): ");
+	chomp($tmp = <STDIN>);
+	if (($tmp eq 'n') || ($tmp eq 'N')) {
+		# exiting
+		exit(1);
+	}
+	system('tools/mkdirto.pl', 755, $cgidir);
+}
+
 if (system('cp', 'bin/sandweb.cgi', "$cgidir/sandweb.cgi")) {
 	exit(1);

[Sandweb-commit] CVS: sandweb MANIFEST,1.1,1.2

From: Nick J. <nje...@us...> - 2002-03-16 01:53:19

Update of /cvsroot/sandweb/sandweb
In directory usw-pr-cvs1:/tmp/cvs-serv20062

Modified Files:
	MANIFEST 
Log Message:
* Added/removed some files from MANIFEST



Index: MANIFEST
===================================================================
RCS file: /cvsroot/sandweb/sandweb/MANIFEST,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- MANIFEST	8 Mar 2002 07:01:47 -0000	1.1
+++ MANIFEST	16 Mar 2002 01:53:14 -0000	1.2
@@ -22,8 +22,6 @@
 templates/file_info.html
 templates/sandbox.html
-templates/browse_module_footer.html
 templates/framework.html
 templates/tag.html
-templates/browse_module_header.html
 templates/login.html
 templates/template.html
@@ -44,5 +42,5 @@
 
 etc/sandweb.cfg
-etc/prefs.cfg
+etc/user.cfg
 
 doc/dependencies.list
@@ -50,3 +48,7 @@
 doc/API/File.txt
 doc/API/Repository.txt
+
+tools/instcgi.pl
+tools/insttemplates.pl
+tools/mkdirto.pl

[Sandweb-commit] CVS: sandweb Makefile.PL,1.5,1.6

From: Nick J. <nje...@us...> - 2002-03-16 01:52:12

Update of /cvsroot/sandweb/sandweb
In directory usw-pr-cvs1:/tmp/cvs-serv19927

Modified Files:
	Makefile.PL 
Log Message:
* Removed PREFIX setting (it already defaults to /usr/local apparently)



Index: Makefile.PL
===================================================================
RCS file: /cvsroot/sandweb/sandweb/Makefile.PL,v
retrieving revision 1.5
retrieving revision 1.6
diff -U2 -r1.5 -r1.6
--- Makefile.PL	15 Mar 2002 06:18:21 -0000	1.5
+++ Makefile.PL	16 Mar 2002 01:52:09 -0000	1.6
@@ -15,5 +15,4 @@
 	'NAME'	=> 'SandWeb',
 	'VERSION_FROM' => 'lib/SandWeb.pm',
-	'PREFIX' => '/usr/local',
 
 	'PREREQ_PM' => {

[Sandweb-commit] CVS: sandweb Makefile.PL,1.4,1.5

From: Nick J. <nje...@us...> - 2002-03-15 06:18:24

Update of /cvsroot/sandweb/sandweb
In directory usw-pr-cvs1:/tmp/cvs-serv6492

Modified Files:
	Makefile.PL 
Log Message:
* Hook to install templates script


Index: Makefile.PL
===================================================================
RCS file: /cvsroot/sandweb/sandweb/Makefile.PL,v
retrieving revision 1.4
retrieving revision 1.5
diff -U2 -r1.4 -r1.5
--- Makefile.PL	10 Mar 2002 08:36:06 -0000	1.4
+++ Makefile.PL	15 Mar 2002 06:18:21 -0000	1.5
@@ -31,4 +31,5 @@
 cgi_install:
 	./tools/instcgi.pl
+	./tools/insttemplates.pl $(PREFIX)
 ';
 }

[Sandweb-commit] CVS: sandweb/tools mkdirto.pl,NONE,1.1

From: Nick J. <nje...@us...> - 2002-03-15 06:17:48

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv6300/tools

Added Files:
	mkdirto.pl 
Log Message:
* tools to create directories


--- NEW FILE ---
#!/usr/bin/perl -w

# mkdirto.pl -- a simple utility to make a directory, if preceding directories
#               do not exist they are made prior.
#
# created for use with the penemo Makefile, by Nick Jennings.
#

use strict;

my $perm = $ARGV[0] || '';
my $dirto = $ARGV[1] || '';

unless (($perm) && ($dirto)) {
    print "Incorrect use of mkdirto.pl\n";
    print "Usage:\n";
    print "    mkdirto.pl <permissions> <full_path>\n";
    exit 1;
}

$dirto =~ s/^\///;
$dirto =~ s/\/$//;
my @each_dir = split('/', $dirto);
my $past = '/';

foreach my $dir (@each_dir) {
	print "checking for $past$dir... ";
	unless (-d "$past$dir") {
		print "creating... ";
		system("mkdir", "$past$dir");
		if ($?) {
		    print "failed!\n";
		    exit 2;
		}
		else {
		        print "ok!\n";
		}
	}
	else {
		print "exists.\n";
	}
	$past .= "$dir/";
}

print "setting ownership ($perm) to $past... ";
system("chmod", $perm, $past);
if ($?) {
    print "failed!\n";
    exit 3;
}
else {
    print "ok!\n";
}

exit 0;

[Sandweb-commit] CVS: sandweb/tools insttemplates.pl,NONE,1.1

From: Nick J. <nje...@us...> - 2002-03-15 06:16:44

Update of /cvsroot/sandweb/sandweb/tools
In directory usw-pr-cvs1:/tmp/cvs-serv6181/tools

Added Files:
	insttemplates.pl 
Log Message:
* install templates script


--- NEW FILE ---
#!/usr/bin/perl -w
# 
# instcgi.pl : script for installing sandweb.cgi
#

use strict;

my $prefix = $ARGV[0] || '/usr/local';

my $tmpldir = "$prefix/lib/sandweb/templates";

print("-------------------------------\n");
print("Installing SandWeb templates...\n\n");
print("Specify the location you wish to install the SandWeb templates.\n");
print("Enter the full path [default: $tmpldir] : ");

my $tmp = '';
chomp($tmp = <STDIN>);
if ($tmp) {
	$tmpldir = $tmp;
}

if (system('tools/mkdirto.pl', '755', "$tmpldir")) {
	exit(1);
}

print("Installing SandWeb templates into $tmpldir... ");

opendir(DIR, "templates/");
my @files = readdir(DIR);
closedir(DIR);

foreach my $filename (@files) {
	next if (($filename !~ /\.html$/) && ($filename !~ /\.js$/));
	if (system('cp', "templates/$filename", "$tmpldir/")) {
		print("working directory: ", `pwd`);
		exit(1);
	}
}

print("done.\n");
exit(0);

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.269,1.270

From: Rob H. <for...@us...> - 2002-03-14 23:04:01

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv26382

Modified Files:
	sandweb.cgi 
Log Message:
fix for "incorrect redirect from toolbar popup in view_file menu" bug,
I set edit_file_commit to do a server-side redirect instead of simply
calling the view_file menu ( so the URL gets changed )


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.269
retrieving revision 1.270
diff -U2 -r1.269 -r1.270
--- sandweb.cgi	13 Mar 2002 05:30:33 -0000	1.269
+++ sandweb.cgi	14 Mar 2002 23:03:58 -0000	1.270
@@ -1456,11 +1456,5 @@
 	);
 
-	view_file_menu(
-		ck_auth => $ck_auth,
-		filename => $filename,
-		module_name => $module_name,
-		repo_name => $repo_name,
-		location => CGI::param('location'),
-	);
+	print CGI::redirect( "$progname?action=view_file&filename=$filename&location=$location&repo_name=$repo_name&module_name=$module_name" );
 }

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.268,1.269

From: Rob H. <for...@us...> - 2002-03-13 05:30:38

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv8310/bin

Modified Files:
	sandweb.cgi 
Log Message:
renamed browse_module_* to popup_*



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.268
retrieving revision 1.269
diff -U2 -r1.268 -r1.269
--- sandweb.cgi	13 Mar 2002 01:44:33 -0000	1.268
+++ sandweb.cgi	13 Mar 2002 05:30:33 -0000	1.269
@@ -664,6 +664,6 @@
 	# use the browse object to show user's sandbox
 
-	my $browse_module_header = $ui->get_menu( 
-		MENU => 'browse_module_header',
+	my $popup_header = $ui->get_menu( 
+		MENU => 'popup_header',
 	);
 
@@ -731,9 +731,9 @@
 	);
 
-	my $browse_module_footer = $ui->get_menu( 
-		MENU => 'browse_module_footer',
+	my $popup_footer = $ui->get_menu( 
+		MENU => 'popup_footer',
 	);
 
-	my $content = "$browse_module_header $toolbar_menu $current_location_menu $browser_menu $browse_module_footer";
+	my $content = "$popup_header $toolbar_menu $current_location_menu $browser_menu $popup_footer";
 
 	print CGI::header( -cookie => $ck_auth );
@@ -1055,6 +1055,6 @@
 	$repo_type = $repository->get_repo_type();
 
-	my $browse_module_header = $ui->get_menu( 
-		MENU => 'browse_module_header',
+	my $popup_header = $ui->get_menu( 
+		MENU => 'popup_header',
 	);
 
@@ -1111,9 +1111,9 @@
 	);
 
-	my $browse_module_footer = $ui->get_menu( 
-		MENU => 'browse_module_footer',
+	my $popup_footer = $ui->get_menu( 
+		MENU => 'popup_footer',
 	);
 
-	my $content = "$browse_module_header $toolbar_menu $current_location_menu $menu $browse_module_footer";
+	my $content = "$popup_header $toolbar_menu $current_location_menu $menu $popup_footer";
 
 	print CGI::header( -cookie => $ck_auth );

[Sandweb-commit] CVS: sandweb/templates popup_footer.html,NONE,1.1 popup_header.html,NONE,1.1 browse_module_footer.html,1.1,NONE browse_module_header.html,1.7,NONE

From: Rob H. <for...@us...> - 2002-03-13 05:30:38

Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv8310/templates

Added Files:
	popup_footer.html popup_header.html 
Removed Files:
	browse_module_footer.html browse_module_header.html 
Log Message:
renamed browse_module_* to popup_*



--- NEW FILE ---
</form>

--- NEW FILE ---
<script language="JavaScript">
	window.name = "mainWindow";
	function myOpenWindow() {
		window.open('about:blank','popUp','width=640,height=400,scrollbars=yes,resizable=yes');
	}
</script>
<form method="get" submit="<TMPL_VAR NAME=PROGNAME>" name="browse" onsubmit="myOpenWindow()" target="popUp">



--- browse_module_footer.html DELETED ---

--- browse_module_header.html DELETED ---

[Sandweb-commit] CVS: sandweb/templates login.html,1.8,1.9

From: Rob H. <for...@us...> - 2002-03-13 04:08:31

Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv24617/templates

Modified Files:
	login.html 
Log Message:
* improved look a bit ( i hope ;) 



Index: login.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/login.html,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- login.html	12 Mar 2002 03:45:54 -0000	1.8
+++ login.html	13 Mar 2002 04:08:28 -0000	1.9
@@ -9,9 +9,9 @@
 <input type="hidden" name="action" value="login" />
 <tr>
- <td width="20%" align="right">
+ <td width="30%" align="right">
    Username :  
  </td>
- <td width="80%" align="left">
-  <input type="text" name="username"  size="20" />
+ <td width="70%" align="left">
+  <input type="text" name="username"  size="10" />
  </td>
 </tr>
@@ -23,5 +23,5 @@
 <!-- user type password here -->
  <td width="80%" align="left">
-   <input type="password" name="password1" size="20" 
+   <input type="password" name="password1" size="10" 
     onKeyUp="updateHash(password, password1, salt)"
    />

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.267,1.268

From: Rob H. <for...@us...> - 2002-03-13 01:44:37

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv18027/bin

Modified Files:
	sandweb.cgi 
Log Message:
* added the toolbar to the view_file menu.

  HUGE usability improvement IMO.


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.267
retrieving revision 1.268
diff -U2 -r1.267 -r1.268
--- sandweb.cgi	12 Mar 2002 05:17:57 -0000	1.267
+++ sandweb.cgi	13 Mar 2002 01:44:33 -0000	1.268
@@ -230,8 +230,8 @@
 					ck_auth => $ck_auth,
 					vcs_command => CGI::param('vcs_command'),
-					location => CGI::param('location'),
 					module_name => $module_name,
 					repo_name => $repo_name,
 					filename => \@filename,
+					location => CGI::param('location'),
 				);
 			}
@@ -1000,4 +1000,6 @@
 	my $module_name = $args{'module_name'};
 	my $filename = $args{'filename'};
+	my $repo_root = $args{'repo_root'};
+	my $repo_type = $args{'repo_type'};
 
 	$log->debug("viewing file : $filename");
@@ -1031,4 +1033,11 @@
 	}
 
+	$log->debug("creating Repository object");
+	my $repository = SandWeb::Repository->new( 
+		'root' => "$repo_root",
+		'repo_type' => $repo_type,
+	);
+
+	my @vcs_commands = $repository->get_vcs_commands();
 	$log->debug("creating Browse object");
 	my $browse = SandWeb::Browse->new( 
@@ -1037,8 +1046,37 @@
 		'repo_name' => $repo_name,
 		'template_dir' => $template_dir,
+		'vcs_commands' => \@vcs_commands,
 		'users_dir' => $users_dir,
 		'log_obj' => $log,
 	);
 
+	$username = $auth->get_username();
+	my @file_commands = $file->get_file_commands();
+	$repo_type = $repository->get_repo_type();
+
+	my $browse_module_header = $ui->get_menu( 
+		MENU => 'browse_module_header',
+	);
+
+	my %toolbar = $browse->get_tool_bar(
+		'location' => $location,
+		'progname' => $progname,
+	);
+
+	my @loop_data = ();
+	my $count = 0;
+	while ( $toolbar{'VCS_CMD_LOOP'}->[$count] ) {
+		push (@loop_data, $toolbar{'VCS_CMD_LOOP'}->[$count]);
+		$count++;
+	}
+
+	my $toolbar_menu = $ui->get_menu( 
+		MENU => 'tool_bar',
+		VCS_CMD_LOOP => \@loop_data,
+		MODULE_NAME => $module_name,
+		REPO_NAME => $repo_name,
+		LOCATION => $location,
+	);
+
 	my %current_location = $browse->get_current_location(
 		'location' => $location,
@@ -1073,5 +1111,9 @@
 	);
 
-	my $content = "$current_location_menu $menu";
+	my $browse_module_footer = $ui->get_menu( 
+		MENU => 'browse_module_footer',
+	);
+
+	my $content = "$browse_module_header $toolbar_menu $current_location_menu $menu $browse_module_footer";
 
 	print CGI::header( -cookie => $ck_auth );

[Sandweb-commit] CVS: sandweb/templates view_file.html,1.44,1.45

From: Rob H. <for...@us...> - 2002-03-13 01:44:37

Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv18027/templates

Modified Files:
	view_file.html 
Log Message:
* added the toolbar to the view_file menu.

  HUGE usability improvement IMO.


Index: view_file.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/view_file.html,v
retrieving revision 1.44
retrieving revision 1.45
diff -U2 -r1.44 -r1.45
--- view_file.html	8 Mar 2002 07:48:54 -0000	1.44
+++ view_file.html	13 Mar 2002 01:44:33 -0000	1.45
@@ -1,7 +1,4 @@
-<form submit="<TMPL_VAR NAME=PROGNAME>" method="POST">
 <input type="hidden" name="filename" value="<TMPL_VAR NAME=FILENAME>" />
 <input type="hidden" name="location" value="<TMPL_VAR NAME=LOCATION>" />
-<input type="hidden" name="repo_name" value="<TMPL_VAR NAME=REPO_NAME>" />
-<input type="hidden" name="module_name" value="<TMPL_VAR NAME=MODULE_NAME>" />
  <tr>
   <td width="100%" align="left">
@@ -46,3 +43,2 @@
   </td>
  </tr>
-</form>

[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.74,1.75

From: Rob H. <for...@us...> - 2002-03-13 00:56:31

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv3464/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
* ok, fixed the double slash bug for real this time.

  please note that this was just a cosmetic thing, no harm
  could come of it, but it looked really dumb.


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.74
retrieving revision 1.75
diff -U2 -r1.74 -r1.75
--- Browse.pm	13 Mar 2002 00:50:37 -0000	1.74
+++ Browse.pm	13 Mar 2002 00:56:28 -0000	1.75
@@ -237,5 +237,5 @@
 		my %row_data;
 		$row_data{LOCATION_LINK} = "/$module_name";
-		$row_data{LOCATION_FULL} = "/";
+		$row_data{LOCATION_FULL} = '';
 		$row_data{PROGNAME} = "$progname";
 		$row_data{MODULE_NAME} = "$module_name";

[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.73,1.74

From: Rob H. <for...@us...> - 2002-03-13 00:50:40

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv2020/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
oops, that didn't fix it. rolling back.


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -U2 -r1.73 -r1.74
--- Browse.pm	13 Mar 2002 00:41:11 -0000	1.73
+++ Browse.pm	13 Mar 2002 00:50:37 -0000	1.74
@@ -248,5 +248,5 @@
 		my %row_data;
 		if ( $link ) {
-			$row_data{LOCATION_LINK} = "$link";
+			$row_data{LOCATION_LINK} = "/$link";
 		}

[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.72,1.73

From: Rob H. <for...@us...> - 2002-03-13 00:41:14

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv32265/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
* took at the thing that was adding the stupid looking extra / 


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -U2 -r1.72 -r1.73
--- Browse.pm	10 Mar 2002 23:21:52 -0000	1.72
+++ Browse.pm	13 Mar 2002 00:41:11 -0000	1.73
@@ -248,5 +248,5 @@
 		my %row_data;
 		if ( $link ) {
-			$row_data{LOCATION_LINK} = "/$link";
+			$row_data{LOCATION_LINK} = "$link";
 		}

[Sandweb-commit] CVS: sandweb/templates framework.html,1.19,1.20 repository.html,1.12,1.13

From: Nick J. <nje...@us...> - 2002-03-12 05:18:31

Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv9410

Modified Files:
	framework.html repository.html 
Log Message:
* javascript looks better starting from beginning of line (throws first line of JS off)


Index: framework.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/framework.html,v
retrieving revision 1.19
retrieving revision 1.20
diff -U2 -r1.19 -r1.20
--- framework.html	12 Mar 2002 03:45:54 -0000	1.19
+++ framework.html	12 Mar 2002 05:18:29 -0000	1.20
@@ -8,5 +8,5 @@
   </head>
   <script language="JavaScript">
-  	<TMPL_VAR NAME=JAVASCRIPT>
+<TMPL_VAR NAME=JAVASCRIPT>
   </script>
   <style>

Index: repository.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/repository.html,v
retrieving revision 1.12
retrieving revision 1.13
diff -U2 -r1.12 -r1.13
--- repository.html	2 Mar 2002 08:20:03 -0000	1.12
+++ repository.html	12 Mar 2002 05:18:29 -0000	1.13
@@ -1,70 +1,2 @@
-<script type="text/javascript" language="JavaScript">
-<!--
-function submitForm(clicked) {
-	document.repository.repository_selected.value=clicked;
-	document.repository.submit();
-}
-
-function doSubmit(clicked) {
-    var submitOk = false;
-    if (checkForm(clicked)) {
-        submitOk = true
-    }
-
-//    else if (clicked == 'Cancel') {
-//        if (formChanged()) {
-//            if (confirm("This form has been modified. Continue anyway?")) {
-//                submitOk = true;
-//            }
-//        }
-//        else {
-//            submitOk = true;
-//		}
-//	}
-
-    if (submitOk) {
-        submitForm(clicked);
-    }
-}
-
-function checkForm(clicked) {
-	if (clicked == 'Delete') {
-        if (confirm("Deleting this repository will also delete all modules checked out from this repository. Are you sure you wish to do this?")) {
-			return true;
-        }
-    }
-	else if (clicked == 'Commit') {
-		if (isEmpty(document.repository.repo_name.value)) {
-			alert("Please enter a name for the repository.");
-			return false;
-		}
-		else if (isEmpty(document.repository.repo_server.value)) {
-			alert("Please enter a servername for the repository.");
-			return false;
-		}
-		else if (isEmpty(document.repository.repo_root.value)) {
-			alert("Please enter the root path to the repository.");
-			return false;
-		}
-		return true;
-	}
-	else {
-		return true;
-    }
-	return false;
-}
-
-function isEmpty(input) {
-    if (input == "" || input == null || input == 0) {
-        return true;
-    }
-    else {
-        return false;
-    }
-}
-
-// -->
-</script>
-
 <form submit="<TMPL_VAR NAME=PROGNAME>" name="repository">
 <input type="hidden" name="action" value="repository">

[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.266,1.267

From: Nick J. <nje...@us...> - 2002-03-12 05:18:00

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv9317

Modified Files:
	sandweb.cgi 
Log Message:
* javascript inclusion for sandbox and repository menus


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.266
retrieving revision 1.267
diff -U2 -r1.266 -r1.267
--- sandweb.cgi	12 Mar 2002 04:33:44 -0000	1.266
+++ sandweb.cgi	12 Mar 2002 05:17:57 -0000	1.267
@@ -548,4 +548,17 @@
 	);
 
+	# open popup window
+	my $js = $ui->get_javascript(
+		SCRIPT => "openwindow",
+	);
+	# javascript submit functions (doSubmit)
+	$js .= $ui->get_javascript(
+		SCRIPT => "submitform",
+	);
+	# import javascript for this menu
+	$js .= $ui->get_javascript(
+		SCRIPT => "sandbox",
+	);
+
 	my $username = $auth->get_username();
 	print CGI::header( -cookie => $ck_auth );
@@ -557,4 +570,5 @@
 		CONTENT => $content,
 		MESSAGE => $message,
+		JAVASCRIPT => $js,
 	);
 }
@@ -931,4 +945,11 @@
 	);
 
+	# javascript for submitting forms
+	my $js = $ui->get_javascript( SCRIPT => "submitform" );
+	# misc javascript functions
+	$js .= $ui->get_javascript( SCRIPT => "functions" );
+	# javascript for repository menu specifics
+	$js .= $ui->get_javascript( SCRIPT => "repository" );
+
 	print CGI::header( -cookie => $ck_auth );
 	$ui->print_screen(
@@ -939,4 +960,5 @@
 		CONTENT => $content,
 		MESSAGE => $message,
+		JAVASCRIPT => $js,
 	);
 	exit 0;

[Sandweb-commit] CVS: sandweb/templates sandbox.html,1.16,1.17

From: Nick J. <nje...@us...> - 2002-03-12 05:13:07

Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv8555

Modified Files:
	sandbox.html 
Log Message:
* removed javascript from sandbox.html template


Index: sandbox.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/sandbox.html,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- sandbox.html	4 Mar 2002 09:15:40 -0000	1.16
+++ sandbox.html	12 Mar 2002 05:13:04 -0000	1.17
@@ -1,10 +1,2 @@
-<script language="JavaScript">
-<!--
-	window.name = "mainWindow";
-	function myOpenWindow() {
-		window.open('about:blank','popUp','width=400,height=300,scrollbars=yes,resizable=yes');
-	}
--->
-</script>
  <tr>
   <td width="100%" align="left" colspan="2">

[Sandweb-commit] CVS: sandweb/templates sandbox.js,NONE,1.1

From: Nick J. <nje...@us...> - 2002-03-12 05:12:25

Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv8407

Added Files:
	sandbox.js 
Log Message:
* sandbox.js - javascript file for sandbox menu specific stuff


--- NEW FILE ---
function checkForm(form) {
	return true;
}

3 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 25 26 27 28 29 .. 53 > >> (Page 27 of 53)

2001	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (28)	Nov (58)	Dec (85)
2002	Jan (125)	Feb (222)	Mar (274)	Apr (51)	May (22)	Jun (50)	Jul (15)	Aug (33)	Sep (11)	Oct (29)	Nov (17)	Dec (1)
2003	Jan (100)	Feb (21)	Mar (7)	Apr (45)	May	Jun (43)	Jul (27)	Aug (24)	Sep	Oct	Nov	Dec
2004	Jan (1)	Feb	Mar (13)	Apr	May (1)	Jun	Jul	Aug (7)	Sep	Oct	Nov	Dec (4)
2005	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (1)