Menu
▾
▴
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) |
|
From: Nick J. <nje...@us...> - 2002-03-08 07:02:31
|
Update of /cvsroot/sandweb/sandweb/t In directory usw-pr-cvs1:/tmp/cvs-serv26947/t Log Message: Directory /cvsroot/sandweb/sandweb/t added to the repository |
|
From: Nick J. <nje...@us...> - 2002-03-08 07:02:08
|
Update of /cvsroot/sandweb/sandweb
In directory usw-pr-cvs1:/tmp/cvs-serv26794
Added Files:
Makefile.PL
Log Message:
* added initial Makefile.PL to begin build process work.
--- NEW FILE ---
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'SandWeb',
'VERSION_FROM' => 'lib/SandWeb.pm',
'PREFIX' => '/usr/local',
'PREREQ_PM' => {
'XML::Simple' => '1.05',
'HTML::Template' => '2.2',
},
);
|
|
From: Nick J. <nje...@us...> - 2002-03-08 07:01:50
|
Update of /cvsroot/sandweb/sandweb In directory usw-pr-cvs1:/tmp/cvs-serv26710 Added Files: MANIFEST Log Message: * added MANIFEST for build process. --- NEW FILE --- Makefile.PL bin/sandweb.cgi bin/sandweb-admin lib/SandWeb.pm lib/SandWeb/Config.pm lib/SandWeb/Auth.pm lib/SandWeb/Auth/FlatFile.pm lib/SandWeb/Browse.pm lib/SandWeb/Diff.pm lib/SandWeb/ErrHndlr.pm lib/SandWeb/File.pm lib/SandWeb/Log.pm lib/SandWeb/UI.pm lib/SandWeb/Repository.pm lib/SandWeb/Repository/CVS.pm templates/file.html templates/repository.html templates/browse_module.html 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 templates/commit.html templates/menu_bar.html templates/tool_bar.html templates/create_file.html templates/output.html templates/upload.html templates/create_folder.html templates/popup.html templates/vcs_output.html templates/current_location.html templates/preferences.html templates/view_file.html templates/edit_file.html templates/rename.html etc/sandweb.cfg etc/prefs.cfg doc/dependencies.list doc/API/CVS.txt doc/API/File.txt doc/API/Repository.txt |
|
From: Nick J. <nje...@us...> - 2002-03-08 07:00:58
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv26540
Modified Files:
Auth.pm
Log Message:
Index: Auth.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -U2 -r1.17 -r1.18
--- Auth.pm 18 Feb 2002 11:16:16 -0000 1.17
+++ Auth.pm 8 Mar 2002 07:00:54 -0000 1.18
@@ -36,5 +36,5 @@
'log_obj' => $log,
);
-
+
my $verified = $flatfile->verify_password($username, $password, $self->_get_data_dir());
|
|
From: Nick J. <nje...@us...> - 2002-03-08 07:00:47
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv26451
Modified Files:
Log.pm
Log Message:
* took out invalid default values.
Index: Log.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Log.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- Log.pm 5 Feb 2002 07:28:22 -0000 1.8
+++ Log.pm 8 Mar 2002 07:00:43 -0000 1.9
@@ -73,8 +73,8 @@
sub _get_log_toggle {
- return $_[0]->{'toggle'}->{'log'} || 1;
+ return $_[0]->{'toggle'}->{'log'};
}
sub get_debug_toggle {
- return $_[0]->{'toggle'}->{'debug'} || 0;
+ return $_[0]->{'toggle'}->{'debug'};
}
sub _get_log_dir {
|
|
From: Nick J. <nje...@us...> - 2002-03-08 06:59:10
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv26104/lib/SandWeb
Modified Files:
Config.pm
Log Message:
* added return values to loading config files.
Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -U2 -r1.24 -r1.25
--- Config.pm 28 Feb 2002 07:46:20 -0000 1.24
+++ Config.pm 8 Mar 2002 06:59:05 -0000 1.25
@@ -13,7 +13,22 @@
my %args = @_;
+ my $return = {
+ 'data' => {},
+ 'errlev' => 1,
+ };
# initialize config file
my $cfg_dir = $args{'config_dir'};
- my $config_file = "$cfg_dir/$args{'config_file'}";
+ my $config_file;
+ if ($cfg_dir) {
+ if (-f "$cfg_dir/$args{'config_file'}") {
+ $config_file = "$cfg_dir/$args{'config_file'}";
+ } else {
+ $return->{'errlev'} = 0;
+ return $return;
+ }
+ } else {
+ $config_file = $args{'config_file'};
+ }
+
my $cfg = &_read_config("$config_file");
@@ -21,5 +36,6 @@
$self->manage_data_structure();
- return $self;
+ $return->{'data'} = $self;
+ return $return;
}
|
|
From: Nick J. <nje...@us...> - 2002-03-08 06:58:33
|
Update of /cvsroot/sandweb/sandweb/lib
In directory usw-pr-cvs1:/tmp/cvs-serv25948/lib
Modified Files:
SandWeb.pm
Log Message:
* added return values to loading config files.
* sandweb will now error out if a config file does not exist.
* added $VERSION variable for build process.
* took out needless internal method
Index: SandWeb.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -U2 -r1.15 -r1.16
--- SandWeb.pm 18 Jan 2002 19:25:08 -0000 1.15
+++ SandWeb.pm 8 Mar 2002 06:58:30 -0000 1.16
@@ -8,4 +8,6 @@
use SandWeb::Auth;
+$VERSION = 'ALPHA';
+
# initiates the config class, and creates the other objects with its data
sub start_up {
@@ -13,5 +15,12 @@
# read in config file
- my $config = &_load_conf_object(@_); # pass args directly to conf_object
+ my $config = '';
+
+ $return = SandWeb::Config::->new(@_);
+ if ($return->{'errlev'}) {
+ $config = $return->{'data'};
+ } else {
+ return $return;
+ }
my $log = &_load_log_object('config' => $config);
@@ -19,5 +28,10 @@
my $auth = &_load_auth_object('config' => $config, 'log' => $log);
# create new conf object with log functionality
- $config = &_load_conf_object(@_, 'log_obj' => $log);
+ $return = SandWeb::Config::->new(@_, 'log_obj' => $log);
+ if ($return->{'errlev'}) {
+ $config = $return->{'data'};
+ } else {
+ return $return;
+ }
my $self = bless {
@@ -27,11 +41,7 @@
'auth' => $auth,
}, $class;
- return $self;
-}
-# read in config file, and return object reference to it's data.
-sub _load_conf_object {
- my $config = SandWeb::Config::->new(@_);
- return $config;
+ $return->{'data'} = $self;
+ return $return;
}
|
|
From: Nick J. <nje...@us...> - 2002-03-08 06:57:33
|
Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv25774/bin
Modified Files:
sandweb.cgi
Log Message:
* added return values to loading config files.
* sandweb will now error out if a config file does not exist.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.257
retrieving revision 1.258
diff -U2 -r1.257 -r1.258
--- sandweb.cgi 7 Mar 2002 09:15:53 -0000 1.257
+++ sandweb.cgi 8 Mar 2002 06:57:28 -0000 1.258
@@ -36,11 +36,19 @@
);
+if (!$return->{'errlev'}) {
+ # error loading config file
+ print header;
+ print("unable to open config file: $config_file in dir '$config_dir'");
+ print("return data: <pre>" . Dumper($return) . "</pre>");
+ exit(0);
+}
+
# assign local references to the "global" objects
# these should generally always be loaded, no matter
# what action is going on.
-my $config = $return->{'config'};
-my $log = $return->{'log'};
-my $ui = $return->{'ui'};
-my $auth = $return->{'auth'};
+my $config = $return->{'data'}->{'config'};
+my $log = $return->{'data'}->{'log'};
+my $ui = $return->{'data'}->{'ui'};
+my $auth = $return->{'data'}->{'auth'};
undef $return; # no need for this anymore
@@ -2269,5 +2277,5 @@
# user doesn't have a preferences file!
# load user preferences from default config in config dir
- $user = SandWeb::Config::->new(
+ my $return = SandWeb::Config::->new(
'config_dir' => $config_dir,
'config_file' => "$user_cfg",
@@ -2275,4 +2283,5 @@
);
+ $user = $return->{'data'};
$user->{'repo'} = {};
@@ -2285,9 +2294,15 @@
# load users preferences from users dir
- $user = SandWeb::Config::->new(
+ $return = SandWeb::Config::->new(
'config_dir' => $config->{'paths'}->{'users_dir'} . "/$username",
'config_file' => ".$user_cfg",
'log_obj' => $log,
);
+ if (!$return->{'errlev'}) {
+ # unable to load config
+ set_message("unable to load user config file. $!");
+ login_menu();
+ }
+ $user = $return->{'data'};
|
|
From: Rob H. <for...@us...> - 2002-03-07 09:16:18
|
Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv3626/bin
Modified Files:
sandweb.cgi
Log Message:
ok, some of the basic framework is there for supporting alpha/reverse alpha
sorting, need to keep state of the last one though. I'm going to leave it here
for tonite.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.256
retrieving revision 1.257
diff -U2 -r1.256 -r1.257
--- sandweb.cgi 7 Mar 2002 08:37:14 -0000 1.256
+++ sandweb.cgi 7 Mar 2002 09:15:53 -0000 1.257
@@ -183,4 +183,5 @@
module_name => $module_name,
repo_name => $repo_name,
+ sort => CGI::param('sort'),
);
}
@@ -553,4 +554,5 @@
my $users_dir = $config->{'paths'}->{'users_dir'} || '';
my $repo_name = $args{'repo_name'};
+ my $sort = $args{'sort'};
my $repo_server = $user->get_repo_server(repo => $repo_name);
@@ -590,4 +592,5 @@
'template_dir' => $template_dir,
'vcs_commands' => \@vcs_commands,
+ 'sort' => $sort,
'users_dir' => $users_dir,
'log_obj' => $log,
@@ -654,4 +657,5 @@
'repo_type' => $repo_type,
'repo_name' => $repo_name,
+ 'sort' => $sort,
);
@@ -663,7 +667,13 @@
}
+ $sort = 'alpha';
+
my $browser_menu = $ui->get_menu(
MENU => 'browse_module',
ENTRY_LOOP => \@loop_data,
+ MODULE_NAME => $module_name,
+ REPO_NAME => $repo_name,
+ LOCATION => $location,
+ SORT => $sort,
);
|
|
From: Rob H. <for...@us...> - 2002-03-07 09:16:18
|
Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv3626/templates
Modified Files:
browse_module.html
Log Message:
ok, some of the basic framework is there for supporting alpha/reverse alpha
sorting, need to keep state of the last one though. I'm going to leave it here
for tonite.
Index: browse_module.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/browse_module.html,v
retrieving revision 1.23
retrieving revision 1.24
diff -U2 -r1.23 -r1.24
--- browse_module.html 28 Feb 2002 04:02:04 -0000 1.23
+++ browse_module.html 7 Mar 2002 09:15:54 -0000 1.24
@@ -30,5 +30,5 @@
<td width="60%" align="left" bgcolor="#88FF88">
<font size="2">
- <b>File</b>
+ <b><a href="<TMPL_VAR NAME=PROGNAME>?action=browse_module&location=<TMPL_VAR NAME=LOCATION>&module_name=<TMPL_VAR NAME=MODULE_NAME>&repo_name=<TMPL_VAR NAME=REPO_NAME>&sort=<TMPL_VAR NAME=SORT>">File</a></b>
</font>
</td>
|
|
From: Rob H. <for...@us...> - 2002-03-07 09:16:15
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv3626/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
ok, some of the basic framework is there for supporting alpha/reverse alpha
sorting, need to keep state of the last one though. I'm going to leave it here
for tonite.
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.69
retrieving revision 1.70
diff -U2 -r1.69 -r1.70
--- Browse.pm 7 Mar 2002 08:56:35 -0000 1.69
+++ Browse.pm 7 Mar 2002 09:15:53 -0000 1.70
@@ -43,4 +43,5 @@
my $repo_type = $args{'repo_type'};
my $repo_name = $args{'repo_name'};
+ my $sort = $args{'sort'};
my $username = $self->_get_username();
@@ -73,5 +74,9 @@
closedir SANDBOX;
- @return = sort { uc($a) cmp uc($b) } @return;
+ if ( $sort eq 'reverse-alpha' ) {
+ @return = sort { uc($b) cmp uc($a) } @return;
+ } else {
+ @return = sort { uc($a) cmp uc($b) } @return;
+ }
my $counter=0;
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:56:38
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv30594/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
Browse class now sorts dir entry loop_data ( aka files ) case-insensitively,
alphabetically.
this will eventually become a means to sort browse_module output by
File ( alpha/reverse-alpha ), Size, and Age.
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -U2 -r1.68 -r1.69
--- Browse.pm 1 Mar 2002 00:59:23 -0000 1.68
+++ Browse.pm 7 Mar 2002 08:56:35 -0000 1.69
@@ -73,4 +73,6 @@
closedir SANDBOX;
+ @return = sort { uc($a) cmp uc($b) } @return;
+
my $counter=0;
unless ($#return< 0) {
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:38:05
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv20836/lib/SandWeb
Modified Files:
File.pm
Log Message:
standard header to give when the content is unknown is :
"binary/octet-stream"
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -U2 -r1.51 -r1.52
--- File.pm 7 Mar 2002 08:16:18 -0000 1.51
+++ File.pm 7 Mar 2002 08:17:14 -0000 1.52
@@ -168,5 +168,5 @@
unless ($mime_type) {
- $mime_type = "binary/unknown";
+ $mime_type = "binary/octet-stream";
}
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:38:04
|
Update of /cvsroot/sandweb/sandweb/templates In directory usw-pr-cvs1:/tmp/cvs-serv22184/templates Modified Files: tool_bar.html Added Files: upload.html Removed Files: upload_file.html Log Message: renaming "upload_file" to "upload" Index: tool_bar.html =================================================================== RCS file: /cvsroot/sandweb/sandweb/templates/tool_bar.html,v retrieving revision 1.7 retrieving revision 1.8 diff -U2 -r1.7 -r1.8 --- tool_bar.html 7 Mar 2002 08:12:09 -0000 1.7 +++ tool_bar.html 7 Mar 2002 08:21:36 -0000 1.8 @@ -12,5 +12,5 @@ <input type="submit" name="action" value="delete" accesskey="d" /> <input type="submit" name="action" value="rename" accesskey="r" /> - <input type="submit" name="action" value="upload_file" accesskey="u" /> + <input type="submit" name="action" value="upload" accesskey="u" /> </td> </tr> --- upload_file.html DELETED --- |
|
From: Rob H. <for...@us...> - 2002-03-07 08:38:03
|
Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv22184/bin
Modified Files:
sandweb.cgi
Log Message:
renaming "upload_file" to "upload"
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.254
retrieving revision 1.255
diff -U2 -r1.254 -r1.255
--- sandweb.cgi 7 Mar 2002 08:19:28 -0000 1.254
+++ sandweb.cgi 7 Mar 2002 08:21:36 -0000 1.255
@@ -304,8 +304,8 @@
}
}
- elsif ( $action eq 'upload_file' ) {
+ elsif ( $action eq 'upload' ) {
# called file uploader
if ($submit) {
- upload_file_commit(
+ upload_commit(
ck_auth => $ck_auth,
filename => CGI::param('filename'),
@@ -315,5 +315,5 @@
)
} else {
- upload_file_menu(
+ upload_menu(
ck_auth => $ck_auth,
module_name => $module_name,
@@ -1258,5 +1258,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub upload_file_menu {
+sub upload_menu {
my %args = @_;
@@ -1267,5 +1267,5 @@
my $content = $ui->get_menu(
- MENU => 'upload_file',
+ MENU => 'upload',
LOCATION => $location,
PROGNAME => $progname,
@@ -1604,5 +1604,5 @@
###############################################################################
-# upload_file_commit is called by upload_file_menu to save uploaded data
+# upload_commit is called by upload_menu to save uploaded data
#
# A File object is created and used.
@@ -1618,5 +1618,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub upload_file_commit {
+sub upload_commit {
my %args = @_;
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:38:02
|
Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv21500/bin
Modified Files:
sandweb.cgi
Log Message:
debugging for individual files is just too much damn debug output, removed
the debug statements
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.253
retrieving revision 1.254
diff -U2 -r1.253 -r1.254
--- sandweb.cgi 7 Mar 2002 08:12:09 -0000 1.253
+++ sandweb.cgi 7 Mar 2002 08:19:28 -0000 1.254
@@ -640,5 +640,4 @@
$count = 0;
while ( $current_location{'LOCATION_LOOP'}->[$count] ) {
- $log->debug('dump', $current_location{'LOCATION_LOOP'}->[$count]);
push (@loop_data, $current_location{'LOCATION_LOOP'}->[$count]);
$count++;
@@ -660,5 +659,4 @@
$count = 0;
while ( $browser{'ENTRY_LOOP'}->[$count] ) {
- $log->debug('dump', $browser{'ENTRY_LOOP'}->[$count]);
push (@loop_data, $browser{'ENTRY_LOOP'}->[$count]);
$count++;
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:37:17
|
Update of /cvsroot/sandweb/sandweb/bin In directory usw-pr-cvs1:/tmp/cvs-serv26839/bin Modified Files: sandweb.cgi Log Message: ah, the mime.types stuff wasn't brought up-to-date when nick fixed that space bug in _do_file_read(). fixed. Index: sandweb.cgi =================================================================== RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v retrieving revision 1.255 retrieving revision 1.256 diff -U2 -r1.255 -r1.256 --- sandweb.cgi 7 Mar 2002 08:21:36 -0000 1.255 +++ sandweb.cgi 7 Mar 2002 08:37:14 -0000 1.256 @@ -1694,4 +1694,5 @@ my $file = SandWeb::File->new( 'log_obj' => $log, + 'config_obj' => $config, 'filename' => $filename, 'location' => "$users_dir/$username/$repo_name/$module_name$location", |
|
From: Rob H. <for...@us...> - 2002-03-07 08:37:17
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv26839/lib/SandWeb
Modified Files:
File.pm
Log Message:
ah, the mime.types stuff wasn't brought up-to-date when nick
fixed that space bug in _do_file_read(). fixed.
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -U2 -r1.52 -r1.53
--- File.pm 7 Mar 2002 08:17:14 -0000 1.52
+++ File.pm 7 Mar 2002 08:37:14 -0000 1.53
@@ -369,5 +369,5 @@
);
- my @mimes = split(/ /, $mime_output);
+ my @mimes = split('\n',$mime_output);
foreach my $entry (@mimes) {
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:16:23
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv20449/lib/SandWeb
Modified Files:
File.pm
Log Message:
somehow I made the downloader default to "text/html" as the content
type, which is bad.
content type detection seems to be broken, but worst case it should
default to unknown.
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -U2 -r1.50 -r1.51
--- File.pm 7 Mar 2002 08:12:09 -0000 1.50
+++ File.pm 7 Mar 2002 08:16:18 -0000 1.51
@@ -167,10 +167,9 @@
$log->debug("MIME type looks like : $mime_type");
-
unless ($mime_type) {
$mime_type = "binary/unknown";
}
- print "content-type: text/html\n\n";
+ print "content-type: $mime_type\n\n";
if (open FILE,"< $location/$filename") {
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:12:11
|
Update of /cvsroot/sandweb/sandweb/templates In directory usw-pr-cvs1:/tmp/cvs-serv19348/templates Modified Files: tool_bar.html Log Message: renaming "delete_file" to "delete" Index: tool_bar.html =================================================================== RCS file: /cvsroot/sandweb/sandweb/templates/tool_bar.html,v retrieving revision 1.6 retrieving revision 1.7 diff -U2 -r1.6 -r1.7 --- tool_bar.html 7 Mar 2002 08:07:39 -0000 1.6 +++ tool_bar.html 7 Mar 2002 08:12:09 -0000 1.7 @@ -10,5 +10,5 @@ <input type="submit" name="action" value="create_file" accesskey="i" /> <input type="submit" name="action" value="create_folder" accesskey="o" /> - <input type="submit" name="action" value="delete_file" accesskey="d" /> + <input type="submit" name="action" value="delete" accesskey="d" /> <input type="submit" name="action" value="rename" accesskey="r" /> <input type="submit" name="action" value="upload_file" accesskey="u" /> |
|
From: Rob H. <for...@us...> - 2002-03-07 08:12:11
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv19348/lib/SandWeb
Modified Files:
File.pm
Log Message:
renaming "delete_file" to "delete"
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -U2 -r1.49 -r1.50
--- File.pm 7 Mar 2002 05:06:03 -0000 1.49
+++ File.pm 7 Mar 2002 08:12:09 -0000 1.50
@@ -222,5 +222,5 @@
}
-sub delete_file {
+sub delete {
my $self = shift;
my $location = $self->{'location'};
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:12:11
|
Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv19348/bin
Modified Files:
sandweb.cgi
Log Message:
renaming "delete_file" to "delete"
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.252
retrieving revision 1.253
diff -U2 -r1.252 -r1.253
--- sandweb.cgi 7 Mar 2002 08:07:39 -0000 1.252
+++ sandweb.cgi 7 Mar 2002 08:12:09 -0000 1.253
@@ -234,8 +234,8 @@
}
}
- elsif ( $action eq 'delete_file' ) {
+ elsif ( $action eq 'delete' ) {
# called file deleter
my @filename = CGI::param('filename');
- delete_file_commit(
+ delete_commit(
ck_auth => $ck_auth,
filename => \@filename,
@@ -1356,5 +1356,5 @@
###############################################################################
-# delete_file_commit is called by delete_file_menu to delete one or more files
+# delete_commit is called by delete_menu to delete one or more files
#
# A File object is created and used.
@@ -1370,5 +1370,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub delete_file_commit {
+sub delete_commit {
# delete a file
my %args = @_;
@@ -1440,5 +1440,5 @@
}
} else {
- if ( $file->delete_file() ) {
+ if ( $file->delete() ) {
$error = "$filename deleted.";
} else {
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:10:13
|
Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv18744
Modified Files:
rename.html
Log Message:
rename_file to rename; missed a spot
Index: rename.html
===================================================================
RCS file: /cvsroot/sandweb/sandweb/templates/rename.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- rename.html 7 Mar 2002 08:09:09 -0000 1.1
+++ rename.html 7 Mar 2002 08:10:07 -0000 1.2
@@ -3,5 +3,5 @@
Rename <TMPL_VAR NAME=LOCATION>/<TMPL_VAR NAME=FILENAME> to :
<form submit="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
- <input type="hidden" name="action" value="rename_file" />
+ <input type="hidden" name="action" value="rename" />
<input type="hidden" name="filename" value="<TMPL_VAR NAME=FILENAME>" />
<input type="hidden" name="location" value="<TMPL_VAR NAME=LOCATION>" />
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:09:11
|
Update of /cvsroot/sandweb/sandweb/templates
In directory usw-pr-cvs1:/tmp/cvs-serv18386
Added Files:
rename.html
Log Message:
changing rename_file to rename
--- NEW FILE ---
<tr>
<td width="center">
Rename <TMPL_VAR NAME=LOCATION>/<TMPL_VAR NAME=FILENAME> to :
<form submit="<TMPL_VAR NAME=PROGNAME>" target="mainWindow" onsubmit="setTimeout('window.close()',2000)">
<input type="hidden" name="action" value="rename_file" />
<input type="hidden" name="filename" value="<TMPL_VAR NAME=FILENAME>" />
<input type="hidden" name="location" value="<TMPL_VAR NAME=LOCATION>" />
<input type="hidden" name="module_name" value="<TMPL_VAR NAME=MODULE_NAME>" />
<input type="hidden" name="repo_name" value="<TMPL_VAR NAME=REPO_NAME>" />
<input name="Submit" value="1" type="hidden" />
<input type="text" name="tofile" />
<input type="submit" name="Submit" value="Done" />
</form>
</td>
</tr>
|
|
From: Rob H. <for...@us...> - 2002-03-07 08:07:42
|
Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv17724/bin
Modified Files:
sandweb.cgi
Log Message:
ok, rename_file is now rename.
funny, i didn't notice, but I did name the method "rename" not
"rename_file" in the File class, but called it "rename_file" every
where else .. odd :)
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.251
retrieving revision 1.252
diff -U2 -r1.251 -r1.252
--- sandweb.cgi 7 Mar 2002 05:06:03 -0000 1.251
+++ sandweb.cgi 7 Mar 2002 08:07:39 -0000 1.252
@@ -245,8 +245,8 @@
);
}
- elsif ( $action eq 'rename_file' ) {
+ elsif ( $action eq 'rename' ) {
# called file renamer
if ($submit) {
- rename_file_commit(
+ rename_commit(
ck_auth => $ck_auth,
filename => CGI::param('filename'),
@@ -257,5 +257,5 @@
);
} else {
- rename_file_menu(
+ rename_menu(
ck_auth => $ck_auth,
filename => CGI::param('filename'),
@@ -1115,5 +1115,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub rename_file_menu {
+sub rename_menu {
my %args = @_;
@@ -1143,5 +1143,5 @@
my $content = $ui->get_menu(
- MENU => 'rename_file',
+ MENU => 'rename',
PROGNAME => $progname,
MODULE_NAME => $module_name,
@@ -1470,5 +1470,5 @@
###############################################################################
-# rename_file_commit is called by rename_file_menu to rename a file
+# rename_commit is called by rename_menu to rename a file
#
# A File object is created and used.
@@ -1485,5 +1485,5 @@
# users_dir - location of user sandbox directories.
###############################################################################
-sub rename_file_commit {
+sub rename_commit {
my %args = @_;
|
3 messages has been excluded from this view by a project administrator.
