Modules
ADT Database GTK2 GUI IP PiJAX Public Sql Stdio Subversion System Tools Xosd lua v4l2 wx
Recent Changes
Public.Parser.XML2 1.50
Public.ZeroMQ 1.1
Public.Template.Mustache 1.0
Public.Protocols.XMPP 1.4
Sql.Provider.jdbc 1.0
Popular Downloads
Public.Parser.JSON2 1.0
Public.Parser.JSON 0.2
GTK2 2.23
Public.Web.FCGI 1.8
Public.Parser.XML2 1.48
|
Module Information
Tools.Monger
Viewing contents of Tools_Monger-7.6.32/upload_module_version.pike
int main(int argc, array(string) argv)
{
object m = Tools.Monger.MongerDeveloper();
if(argc!=4)
{
werror("Usage: %s MODULE VERSION LICENSE\n", argv[0]);
exit(1);
}
string module = argv[1];
string version = argv[2];
string license = argv[3];
string changes = get_changes();
object in = Stdio.FILE("stdin");
Stdio.stdout.write("Username: ");
string user = in->gets();
Stdio.stdout.write("Password: ");
in->tcsetattr((["ECHO": 0]));
string password = in->gets();
in->tcsetattr((["ECHO": 1]));
Stdio.stdout.write("\n");
write("module: " + module + ", version " + version + "\n");
write("license: " + license + "\n");
write("changes: " + changes);
m->set_auth(user, password);
m->add_new_version(module, version, changes, license);
m->set_dependency(module, version, "Pike", "7.6.0", "7.7.999", 1);
m->set_module_source(module, version, replace(module, ".", "_") + "-" + version + ".tar.gz");
return 0;
}
string get_changes()
{
string changes = "";
string changefile=Stdio.read_file("CHANGES");
int started=0;
foreach(changefile/"\n", string line)
{
if(!started && (Regexp("^Changes since ")->match(line)
|| Regexp("^Version [0-9]")->match(line)))
{
started = 1;
continue;
}
else if(started && (Regexp("^Changes since ")->match(line)
|| Regexp("^Version [0-9]")->match(line)))
{
return changes;
}
else if(started) changes = changes + line + "\n";
}
return changes;
}
|
|
|